Hallo allerseits,
Ich habe in meiner Application im OnCreate Ereignis gleich folgendes gesetzt:
Delphi-Quellcode:
IdFTP1.IOHandler.Intercept := IdLogEvent1.Intercept;
IdFTP1.IOHandler.OnWork := IdFTP1.OnWork;
IdFTP1.IOHandler.OnWorkBegin := IdFTP1.OnWorkBegin;
IdFTP1.IOHandler.OnWorkEnd := IdFTP1.OnWorkEnd;
IdFTP1.IOHandler.OnStatus := IdFTP1.OnStatus;
Das funktioniert auch soweit.
Jetzt bin ich glaube ich einen Schritt weiter gekommen:
Im QuellCode des IOHandlers habe ich gesehen, dass das DoWork nur beim WriteDirect gesetzt wird, nicht aber beim normalen Write(über Puffer). Ich habe im QuellCode mal probeweise das DoWork eingefügt und siehe da, der Fortschrittsbalken bewegt sich (allerdings arbeitet er hier die gesamte Dateilänge ab und erst nachher erfolgt das Übertragen). Aber immerhin, es tut sich mal was.
Werde jetzt mal die Routinen - wie DG-luke und Klaus01 beschrieben ebenfalls näher untersuchen.
mfg
Herbert