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