Проблема с TClientSocket

← →
Kikimora (2003-01-22 00:01) [0]

Почему, если если клиент не может подключиться где то 5 минут выдается ошибка.

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

procedure TForm1.CS1Connecting(Sender: TObject;
Socket: TCustomWinSocket);
begin
time1.Enabled:=false;
panel1.Color:=cllime;
end;

procedure TForm1.CS1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
time1.enabled:=true;
panel1.Color:=clred;
end;

procedure TForm1.Time1Timer(Sender: TObject);
begin

if not cs1.Active then begin
cs1.Address:="127.0.0.1";
cs1.Port:=1025;
cs1.Active:=true;
endж

end;

← →
mrcat (2003-01-22 00:19) [1]

Kikimora © (22.01.03 00:01)
...
выдается ошибка.
...

что за ошибка то?

← →
Kikimora (2003-01-22 01:11) [2]

10055

← →
mrcat (2003-01-22 01:35) [3]

Socket.Disconnect(Socket.SocketHandle);

не работает?!

Вы уверены, что проблема именно в этом участке кода?

Проблема с TClientSocket Найти похожие ветки