Download mit Geschwindigkeitsanzeige und Dateigröße

[Tim-94]

Hi! :)
Gibt es eine Möglichkeit mit Turbo Delphi einen Download mit Geschwindigkeitsanzeige,
Dateigröße und verbleibender Zeit zu programmieren?

Bisher ist mir nur der normale Dateidownload bekannt.(Läuft im Hintergrund ab!)

Delphi-Quellcode:

procedure TForm1.OKBtnClick(Sender: TObject);
var
  Datei,Ziel:PChar;
begin
Caption:='Download startet...';
Datei := 'http://google.de/test.txt';
Ziel := '.\test.txt';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
end;

PS: Ich habe extra den Hinweis "mit Turbo Delphi" oben hingeschrieben, da ich mithilfe
der Suche nur Downloads mit der Komponente "TIdhttp" gefunden habe.
(Die Angabe zur Zieldatei im Delphi-Quellcode ist nicht original!)

[lbccaleb]

Ja gibt es, am besten suchst mal nach dem hier:

BINDSTATUSCALLBACK

BINDSTATUSCALLBACK

[Tim-94]

Danke, aber hier in der DP-Suche gibt es dazu nur meinen Thread und bei Google kommt nur Mist.

[DeddyH]

Schau Dir mal hier die 2. Möglichkeit an, die sollte noch erweiterbar sein.

[Tim-94]

Ebenfalls danke, aber auch dies hat mich nicht weitergebracht, da ich dort
noch den gesamten Code für Downloadgeschwindigkeit, etc. hinzufügen muss und wenn ich
es alleine könnte, hätte ich keinen Thred reingestellt.

[DeddyH]

Und was spricht gegen die Indys? Das hat doch mit TDE nichts zu tun, AFAIK sind die doch auch dort enthalten.

[shmia]

Downloaden mit Fortschrittsanzeige

[Tim-94]

Stimmt du hast recht. :-D

[Tim-94]

Danke shmia, ich werde es gleich einmal ausprobieren. :-D

[Tim-94]

Wenn mir jetzt noch jemand sagen kann, wie ich die Dateigröße und die ungefähr noch verbleibende
Zeit bis zum Abschluss des Downloads ermitteln kann, bin ich sehr glücklich. :-D

[lbccaleb]

Die Dateigröße wird doch in dem Code der von Shmia gepostet wurde mit übergeben, das muss man sich natürlich nur "ordentlich" anschauen!

Und die Zeit kannst du errechnen! Das ist natürlich event. sehr ungenau, aber das liegt ja auch an der Verbindung...

[Tim-94]

Wo soll den der Codeteil sein, der für die Größe da ist?

[shmia]

Zitat:

Zitat von Tim-94

Dateigröße und die ungefähr noch verbleibende Zeit bis zum Abschluss des Downloads

Die Restzeitberechnung ist eine ziemlich knifflige Sache.
Man braucht einen gleitenden Durchschnitt oder ähnliche Verfahren damit die Restzeitanzeige nicht wilde Werte anzeigt.
Aber hier gibt es eine Klasse dazu: http://www.delphipraxis.net/internal...ct.php?t=93395

[Tim-94]

Und wie kann ich das jetzt in die andere Schleife mit einbinden?
Woher bekomme ich die "MinValue" und die "MaxValue"?

[lbccaleb]

Zitat:

Zitat von Tim-94

Wo soll den der Codeteil sein, der für die Größe da ist?

Schau dir den Bereich im Code mal an:

Delphi-Quellcode:

    BINDSTATUS_DOWNLOADINGDATA:
    begin
      Form1.Gauge1.Progress := [b]MulDiv(ulProgress,100,ulProgressMax);[/b]
      Form1.Label1.Caption := 'Datei wird heruntergeladen...';
      if (UserCancel) then
      begin
        Result := E_ABORT; exit;
      end;
    end;

Fällt dir nichts auf?

[Tim-94]

Doch:

Delphi-Quellcode:

MulDiv(ulProgress,100,ulProgressMax);