ClientSocet ??

Mam pytanie odnośnien komponentu ClientSocet, a mianowicie, jak można go zrestartować ?? Chodzi o to że mam chata i Client sprawdza czy serwer jest włączony. Jak nie jest to program sie blokuje. Jak można zrobić żeby w takim przypadku poczekał 10 sekund i sprawdził jeszcze raz ????

Wrzuc to do Timer'a.

ok, wtedy działa, ale jak serwer jest wyłączony to co 10 sekund pojawia się błąd :( można go jakoś wywalić albo ukryć ??

daj to do try i w except wrzuc wlasny komunikat, albo nie jesli nie chcesz zadnego :)

ok, wtedy działa, ale jak serwer jest wyłączony to co 10 sekund pojawia się błąd :( można go jakoś wywalić albo ukryć ??

wstaw do zdarzenia onError taki kod:

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

Użyte komponenty:
Timer ustawiony na 10000(10s)
ClientSocket

onTimer
begin
try
if (ClientSocket.Connect) then begin
Procedura_po_polaczeniu(parametry);
Timer1.Active:=false;
end;
except
Action:=nil;
end;

chyba tak ;) (robię to z pamięci)