URLDownloadToFile: Programm reagiert nicht während Download

[Mazel]

Hallo,

ich verwende URLDownloadToFile um zum Beispiel Zip-Datein oder andere Große Files zu downloaden. Das Problem welches ich habe ist, das während des Ladens meine Applikation nicht reagiert. Ich habe es mit Application.ProcessMessages versucht die in einem Timer sitzt aber das funktioniert nicht. Der Grund warum ich das haben will ist, damit ich den Fortschritt des Downloads sehe.
Hier mal die aktuelle Version:

Delphi-Quellcode:

function TForm1.DownLoadInternetFile(const URL, Localfile: String): Boolean;
begin
 Result:=URLDownloadToFile(nil, PChar(URL), PChar(Localfile), 0, nil) = 0;
end;

procedure TForm1.BtnOKClick(Sender: TObject);
begin
 Application.ProcessMessages;
 DownLoadInternetFile(Temp, 'C:\Tempfile.dat');
end;

Was muss ich machen, damit meine Anwendung während des Ladens trotzdem reagiert und damit ich den Fortschritt sehe? Bin jeder Hilfe dankbar.

Gruß
Mazel

[marabu]

Hallo Marcel,

wenn du beim letzten Parameter nicht nil sondern einen Zeiger auf eine Schnittstelle vom Typ IBindStatusCallback übergibst, dann könnte es was werden mit der Fortschrittsanzeige. Schau mal in die Dokumentation.

Grüße vom marabu

[Luckie]

Zitat von marabu:

Schau mal in die Dokumentation.

Oder noch einfacher, in die CodeLib: URLDownloadToFile

[Mazel]

Danke,

in welcher Dokumentation sollte ich den schauen? In der Delphi Hilfe ist es jedenfalls nicht zu finden.
Danke Luckie, hatte den Beitrag in der Library nicht gefunden, habe zu sehr nach URLDownloadToFile gesucht.

[marabu]

Unter Dokumentation verstehe ich den PlatForm SDK oder das MSDN Online Library Archive.

marabu

[Mazel]

Ich habe die Microsoft SDK offline (durch Delphi 2005 - arbeite aber wegen mir nicht gefallender Oberfläche nicht damit) und dort lässt sich URLDownloadToFile nicht finden.

[Mazel]

Noch eine wichtige Frage ist für mich, wie ich nun die Dateigröße der zu ladenen Datei ermitteln kann.

Gruß
Mazel

[jfheins]

Guck mal, ob du ne HEAD-Anfrage senden kannst, damit könnte das gehen ...

[marabu]

Hallo Marcel,

du musst die Dateigröße nicht vorher ermitteln - du bekommst sie im event handler OnProgress() der Schnittstelle IBindStatusCallBack als ulProgressMax übermittelt.

Grüße vom marabu

[Mazel]

Hey,

danke. Ich dachte in ulProgress und ulProgressMax werden andere Daten übermittelt. Das die was mit der Anzeige für die ProgressBar bzw. Gauge zu tun haben war klar nur wusste ich eben nicht das sie auf die Größe der übermittelten Daten und auf dem Server liegenden Daten zeigen.

Danke

Gruß
Mazel