Internetverbindung feststellen mit Delphi 5

[Delphi-Narr]

Hallo, ich möchte mir ein eigenes Downloadprogramm pogrammieren.
Dazu soll getestet werden ob eine Verbindung zum Internet besteht.

Habe dazu folgendes verwendet:

Delphi-Quellcode:

function TLoading.IsInternetConnected: Boolean; 
begin 
      Result:= InternetCheckConnection(nil, 0,0) 
end;

Bei Uses habe ich noch WinINet hinzugefügt.
Diese Prozedur ruft die Funktion auf:

Delphi-Quellcode:

IsInternetConnected;
        if result=false then begin
           showmessage('Error! No Connection found');
           exit;
        end;

Ich bekomme jedoch immer diese Fehlermeldung, warum? :gruebel:
Ich habe habe sowohl ein DSL-Kabel am Laptop, als auch WLAN.
Die Verbindung besteht auf jeden Fall.
Findet jemand den Fehler?

Liebe Grüße!

[Luckie]

Alt, aber immer wieder gut: http://www.marian-aldenhoevel.de/dojo/internet.html

[Delphi-Narr]

Sehr aufschlussreich...
Nun gut, von mir aus soll dieses Programm auch versuchen, eine Verbindung herzustellen.

Zitat:

"Das ICMP-Paket, das ich von meinem Ping aus los sende, um das Bestehen einer Internet-Verbindung zu testen, wird von Meister Pinguins Router empfangen. Dort wird festgestellt, daß es nicht für einen Rechner in diesem LAN bestimmt ist. Daraufhin baut Meister Pinguins Router eine Wählverbindung auf und bringt unser LAN damit an das Internet. Mein Ping hat also anstatt zu prüfen, ob eine Verbindung besteht, eine solche aufgebaut."

Da dies ja laut diesem Zitat möglich ist, kann dieses Programm eine Verbindung herstellen und wenns nicht klappt soll diese
Fehlermeldung kommen.

Das würde aber gehen, oder?

[BUG]

In dem Fall wäre es aber vermutlich einfacher, zu probieren ob der Download funktioniert und dann entsprechende Fehlermeldungen auszugeben. Dann kannst du dir den Ping auch sparen.

MfG,
Bug

[Klaus01]

Zitat:

Zitat von Delphi-Narr

Sehr aufschlussreich...
Nun gut, von mir aus soll dieses Programm auch versuchen, eine Verbindung herzustellen.

Zitat:

"Das ICMP-Paket, das ich von meinem Ping aus los sende, um das Bestehen einer Internet-Verbindung zu testen, wird von Meister Pinguins Router empfangen. Dort wird festgestellt, daß es nicht für einen Rechner in diesem LAN bestimmt ist. Daraufhin baut Meister Pinguins Router eine Wählverbindung auf und bringt unser LAN damit an das Internet. Mein Ping hat also anstatt zu prüfen, ob eine Verbindung besteht, eine solche aufgebaut."

Da dies ja laut diesem Zitat möglich ist, kann dieses Programm eine Verbindung herstellen und wenns nicht klappt soll diese
Fehlermeldung kommen.

Das würde aber gehen, oder?

Nein, denn Dein ping würde eine Verbindung aufbauen.

Grüße
Klaus

[Delphi-Narr]

Na gut, wie lade ich denn dann die Datei runter?

http://www.oafa.at/download/Testbild.gif

Das ist jetzt die Datei, die ich haben will.

Und die soll jetzt per SaveDialog bzw. Verzeichniswahl gespeichert werden.

Wie kann ich das anstellen?

[Delphi-Narr]

Zitat:

Zitat von Klaus01

Zitat:

Zitat von Delphi-Narr

Sehr aufschlussreich...
Nun gut, von mir aus soll dieses Programm auch versuchen, eine Verbindung herzustellen.

Zitat:

"Das ICMP-Paket, das ich von meinem Ping aus los sende, um das Bestehen einer Internet-Verbindung zu testen, wird von Meister Pinguins Router empfangen. Dort wird festgestellt, daß es nicht für einen Rechner in diesem LAN bestimmt ist. Daraufhin baut Meister Pinguins Router eine Wählverbindung auf und bringt unser LAN damit an das Internet. Mein Ping hat also anstatt zu prüfen, ob eine Verbindung besteht, eine solche aufgebaut."

