Fortschrittanzeige bei Upload mit TMsMultiPartFormDataStream

[Chrissi91]

Tatsache, es funktioniert.

Nur wie halte ich sie immer auf dem Laufdenden? Praktisch schreib ich deine Zeile mit Application.ProcessMessages; in einen Timer mit Intervall 100 z.B., den ich beim Hochladen auf Enabled := True; setze. Es funktioniert aber trotzdem nicht.

Das Programm bleibt stehen ... bis das Hochladen abgeschlossen ist u. dann geht die Progressbar mit einem Mal auf 100 %

EDIT: War gestern Abend schon ein bisschen spät. Ich habe es jetzt so gelöst: Da den Hauptteil die IndyKomponente idHTTP macht, habe ich einfach den Fortschritt auf die Progressbar übertragen in der Procedure: HTTPWork