Internet connection ja/nein ?

[ghost007]

Hallo,
ich verwende folgenden code um festzustellen ob eine internetverbindung besteht:

Delphi-Quellcode:

function IsInternetConnected: Boolean;
begin 
  if InternetGetConnectedState(nil, 0) then
  begin
    Result := True;
  end 
  else
  begin 
    Result := False; 
  end;
end;

Dieser funktioniert aber leider nur, wenn man mit dem PC direkt ins internet geht.
Sobald man einen router hat, der aber keine verbindung zum internet, liefert diese funktion trotzdem "true".
Wie kann ich nun trotz router feststellen ob eine verbindung besteht?

MfG - Ghost007

[Die Muhkuh]

http://www.marian-aldenhoevel.de/dojo/internet.html

[ghost007]

grml ... -.-
dann formulier ich mal meine frage präziser.
Habe folgenden code:

Delphi-Quellcode:

idFTP1.Connect;
idFTP1.Get('example.exe','example.exe',true,true);

wie vermeide ich, bzw erkenne ich, das idFTP1.connect nicht ausgeführt werden konnte, weil keine internet verbindung besteht?
Und wie vermeide ich, das dem user eine fehlermeldung angezeigt wird?

MfG - Ghost007

[Luckie]

Kapsel es in einem try-except-Block.

[ghost007]

meinst du in etwa so?

Delphi-Quellcode:

 try
  begin
   idFTP1.Connect;
   idFTP1.Get('example.exe','example.exe',true,true);
  end;
 except
  begin
   ShowMessage('keine internetverbindung vorhanden');
  end;

wenn ich das so in delphi ausführe, bekomm ich die fehlermeldung noch immer.
kann es sein, das ich die nur beim compilierten proggi nicht bekomm? bzw dann halt die ShowMessage anstatt der fehlermeldung?

MfG - Ghost007

[Christian Seehase]

Moin Christian,

Du könntest auch die Eigenschaft TidFTP.Connected nehmen, um zu prüfen, ob eine Verbindung vorliegt.

[SirThornberry]

Die Fehlermeldung bekommst du nur innerhalb der IDE weiterhin sofern du es nicht in den Debugeroptionen abstellst.

[inherited]

Zitat:

Zitat von ghost007

kann es sein, das ich die nur beim compilierten proggi nicht bekomm? bzw dann halt die ShowMessage anstatt der fehlermeldung?

Ja. Und das hier:

Delphi-Quellcode:

function IsInternetConnected: Boolean;
begin
  if InternetGetConnectedState(nil, 0) then
  begin
    Result := True;
  end
  else
  begin
    Result := False;
  end;
end;

Geht noch eleganter

Delphi-Quellcode:

function IsInternetConnected: Boolean;
begin
  result:=InternetGetConnectedState(nil, 0)
end;

[ghost007]

Zitat:

Zitat von inherited

Und das hier:

Delphi-Quellcode:

function IsInternetConnected: Boolean;
begin
  if InternetGetConnectedState(nil, 0) then
  begin
    Result := True;
  end
  else
  begin
    Result := False;
  end;
end;

Geht noch eleganter

Delphi-Quellcode:

function IsInternetConnected: Boolean;
begin
  result:=InternetGetConnectedState(nil, 0)
end;

Ich weiß, stand in dem post aus dem ich das hab auch, auch von dir :P

Danke an alle

MfG - Ghost007

[fwsp]

Delphi-Quellcode:

idFTP1.Connect;
if idFTP1.Connected then
begin
  idFTP1.Get('example.exe','example.exe',true,true);
end
else
begin
  ShowMessage('keine internetverbindung vorhanden');
end;