Download Fremskridt

Den har jeg før læst og det eneste jeg fandt ud af var hvordan man laver en progress bar der viser et fremskridt af ingenting

altså der er jo godt nok en progress bar men den viser jo ikke ligefrem hvor meget af filen man har hentet den viser bare hvor mange gange en timer er blevet udført Ja den gauge artikel er mildesttalt ubrugelige (Personlig fatter jeg ikke hvordan den kom med,... Skal der så også være en button artikel eller hvad ?)
-
WWW: http://neuros.h4f.dk
email: neuroman@ebvum.dk

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
 FStrm :  TFilestream;
begin
 FStrm := TFilestream.Create('c:\\downloaded.txt', fmCreate);
 Try
  IdHTTP1.Get('http://Host.dk/enfil.ext', FStrm);
 Finally
  Fstrm.Free;
 end;
end;

Kode 

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  Gauge1.MaxValue := AWorkCountMax; //AworkCountMax er så vidt jeg ved filens størrelse i Bytes.
end;

Kode 

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  Gauge1.Progress := AWorkCount;
end;

Jeg har et program der henter en fil fra min hjemmeside men jeg ville gerne kunne vise hvor langt den er kommet med filen med en slags progress bar og med et tal i %

Hvad bruger du til at downloade filen ?

---
Hilsen Anders

Den har jeg før læst og det eneste jeg fandt ud af var hvordan man laver en progress bar der viser et fremskridt af ingenting

altså der er jo godt nok en progress bar men den viser jo ikke ligefrem hvor meget af filen man har hentet den viser bare hvor mange gange en timer er blevet udført