Progressbar für Dateiübertragung a la SwissDelphiCenter.ch

[cheatzs]

Hi Leutz,
hab ein Problem mit der Übertragung von Dateien.
Mein Sourcode sieht grob so aus wie auf : SwissDelphiCenter.ch
Ich übertrage also die Datei als Stream mit den Kompos TClientSocket und TServerSocket wobei ich vorher die Länge der Datei übergebe damit ich dann mit einer Progressbar eine Fortschrittsanzeige machen kann. Nun ist das Problem gewesen, dass diese nicht Aktualisiert wurden ist weil der nur noch mit dem Kopieren beschäftigt war.
Also hab ich nach der Anweisung, dass die Progressbar einstellt eine Aktualisierung mit

Delphi-Quellcode:

Application.ProcessMessages;

durchgeführt.
Soweit so gut. Beim ersten Mal hat das auch geklappt. Nur bei zweiten Mal ging es wieder nicht.
Als ich dann noch ein paar mal rumprobiert hatte, gings mal wieder, und dann mal wieder nicht.

Vielleicht wisst ihr ja eine bessere Übertragungsmöglichkeit von Datein?
(will nicht auf Dateisplitter hinaus)

Dann noch eine Zusatzfrage: wäre es sinnvoller auf die TcpClient und TcpServer Komponenten umzusteigen? (brauch es nur für Text und Dateiübertragung)


THX