Ich hab ein kleines problem mit einer fortschrittsanzeige bei einem datei-
upload per IdHTTP.Post.
hab schon das ganze forum durchsucht, konnte aber nur beispiele zur progressbar beim datei-download finden, die sich aber anscheineend nicht ohne probleme übertragen lassen.
Mein code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
| procedure TForm1.Button1Click(Sender: TObject);
var
stream : TIdMultipartFormDataStream;
begin
if not OpenDialog1.Execute then Exit;
ProgressBar1.Min := 0;
stream := TIdMultipartFormDataStream.Create;
try
stream.AddFormField('MAX_FILE_SIZE','52428800');
stream.AddFormField('UPLOAD_IDENTIFIER','UPLOADER');
stream.AddFile('file',OpenDialog1.FileName,'application/rar');
Memo1.Text := IdHTTP1.Post('http://meineseite.de/upload.php',stream);
finally
stream.Free;
end;
end;
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
Application.ProcessMessages;
ProgressBar1.Position := AWorkCount;
end;
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
Progressbar1.Max := AWorkCountMax;
end; |
der Upload funktioniert übrigens ohne probleme, nur die progressbar ist viel zu früh fertig...
hat jemand vll eine idee wie ich eine funktionierende fortschirttsanzeige hinbekomme?
