Tclientsocket的使用問題 ( 积分: 100 )

我從網上下載一程序源碼,分為client.exe和server.exe兩部份,使用Tclientsocket和Tserversocket控件,我修改其中的某些源碼後在自己的機子上執行一切都正常,但發現只要修改client.exe的
procedure TClient.csError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0; //當取消這一句後
end;
執行client.exe時就會提示:
client.exe發生問題,必須關閉,謹此致歉.
按下關閉後又提示:
'Exception ESocketError in module project1.exe at 0005C482.
No address specified.'
請問會是哪裡的問題?如何解決?
謝謝.

我從網上下載一程序源碼,分為client.exe和server.exe兩部份,使用Tclientsocket和Tserversocket控件,我修改其中的某些源碼後在自己的機子上執行一切都正常,但發現只要修改client.exe的
procedure TClient.csError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0; //當取消這一句後
end;
執行client.exe時就會提示:
client.exe發生問題,必須關閉,謹此致歉.
按下關閉後又提示:
'Exception ESocketError in module project1.exe at 0005C482.
No address specified.'
請問會是哪裡的問題?如何解決?
謝謝.

当socket发生错误的时候，会返回一个 ErrorCode，以便提供给开发者分析错误的原因
ErrorCode:= 0;
就是忽略错误的意思，和
try
except
的结构差不多