hallo,
ich möchte in meinem programm angeben wie lang der down/upload noch dauert. aber ich krieg das grad net hin. ich hab ja eigentlich alle nötigen werte. Anfangszeit, Aktuelle Zeit, Gesamtgröße, Aktuelle Größe.
ich krieg das aber grad net ins verhältnis gesetzt.
kann mir jmd helfen?
Delphi-Quellcode:
procedure TgMailFTP.OnWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer);
begin
if AWorkCountMax <> 0 then
OnWorkBeginMax := AWorkCountMax;
ProgBar.Max := OnWorkBeginMax;
ProgBar.Position := 0;
FWorkStarted := GetTickCount;
Application.ProcessMessages;
end;
Delphi-Quellcode:
procedure TgMailFTP.OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);
begin
ProgBar.Position := AWorkCount;
form.caption := '?';
Application.ProcessMessages;
end;