Hallo!
Ich lade auf den Server eine Datei hoch:
Code:
...
var
PicData: TIdMultiPartFormDataStream;
PicData := TIdMultiPartFormDataStream.Create;
PicData.AddFile('file', 'C:\Datei.exe', 'application/zip');
IdHTTP1.Post('http://www.homepage.de/cgi-bin/loadPicture.pl?', PicData);
...
Ich möchte dem User auch zeigen, wie weit der Uploadprocess ist. Beim download ist klar:
Code:
...
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
application.ProcessMessages;
end;
...
Code:
...
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
Label1.Caption := IntToStr(AWorkCount div 1024) + ' Kb von ' +
IntToStr(http.Response.ContentStream.Size div 1024) + ' Kb';
ProgressBar1.Position := AWorkCount;
application.ProcessMessages;
end;
...
Kann ich diese Code irgendwie modernisieren, sodass der Upload-Fortschritt angezeigt wird?