arbeite grad wieder an meinem
FTP Client und habe das Problem das ich diesen Code in OnWorkBegin und OnWork einsetze:
Delphi-Quellcode:
procedure TForm1.FTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
l.Caption := 'Download gestartet';
PG_DL.Max := AWorkCountMax;
PG_DL.Position := 0;
end;
procedure TForm1.FTPWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
l.Caption := 'Download';
PG_DL.Position := AWorkCount;
end;
Das Problem die ProgressBar (PG_DL) bewegt sich kein Stück wenn ich mit
FTP.Get irgendetwas runterlade - irgendwie scheint es so als dass das Programm sowieso stoppt solange ich etwas herunterlade
Wie umgehe ich das?