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