Dateitransfer: IdTCPServer Fortschrittsanzeige serverseitig

[Zacherl]

Hi,

ich schicke mittels Write einen IdStreamVCL von meinem TCPClient an meinen TCPServer. Nun hätte ich gerne eine Fortschrittsanzeige auf Seiten des Servers, allerdings finde ich kein OnWork Ereigniss oder etwas äquivalentes ..

Kann da jamend helfen?

[Zacherl]

Ausprobieren hilft immer

Ich habe jetzt einfach eine neue Klasse von IdTCPServer abgeleitet und die Methoden aus dem protected in den published Bereich deklariert.

[Zacherl]

Mist. Es geht doch noch nicht, wie ich es mir wünsche. Im OnConnect Ereigniss des IdTCPServers weise ich jedem IdContext das OnWork Ereigniss zu.

Die work Ereignisse haben alle als ersten Parameter ASender: TObject, welchen ich verwende um an TIdContext(ASender).Data zu kommen. Jetzt kamen massig AVs im Programm auf und beim debuggen stellte ich fest, dass ASender immer nil ist

Ist das ein Fehler in den Indy Komponenten? Und wie kann ich den beheben?