[IOHandler] onWorkBegin, onWork ...

[coco90]

Hallo Leute,

hier versuche ich Prozeduren zu erreichen wenn ich eine ReadStream mache, deswegen nutze ich onWorkBegin, onWork und onWorkEnd der IOHandler Klasse.
Das Problem ist, das der Program nie diese Prozeduren erreicht, obwohl den ReadStream funktionniert !
Hat jemanden eine Ahnung ?
Vielen Dank !

Delphi-Quellcode:

 with Client do // Client: TIdTCPClient;
 begin

   //  [...]
             
   // AUFNAHME
   // Event Handlers für die Ladung
     IOHandler.OnWorkBegin := onLadungBegin;
     IOHandler.OnWork := onLadung;
     IOHandler.OnWorkEnd := onLadungEnd;

    try
      Fs := TidStreamVCL.create(TFileStream.Create(_fileName, fmCreate));
      try
         // Aufnahme der datei
         MemoInfo.Lines.add('-- Aufnahme der Datei..');
         IOHandler.ReadStream(Fs,_size);
      finally
         MemoInfo.Lines.add('-- Ende des Dateiaufnahme !');
         FreeAndNil(Fs);
     end;
   finally
   end;

end;

Die Prozeduren wurden in meiner TForm Klasse deklariert. Zum Beispiel die onLadungBegin Prozedur.

Delphi-Quellcode:

procedure  TFormMain.onLadungBegin(ASender : TObject; AWorkMode : TWorkMode; AWorkCountMax : Integer);
begin
     // Öffnung des Formulars
     MessageDlg('ok', mtWarning, [mbOK], 0);
     FrmLadung.Create(self);
     FrmLadung.ProgressBar1.Min := 0;
     FrmLadung.ProgressBar1.Max := _size;
     FrmLadung.ProgressBar1.Step := 1;
     FrmLadung.ShowModal;
end;