Moin!
Ich habe das Problem, dass beim Upload einer Datei auf den
FTP-Server das OnWork-Ereignis nie aufgerufen wird. Ich habe schon die Suchfunktion bemüht, aber nur ein ähnliches Problem mit Bezug auf
Indy 9 auf 10 -Umstellung gefunden. Ich benutze aber nur die 9er.
Weiß jemand Rat?
Der verwendete Code sieht vom Prinzip her aus, wie in jedem anderen Beispiel, welches ich hier schon gefunden habe:
Delphi-Quellcode:
procedure TfrmFTPAction.idftpWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
lblProgress.caption := inttostr(AWorkCount div 1024) +'KB / '+ inttostr(totalbytes div 1024)+'KB';
application.processmessages;
end;
procedure TfrmFTPAction.idftpWorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
totalbytes := AWorkCountMax;
lblProgress.caption := '0 / '+ inttostr(totalbytes)+'KB';;
application.processmessages;
end;