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?