Jak "usunąć" error w delphi

[LAMHAC]

Mam pytanie do was

Co mam zrobić żeby mi nie wyskakiwał error: Asynchronous socket error 10061.

(błąd występuje przy użyciu programu "trojana" napisanego na socket-ach a dokładniej gdy chce sie połączyc z serwerem a serwer nie został jeszcze uruchomiony)

 

[FDJ]

moze to pomoze

komponencie ClientSocket i ServertSocket w zakładce OnError daj kod
Kod:[/b]

ErrorCode := 0

 

[D0han]

uzywaj

try ...... finally

 

[PqD7]

Prosze tu masz z obsluga

procedure TForm1.ClientSocket2Error(Sender: TObject;

  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

  var ErrorCode: Integer);

begin

case ErrorCode of

10060: Label1.Caption:=('Komp ofiary nie jest podłączony do sieci !');

10061: Label1.Caption:=('Serwer nie jest aktywny !');

10049: Label1.Caption:=('Nieprawidłowy host');

10048: Label1.Caption:=('Port, który chcesz uaktywnić, jest już aktywny');

      

 end;

ErrorCode := 0;

end;

;]

 

[LAMHAC]

dzięki za odpowiedzi klikłem w pomógł

no właśniem iałem na końcu języka to "ErrorCode := 0" juz gdzieś kiedys to na forum widziałem ale nie pamiętałem gdzie

 

[FDJ]

Originally posted by LAMHAC
dzięki za odpowiedzi klikłem w pomógł

no właśniem iałem na końcu języka to "ErrorCode := 0" juz gdzieś kiedys to na forum widziałem ale nie pamiętałem gdzie

skopiowalem z tego tematu a ty nawet nie szukales