HTTP Post mit ResposeStream und AWorkCountMax

[haentschman]

Hallo und guten Abend...

ich recherchiere schon seit Stunden und finde keine Lösung. Es geht um die Implementierung eines Fortschrittbalkens. Folgende Konstellation.
Quelltext Auszüge:
HTTP.Post(XWebLink,XWebParameter,ResponseStream); // wird einmal aufgerufen danach kommen folgende Ereignisse in der Reihenfolge.

Delphi-Quellcode:

1. OnWorkBegin     //AWorkCountMax = 73
2. OnWork          //AWorkCount = 73
3. OnWorkBegin     //AWorkCountMax = 0
4. OnWork          //bis zum Ende des Streams AWorkCount = steigende Werte bis über 100000

Da AWorkCount nicht den MaxWert sondern 0 liefert kann ich die Progressbar nicht setzen.

Gibt es eine Lösung dafür ? Oder ist das bei Post mit ResponseStream immer so ? Bei Get über URL geht das ja.



Anmerkung: Ich habe zu diesem Thema auch Assertor eine PN geschickt.