Fortschrittanzeige bei Upload mit TMsMultiPartFormDataStream

[Chrissi91]

Hi,

ich habe ein Formular auf dem Webserver liegen, mit dem man eine Datei uploaden kann. Ich steuer das Script von Delphi aus mit:

Delphi-Quellcode:

var
  MultiPartFormDataStream: TMsMultiPartFormDataStream;
  Response: String;
begin
  MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;
  Try
    HTTP.Request.ContentType := MultiPartFormDataStream.RequestContentType;
    MultiPartFormDataStream.AddFile('f', edtPath.Text, '');
    MultiPartFormDataStream.PrepareStreamForDispatch;
    MultiPartFormDataStream.Position := 0;
    Response := HTTP.Post('http://www.*********.de/vertretung/upload.php', MultiPartFormDataStream);
  Finally
    MultiPartFormDataStream.Free;
  end;
end;

HTTP ist bei mir die Indykomponente idHTTP. Jetzt funktioniert das ja ganz prima. Aber kann ich noch eine Fortschrittsanzeige einbauen? Wie würde das gehen?

Ist eigentlich ******* egal, aber das Programm ist für unsere stellvertretende Schulleiterin, die damit die Vertretungspläne einscannen und auf den Server hochladen soll. Da muss dieser Schnickschnackk noch rtein, außerdem weiß sie dann, wann es fertig ist.

Ist das möglich? Ich glaube nämlich nicht .... Ich hoffe, ich irre mich.

[lbccaleb]

kannst du nicht einfach die position von multipartformdatastream abfragen???

mfg

[Chrissi91]

Hm ... gute Idee. Habe mal zwei Eigentschaften rausgeuscht. Position und Size. Das könnte was sein. Aber wie soll ich das abfragen? Eine Proecdure OnWork oder sowas gibts ja nicht.

[lbccaleb]

also wenn mich jetzt nicht alles täuscht, reicht es wenn du ein progressbar auf der formplazierst und diese dann per

progressbar1.position := MultiPartFormDataStream.Position; updatest, oder nicht?? ich kenn die komponente aber nicht genau, hab sie nur mit google gefunden, für intressierte, die gibt es hier:

multipartformdatastream

mfg

[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