TServerSocketでのエラー

sato 2009-03-03 19:43:02 No: 33524

TServerSocketで「非同期ソケットエラー 10053」がまれに起こります。
どのタイミングで起こるか分かりませんが、ServerSocket1ClientErrorの時
このメッセージが出るようです。
受信側のServerSocketも、送信側のClientSocketも常時ＯＮです。
ClientSocketで時々送る短い文字列をServerSocket1ClientReadで読んでいるだけです。
また、エラー発生時、そこで処理が止まっているわけではないようです。

#1 エラーの起こる原因
#2 エラー時、ServerSocket1ClientErrorの中で、ログに書き込むだけに
したいので、エラーメッセージを出さないようにする。
には、どうすればいいのでしょうか。よろしくお願いします。

Win-XP、Delphi7です。

おも 2009-03-05 10:18:33 No: 33525

#1は回答できません。

#2はヘルプファイルにも書いてありますが以下の1行のみで可能です。

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode:=0;
end;

sato 2009-03-06 00:02:20 No: 33526

おも様
ありがとうございました。
key:=#0; はやったことがありますが、ErrorCode:=0;は
気が付きませんでした。なかなか、再現しないので、テスト
できませんが、気長に待ちます。