Fehlermeldung bei TClientSocket abfangen

Boromir · Beiträge: 45

Hi,

ich möchte zwei Rechner mit TClientSocket usw. verbinden! Und würde nun gerne, wenn der Server nicht eingeschaltet ist, das der Client keine eigene Fehlermeldung ausgibt, sondern ein Ereigniss auslöst, wie mache ich das?

THX

waldmeister · Beiträge: 136 Win XP D7 Enterp

geh in das onerror-ereignis des clients un schreib da folgendes hin:

markieren

Quelltext

1:
2:

errorcode:=0;
showmessage('fehler');

der code is net getestet, sollte aber gehn!

_________________
der wald....der meister....der meister des waldes....der waldmeister

patmann2001 · Beiträge: 201 Windows 7 Prof. Delphi XE2

Hi

Der Code geht natürlich, aber So werden alle Fehlermeldungen zwischen Server und Client abgefangen und das sind wohl ein paar zu viele. :lol:

@Boromir: Es gibt immer Asyncrone Fehlermeldungen mit eine Zahl. z. B. 10065 bedeutet Host nicht erreichbar (WSAEHOSTUNREACH) das ist glaube ich genau der Fehler den Du suchst.

Also würde ich folgendes Coden:

markieren

Quelltext

1:
2:
3:
4:
5:

 If errorcode:=10065 then
    BEGIN
      errorcode:=0;
      MessageDLG('Der Server ist nicht zu erreichen',mtInformation,[mtOK],0);
    END;

cu Patmann

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme