1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| procedure TForm1.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Int64);
begin
if AWorkMode=wmRead then begin
StatusBar1.SimpleText := 'Chargement en cours. Ne pas interrompre.';
StatusBar1.Refresh;
end;
end;
procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
var
nBuffer64 : int64;
begin
nBuffer64 := AWorkCount;
Label1.Caption:= FormatTaille(nBuffer64,True)+'/'+FormatTaille(FileSize64,True);
label1.Refresh;
ProgressBar1.Position:=nBuffer64;
ProgressBar1.Refresh;
end; |
Partager