Hi,
versuche gerade mit Hilfe von dem TCPClient und TCPServer von Indy ein Programm zur Datenübertragung zu schreiben. Also Grundlage dafür habe ich das Beispiel des TCPStreamClient verwendet. Technisch funktioniert die Übertragung mittels:
Quelltext
1:
2:
3:
4:
5:
6:
| log('Empfange Daten');
f := TFileStream.Create('c:\temp\new.dat',fmCreate);
ReadStream(f, -1, True);
f.Seek(0, soFromBeginning);
f.free;
Log('Daten empfangen'); |
Auch wunderbar. Die Daten werden erfolgeich übertragen. Nun soll jedoch der Fortschritt angezeigt werden und ich habe mich dran gemacht mittels OnWorkBegin die zu übertragenden Bytes zu ermitteln und warte gespannt drauf, dass OnWork einen Fortschritt meldet. Stattdessen geschieht allerdings gar nichts ... direkt wie man ist, habe ich dann in diesem Event gleich ein HALT gesetzt und siehe da, die Übertragung erfolgt ohne, dass dieses Event von TCPClient ausgeführt wird. Verstehe ich da etwas falsch dran? Wie realisiere ich bei dieser Komponente eine Fortschrittsanzeige sonst?
Thx,
Phobeus
"Menschen sterben nicht wenn man sie zu Grabe trägt, sondern wenn sie ihre Träume verlieren..."
