Ind: Datei herunterladen und Größe ermitteln

[a.def]

Mit dem hier im Link vorgestelltem Code lade ich eine Datei aus dem Internet herunter:
http://stackoverflow.com/questions/2...http-via-https

Nach Berichtigung all der Tippfehler klappt das auch wunderbar.

ABER: woher bekomme ich die Dateigröße? Da die Anzeige ja in Prozent ist, muss die finale Dateigröße ja wohl irgendwo gespeichert sein, nur wo?

[nahpets]

Der Eigenschaft OnWorkBegin einen Routine zuweisen und dort AWorkCountMax nehmen. AWorkCountMax enthält die Dateigröße.

[a.def]

Man kann auch echt blind sein :wall:
Danke.

Die bereits übertragenen Bytes rechne ich mir Pi*Daumen so aus:

Delphi-Quellcode:

BytesTransfered := (BytesToTransfer div 100) * Progress;

Genauer brauche ich es nicht.

[nahpets]

Also ich mach' das immer so:
Es gibt eine Progressbar.

Im Ereignis OnWorkBegin wird Progressbar.Max auf AWorkCountMax gesetzt und Progressbar.Position auf 0,
im Ereignis OnWork wird Progressbar.Position auf AWorkCount gesetzt
und im Ereignis OWorkEnd wird Progressbar.Position auf Progressbar.Max gesetzt.

Da brauch' ich nix zu rechnen und der Anwender hat was zum Gucken.

[a.def]

Habe keine Progressbar. Ich zeige das alles in einem Label an :P

Zitat:

Datei W von X, Y KB von Z KB geladen

[himitsu]

Sieht das nicht irgendwie nach zwei Speicherlecks aus?

[a.def]

Der in diesem Forum gepostete Code hat Speicherlecks, ja.

Ich erstelle die INstanz einfach mit Owner nil und gebe sie am Ende wieder selber frei. Außerdem habe ich einen Destructor eingebaut wo IOHndl freigegeben wird. Dann sind die Speicherlecks alle weg.