ClientSocket - обработка ошибок.

← →
Bioside (2001-12-03 13:56) [0]

Здравствуйте,
Ситуация такая:
ClientSocket ждет подключение к ServerSocket через таймер -
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not clientsocket1.active then clientsocket1.open ;
Clientsocket1.socket.SendText(ip) ;
end;

И в обработчике ошибок ставлю только ErrorCode:=0 -
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
errorcode:=0;
end;

Естественно, что долго такое безобразие длится не может и через
некоторое время (если ServerSocket не активирован) на каждый вызов по таймеру появляется ошибка
SokcetError (10055) on API "connect".
Подскажите, что добавить в procedure TForm1.ClientSocket1Error
чтоб этого не происходило.

ClientSocket - обработка ошибок. Найти похожие ветки