Da dies ja laut diesem Zitat möglich ist, kann dieses Programm eine Verbindung herstellen und wenns nicht klappt soll diese
Fehlermeldung kommen.

Das würde aber gehen, oder?

Nein, denn Dein ping würde eine Verbindung aufbauen.

Grüße
Klaus

Das ist doch Sinn der Sache. Verbindung herstellen, wenns nicht klappt -> Fehlermeldung.

[Klaus01]

Hallo,

such im Forum mal nach URLDownloadToFile,
alternativ kannst Du auch tidHttp.get verwenden.
Auch zu TIdHttp.get sollte es im Forum genügend Beispiele geben.

Grüße
Klaus

[Klaus01]

Zitat:

Zitat von Delphi-Narr

Das ist doch Sinn der Sache. Verbindung herstellen, wenns nicht klappt -> Fehlermeldung.

Du hast aber nach: Internetverbindung feststellen mit Delphi 5 gefragt.

Grüße
Klaus

[Delphi-Narr]

Zitat:

Zitat von Delphi-Narr

Hallo, ich möchte mir ein eigenes Downloadprogramm pogrammieren.
Dazu soll getestet werden ob eine Verbindung zum Internet besteht.

Habe dazu folgendes verwendet:

Delphi-Quellcode:

function TLoading.IsInternetConnected: Boolean; 
begin 
      Result:= InternetCheckConnection(nil, 0,0) 
end;

Bei Uses habe ich noch WinINet hinzugefügt.
Diese Prozedur ruft die Funktion auf:

Delphi-Quellcode:

IsInternetConnected;
        if result=false then begin
           showmessage('Error! No Connection found');
           exit;
        end;

Ich bekomme jedoch immer diese Fehlermeldung, warum? :gruebel:
Ich habe habe sowohl ein DSL-Kabel am Laptop, als auch WLAN.
Die Verbindung besteht auf jeden Fall.
Findet jemand den Fehler?

Liebe Grüße!

Dabei fällt mir gerade so auf:

Wenn ich bei FormCreate Result:=True setze, kommt keine Fehlermeldung...

[Delphi-Narr]

Zitat:

Zitat von Klaus01

Zitat:

Zitat von Delphi-Narr

Das ist doch Sinn der Sache. Verbindung herstellen, wenns nicht klappt -> Fehlermeldung.

Du hast aber nach: Internetverbindung feststellen mit Delphi 5 gefragt.

Grüße
Klaus

Im Laufe der Diskussion hat sich das Ziel jedoch ein wenig verändert... :wink:
Trotzdem Danke!

Liebe Grüße

[Delphi-Narr]

Zitat:

Zitat von Klaus01

Hallo,

such im Forum mal nach URLDownloadToFile,
alternativ kannst Du auch tidHttp.get verwenden.
Auch zu TIdHttp.get sollte es im Forum genügend Beispiele geben.

Grüße
Klaus

Ich hab das auch schon probiert, der sagt nur:

Undefinierter Bezeichner: URLDownloadToFile


___________________________________

Schon ok, hatte mich beim Uses vertippt...

[Delphi-Narr]

So, hab jetzt beim Start folgendes eingebaut:

Delphi-Quellcode:

try
       URLDownloadToFile(nil,PChar('http://www.oafa.at/download/Testbild.gif'),PChar('C:\Users\Lennart\Test.gif'),0,nil);
       Result:=True;
    except
       Result:=False;
    end;

1.: Die Datei wird nicht heruntergeladen
2.: Wenn keine Verbindung besteht, ist Result=True

:(

Wieso klappt das nicht?

[Klaus01]

Hallo,

1. pushen innerhalb von 24h ist nicht so gern gesehen.
2. werte den Rückgabewert von URLDownloadToFile aus, wenn er 0 ist
war der Download erfolgreich.

Grüße
Klaus

[Delphi-Narr]

Oh, sorry...

Wie mach ich das denn (zu 2)



Habs schon...

Danke!!!

[Klaus01]

.. in etwas so:

Delphi-Quellcode:

result := URLDownloadToFile(nil,PChar('http://www.oafa.at/download/Testbild.gif'),PChar('C:\Users\LennartTest.gif'),0,nil) = 0;

Grüße
Klaus