Entwickler-Ecke :: Thema anzeigen - Download Fortschritt anzeige

Marduk - Di 08.10.02 10:39
Titel: Download Fortschritt anzeige

Hi Leute,
ich hab ein Programm geschrieben, das mit ner idhttp einen download durchführt. Sobald der download läuft reagiert das Programm auf nichts mehr bis der download fertig ist.
Damit da die leutz nich ungeduldig werden würd ich gerne ne progressbar oder n gauge einbauen.
Ich weiss aber überhaupt nicht wie ich den fortschritt des downloads auslesen/erfahren kann.

LCS - Di 08.10.02 10:49

Hi Marduk
ich kann jetzt grade nicht nachschauen, aber wenn ich mich recht erinnere, gibts da ein Ereignis OnWork, das bei Lese- oder Schreiboperationen ausgelöst wird. Da bekommst du geliefert ob gesendet oder empfangen wird und auch die Anzahl der Bytes. Damit sollte sich ein Progressbar angesteuern lassen.
Auf jeden Fall solltest du innerhalb dieses Ereignisses ein Application.ProcessMessages aufrufen, damit die Anwendung noch reagiert.

Gruss Lothar

Marduk - Mo 14.10.02 13:34

Quelltext

1:
2:

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);

Ist das der Prozedurkopf ???
Also irgendwo muss ich ja warscheinlich zuerst die größe der datei angeben/einlesen, danach immer wieder die heruntergeladenen bytes rausfinden und diese dann in ne prozentzahl umwandeln (heruntergeladen bytes/gesamtbytes)
aber ich weiss eben net wie ich an die werte komm

Marduk - Mo 14.10.02 14:28

Also ich habe das jetzt so gelöst, muß noch optimiert werden, aber prinzpiell funzt es so:

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:

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
var
prozent, max, mom:real;
s:string;

begin
max:=strtoint(maxwert.caption);
mom:=AWorkcount;
momwert.caption:=inttostr(AWorkcount);
prozent:=(mom/max)*100;
str(prozent:0:0,s);
Gauge1.progress:=strtoint(s);



end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
var max:string;

begin

max:=inttostr(AWorkCountMax);
maxwert.caption:=max;
end;

LCS - Mo 14.10.02 14:28

Hi
Ereignisroutine für OnWorkBegin:

Quelltext

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

procedure TForm1.HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  ProgressBar1.Position := 0;
  ProgressBar1.Max := AWorkcountMax;
end;

Ereignisroutine für OnWorkEnd:

Quelltext

1:
2:
3:
4:
5:

procedure TForm1.HTTPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  //Fertig
  ProgressBar1.Position := 0;
end;

Und die Ereignisroutine für OnWork

Quelltext

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

procedure TForm1.HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if ProgressBar1.Max > 0 then
    ProgressBar1.Position := AWorkCount;
end;

Gruss Lothar

matze - Mo 14.10.02 16:38

bei den INdy Kompos findest du ich glaube in der regiserer karte INDY MISC eine Komo, die nennt sich TidAntiFreeze. setzt die einfach aufs formular, und schon kann keine indy kompo dein proggi einfrieren !!

Application.processmessages bringt da überhaupt niX!

Marduk - Di 15.10.02 08:03

super, das ganze funktioniert jetzt, nur:
bei der antifreeze ist mir nicht ganz klar ob das wirklich ein Unterschied ist :? Sobald der Download startet ist es nicht mehr möglich buttons anzuklicken o.ä.
Trotzdem danke an euch alle :)

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!