Upload wia IdHTTP - Fortschritt anzeigen???

ralfi · Beiträge: 153

Hallo!

Ich lade auf den Server eine Datei hoch:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

...
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:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

...
procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
ProgressBar1.Max := AWorkCountMax;
application.ProcessMessages;
end;
...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

...
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?

Moderiert von Tino: Code- durch Delphi-Tags ersetzt.

matze · Verfasst: Mi 02.06.04 20:16

also mit der routine wird doch auch ein upload in der progressbar angezeigt !! bei mir jedenfalls

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Kugelblitz · Beiträge: 34 Win XP, Debian

auch auf die gefahr hin dass ich jetzt ein total altes thema unnütz wieder anspreche: ^^

Ich hab das gleiche problem
die progressbar läuft zwar durch, aber dass ich eine 5 MB datei in 5 sekunden uploade kann wohl nicht sein

außerdem dauert das uploaden (biss ich von der seite auch eine reply bekomme) deutlich länger

der Code im OnWork und OnWorkBegin ist im prinzip der gleiche, anders ist eigentlich nur dass ich außer der datei noch 3 parameter mit poste..

_________________
I haven't lost my mind; it's backed up on tape somewhere!

Timi-loader · Beiträge: 58 Win XP Delphi 7 Personal

bei mir geht das mit dem upload und progressanzeige auch nicht. :-(

kennt jemand ne andere lösung?

vllt doch datei "per hand" streamen?

mfg

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hast du auch die passenden Ereignisse gesetzt (im OI)?

Timi-loader · Beiträge: 58 Win XP Delphi 7 Personal

muss man da noch zusätzlich einen io machen?
also der io hat bei mir dann nur ein onstatus ereignis.

mfg

UGrohne · Verfasst: Di 22.05.07 15:29

Timi-loader hat folgendes geschrieben:

muss man da noch zusätzlich einen io machen?
also der io hat bei mir dann nur ein onstatus ereignis.

mfg

Tino meinte, ob Du im Objektinspektor die entsprechenden Ereignisse von IdHttp1 auf die obigen Methoden gesetzt hast. Du brauchst keinen IoStream.

Timi-loader · Beiträge: 58 Win XP Delphi 7 Personal

achsoo. hab io und oi vertauscht^^ also kla. jo die ereignisse hab ich ja erst angelegt und dann mit dem code gefüllt. (bzw ersetzt)

aber funzen tut das gesamt nicht.. hmm

EDIT: also konkret wird bei mir onwork nur einmal direkt am ende des downloads aufgerufen. aber ich hab die nicht verwechselt.

Ehemaliges Mitglied Erhaltene Danke: 1

Das ist keine Antwort auf die Frage. Hast du die Ereignisse im OI auch mit der Komponente verknüpft?

k4hvd · Beiträge: 17

ich würde das hier ausprobieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);
begin
  if AWorkMode = wmWrite then
    begin
     ProgressBar1.Max := AWorkCountMax;
     application.ProcessMessages;
    end;  
end;


procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
  if AWorkMode = wmWrite then
    begin 
      Label1.Caption := IntToStr(AWorkCount div 1024) + ' Kb von ' + 
      IntToStr(http.Response.ContentStream.Size div 1024) + ' Kb';
      ProgressBar1.Position := AWorkCount; 
      application.ProcessMessages;
    end;
end;

Gruß
Max

Ehemaliges Mitglied Erhaltene Danke: 1

Was heißt eigentlich:

Timi-loader hat folgendes geschrieben:

aber funzen tut das gesamt nicht.. hmm

Timi-loader · Beiträge: 58 Win XP Delphi 7 Personal

also ichb hab mir mal ne zählschleife gebaut und die procedure TForm1.IdHTTP1Work wird bei mir nur einmal am ende ausgeführt. mehr nicht. wieso?

mfg

Ehemaliges Mitglied Erhaltene Danke: 1

Timi-loader hat folgendes geschrieben:

also ichb hab mir mal ne zählschleife gebaut und die procedure TForm1.IdHTTP1Work wird bei mir nur einmal am ende ausgeführt. mehr nicht. wieso?

Setz mal ein Application.ProcessMessages in das OnWork-Ereignis.

Wie groß ist denn die Datei, die du hochlädst?

Timi-loader · Beiträge: 58 Win XP Delphi 7 Personal

processmessageges hab ich bereits drinn. die datei mit der ich teste ist ca 900 kb groß. und trotz der eventuellen anzeigeprobleme würde ja in der theorie die zählschleuife auch höher geben. aber das tut sie nur ein mal.

mfg

LexXis · Beiträge: 170 Erhaltene Danke: 3

Ich hatte den Spaß mal beim Download.
Aus irgendeinem Grund wurde da AWorkCoutMax nicht richtig gesetzt.
Hab das dann elegant umgangen indem ich als Maximum meiner Progressbar
die Größe das Streams, den ich hoch/runterladen wollte als Max angegeben hab.
Mag nicht unbedingt korrekt sein, bei mir hat´s aber funktioniert.

mfg lexxis

agent_x · Beiträge: 62 WIN 2000, Linux Kubuntu 6.06

Hallo,
bei mir geht das nicht:

markieren

Delphi-Quelltext

1:
2:

Label1.Caption := IntToStr(AWorkCount div 1024) + ' Kb von ' + 
      IntToStr(http.Response.ContentStream.Size div 1024) + ' Kb';

HELP!!!
MfG agent_x

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

agent_x hat folgendes geschrieben:

bei mir geht das nicht:

Könntest du das Problem bitte genauer beschreiben.

agent_x · Beiträge: 62 WIN 2000, Linux Kubuntu 6.06

ja bei mir wird im script http und das hinter den kommas rot
unterkritzelt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme