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;