Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
18. Okt 2009
So, hab jetzt beim Start folgendes eingebaut:
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
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
18. Okt 2009
Ich hab das auch schon probiert, der sagt nur:
Undefinierter Bezeichner: URLDownloadToFile
___________________________________
Schon ok, hatte mich beim Uses vertippt...
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
18. Okt 2009
Im Laufe der Diskussion hat sich das Ziel jedoch ein wenig verändert... :wink:
Trotzdem Danke!
Liebe Grüße
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
18. Okt 2009
Dabei fällt mir gerade so auf:
Wenn ich bei FormCreate Result:=True setze, kommt keine Fehlermeldung...
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
18. Okt 2009
Das ist doch Sinn der Sache. Verbindung herstellen, wenns nicht klappt -> Fehlermeldung.
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
18. Okt 2009
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?
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
18. Okt 2009
Sehr aufschlussreich...
Nun gut, von mir aus soll dieses Programm auch versuchen, eine Verbindung herzustellen.
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?
Forum: Object-Pascal / Delphi-Language
by Delphi-Narr,
18. Okt 2009
Hallo, ich möchte mir ein eigenes Downloadprogramm pogrammieren.
Dazu soll getestet werden ob eine Verbindung zum Internet besteht.
Habe dazu folgendes verwendet:
function TLoading.IsInternetConnected: Boolean;
begin
Result:= InternetCheckConnection(nil, 0,0)
end;