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