Wieviel von der datei schon heruntergeladen?

[ghost007]

Hallo,
ich alde mit der indy komponente eine datei runter, und würde gerne in einer label angeben, wie viel bytes(oder andere Einheit) schon heruntergeladen wurden.

[marabu]

Hallo Christian.

Welche Indy Komponente verwendest du? Welche Indy Version? Welche Methode? Kannst du die 5 Zeilen Code für den Download zeigen? Hast du schonmal nach den Ereignissen OnWorkBegin(), OnWorkEnd() und OnWork() gesucht?

Grüße vom marabu

[ghost007]

Hi,
ich verwende indy 10 und da die IdFTP komponente
Mein Downloadquellcode schaut so aus:

Delphi-Quellcode:

path:='/Downloads/Informatik/'+Combobox1.Text;
SaveDialog1.FileName:=ComboBox1.Text;
if SaveDialog1.Execute then
 idftp1.get(path,SaveDialog1.FileName, true);

[Klaus01]

hier sollte etwas stehen, was Dir wieter helfen kann -> http://dsdt.info/tutorials/indy/?page=4

Grüße
Klaus

[ghost007]

hallo,
zu dem tutorial hab ich eine frage,
wie macht man eine integer zahl zu einer float(real) zahl?

[Die Muhkuh]

FloatZahl := IntegerZahl;

[ghost007]

hallo,
ich habe jetzt folgendes problem, ich hab das tutorial mit mal angeschaut, und auch einiges verwertet, jetzt gehen nur irgendwie KB von meiner gedownloadeten datei verloren ...

Die Dateigröße ermittle ich so:

Delphi-Quellcode:

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
  Label6.Caption:=IntToStr(idftp1.Size('/Downloads/Informatik/'+Combobox1.Text));
  max:=StrToFloat(Label6.Caption);
  Label6.Caption:=FloatToStr(max/1024)+'KB';
end;

Und die bereits übertragene KB anzahl so:

Delphi-Quellcode:

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
var
  count,erg:real;
begin
  count:=AWorkCount;
  erg:=count/1024;
  Label9.Caption:=FloatToStr(erg)+'KB';
end;

Wenn der datei download fertig ist, besteht aber zwischen label6 und label9 eine differenz.
Wie kann das sein?
Gehen KB verloren?

[ghost007]

hat denn wirklich keiner ne idee, was da falsch sein könnte?

[glkgereon]

Zitat von ghost007:

hat denn wirklich keiner ne idee, was da falsch sein könnte?

Es kann sein, dass OnWork regelmäßig aufgerufen wird, aber nicht nochmal wenn er fertig ist.
d.h. es wird bei 99% zB aufgerufen, und dann wird OnWorkEnd aufgerufen und fertig. (was ja auch eigentlich gar nicht so unlogisch wäre)

überprüf das mal...

[ghost007]

Hallo,
geht das dann so am besten, wenn ich einfach onworkend den rest ergänze?