QUOTE
procedure TForm1.ConnecTimerTimer(Sender: TObject);
begin
ChatClientSocket.Active :=True;
end;
para não dar error do serve não conectado usobegin
ChatClientSocket.Active :=True;
end;
QUOTE
procedure TForm1.ClientSocketError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode := 0;
end;
begin
ErrorCode := 0;
end;
só que depois de muito tempo cerca de 1 hora e meia por aew dar um outro error:
CODE
"Windows socket error: Uma operação em um soquete não pôde ser executa porque o sistema não tinha espaço suficiente no buffer ou porque uma fila estava cheia(10055), on API'connect'"
VEJA A IMAGE CLIQUE AQUI
http://imgserv2.imagehigh.com/imgss/5315259_error2_1_1.jpg
como eu tiro esse error?
Muito Obrigado!