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.