Datei mit Fortschrittsanzeige auf einen Ftp-Server hochlade

[Ricane]

Moinsen,

ich habe ein Problem mit dieser OnWork Prozedur....... so sieht meine aus......

Delphi-Quellcode:

Procedure TfrmMain.ServerDatenWork(Sender: TObject; AWorkMode: TWorkMode;
  Const AWorkCount: Integer);
Begin

  frmMain.Server.Socket.Connections[0].SendText('310' + IntToStr(AWorkCount));
  Application.ProcessMessages;

End;

Wie man sieht, gleicht sie dem Model was etwas weiter oben steht! Aber das Problem ist: Er geht dort NIE rein! Die WorkStart und WorkEnd Prozeduren macht er, der Datentransfer (darin geht es in meinem Prog.) klappt auch wunderbar! Aber er geht nicht in die OnWork Prozedur rein.....

Wer weiss woran das liegen kann?!

PS: Das "310" ist nur der Erkennungscode, damit ich auf "der anderen Seite" anzeigen kann, wie weit der Transferstatus ist.....



Beste Grüsse,

Ricane