hab die Sache noch weiter eingegrenzt: OnWorkBegin wir korrekt ausgelöst. OnWorkEnd auch. Nur OnWork wird während der übertragung nicht ausgelöst! Woran kann das liegen? Weiterhin auffällig ist, das OnWorkEnd, und OnWorkBegin gleichzeitig ausgelöst werden. Überprüft hab ich das so:
Delphi-Quellcode:
procedure TForm1.IdTCPClient1WorkBegin(Sender: TObject;
AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
progressbar1.Max := AWorkCountMax;
label5.Caption := 'OnWorkBegin wurde aufgerufen!: '+IntToStr(AWorkCountMax);
end;
procedure TForm1.IdTCPClient1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
progressbar1.Position := AWorkCount;
label3.Caption := 'OnWork wurde aufgerufen!';
end;
procedure TForm1.IdTCPClient1WorkEnd(Sender: TObject;
AWorkMode: TWorkMode);
begin
Progressbar1.Position := 0;
label4.Caption := 'OnWorkEnd wurde aufgerufen!';
end;
komische sache. Ich prüfe das ganze lokal (d.h. server und client laufen gleichzeitig auf dem selben rechner..). Kann das vielleicht daran liegen?