Ich muss da Problem neu aufrollen ...
ich hatte den ersten SC nicht getestet. und ich muss sagen, er funzt nicht! Er findet weder ESocketError noch HandleSocketError...
nunja ... ich poste mal den SC in der Hoffnung jmd kann mir helfen!
Delphi-Quellcode:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ...
IdIcmpClient, IdBaseComponent,
IdComponent, IdRawBase, IdRawClient, IdException, ... ;
...
begin
{ --- Alle xx Sekunden einen Ping senden um auf eine Internetverbindung zu prüfen --- }
try
pinger.Ping('
a');
except
On E:
Exception do
if E
Is IDException.EIdSocketError
then
begin
Showmessage('
SOCKETERROR');
end
else Showmessage('
ELSE')
end;
end;
So weit geht es, aber mir ist es nicht möglich, den Fehler "SocketError #10011" (glaube ich war es) abzufangen ...
MfG bLuE
