idhttp mit gauge

[tester008]

sorry ich bins wieder wisst ihr wie man hierbei eine gauge zum updaten bekommt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 lStream: TFileStream;
begin
if saveDialog1.Execute then
begin
  lStream:=TFileStream.Create (savedialog1.FileName, fmCreate or fmShareDenyNone);
  try
    idHTTP1.Get(flatedit2.text, lStream);
  finally
    lStream.Free;
  end;
end;
end;

die dateien können unterschiedlich groß sein