TClientSockets und Exceptions (Fritz!Box Anrufmonitor)

[jesus]

Hallo,

in meinem Anrufmonitor für die Fritz!Box verwende ich ein TClientSocket zur Kommunikation mit der FB.

Wenn ich die TCP-Verbindung herstelle, würde ich gern die Exceptions abfangen und habe nach dem Createn, dem Event OnError eine Prozedur zugewiesen.

Code:

 MySocket          := TClientSocket.Create(self);
 MySocket.OnError  := SocketErr;
 MySocket.OnConnect:= SocketConn;
 MySocket.OnRead   := SocketMessage;

Code:

procedure TForm1.SocketErr(Sender:TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: integer);
begin
 If ErrorCode <> 0 then
 begin
    Status.Simpletext:= 'Could not connect to your Fritz!Box';
    ErrorCode:= 0;
 end;   
end;

Die Ereignisse OnConnect und OnRead laufen auch tadellos, aber ich das Fehlerevent scheint gar nicht auszulösen, da ich in der Prozedur ErrorCode := 0 setze und damit die Exception abfangen müsste (laut Hilfe). Ich bekomme sie aber trotzdem zu sehen ... woran kann's liegen ?

Das komplette Programm liegt in meinem SVN-Repo:

http://svn.berlios.de/svnroot/repos/frox/WatchTheBox

Grüße jesus :)

[MrKnogge]

Was für eine Exception bekommst du denn, mit "ErrorCode:= 0;" funktioniert ja nur bei einem ESocketError.

Gruß

[jesus]

Es ist ein ESocketError > #10061 ... der läßt sich prima erziwngen, wenn man das Prog mit der Firewall blockiert ...

[omata]

Bekommst du die Exception ausserhalb der IDE auch?

[jesus]

Ja ...

ich hatte ganz vergessen zu erwähnen welche Komponenten noch zum kompilieren nötig sind ... ich zähl sie hier mal kurz auf:

CoolTrayIcon: http://www.torry.net/vcl/system/tray...olTrayIcon.zip
TOneInstance: http://www.torry.net/vcl/system/instance/oneinst.zip
ICS: http://www.overbyte.be

Grüße jesus

[MrKnogge]

Moin,

ich habe das ganze jetzt mal getestet, (allerdings ohne OneInstance) und ich bekomme keine Exception.

Gruß

[jesus]

das würde ich eigentlich auch erwarten, das ich den Fall ja auch abhandele ... aber ich bekomme tatsächlich eine ... ich häng mal das ganze als Screenshot an :)

Grüße jesus :)

[MrKnogge]

@omata
Die Exeption kommt auch ausserhalb der IDE

Ich konnte es jetzt auch nachvollziehen, aber vorher habe ich keine bekommen, trotz das ich FritzBoxMonitor aktiviert hatte. Ich versuche das mal zu rekonstruieren.

Gruß

[jesus]

Also wie ich das selbst einschätze ist das Problem, dass das Event OnError gar nicht ausgelöst wird ... egal was ich dort versuche ... der Code wird dort nicht ausgeführt ...

jesus

[jesus]

Hallo,

nachdem ich nochmal ein wenig rumprobiert habe, habe ich festgetsellt, dass normale Verbindungsfehler doch abgearbeitet werden. Nur wenn ich den Zugriff über die Firewall blocke wird OnError nicht ausgelöst ... warum nicht ?

Grüße jesus