jak obsłu?żyć Errory WinSocketa ?

0

Witam !

Mam może i głupie pytanie dotyczące artykułu:

<font color="green">Jak natomiast wykryć, że na danej maszynie nie jest otwarty dany port (co oznacza, że program nie jest uruchomiony) lub, że maszyna o danym IP nie jest w sieci? Wygeneruj zdarzenie OnCreate:

procedure TMainForm.ClientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
case ErrorCode of
10060: ShowMessage('Komputer z którym chcesz się połączyć nie jest podłączony do sieci!');
10061: ShowMessage('Na danym komputerze port nie jest aktywny');
end;
ErrorCode := 0;
end; </span>

Gdzie tą procedurę umieścić? Co ma do tego OnCreate?

W jaki sposób obsłużyć błąd 10060 ?

0

Wygeneruj nie w OnCreate a w Events ServerSocket(lub ClientSocket) w OnClientError, czy cos podobnego [browar]

0

niestety po wygenerowaniu w w wydawałoby się stworzonym do tego zdarzenie OnError komponentu ClientSocket niestety jest to samo... Sprawdzałem już wcześniej. A mój problem pozostaje... :(

0

Masz w komponencie ClientSocket zdarzenie OnClientError
tam to wrzuc i juz :D

Musi dzialac bo mam identycznie to rozwiazane i u mnie działa:

[code]procedure TKlient.KlientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
case ErrorCode of //w wyniku nastepujacego bledu...
10060: Status.Lines.Add('[ Komputer z którym chcesz się połączyć nie jest podłączony do sieci ! ]');
10061: Status.Lines.Add('[ Port nieaktywny, komputer jest podłączony do sieci ! ]');
end;
ErrorCode := 0;//wyzeruj numer bledu
end;[/code]

0

Qrde a u mnie to nie działa :( Jak robię krok po kroku to na siłe próbuje się skontaktować no a że nie da rady to wywala błąd :(

1 użytkowników online, w tym zalogowanych: 0, gości: 1