Ich versuche eine Datei mit Fortschrittsanzeige zu laden:
Delphi-Quellcode:
procedure TUpdater.Timer3Timer(Sender: TObject);
var
DownloadStream: TFilestream;
begin
Gauge1.Progress:=0;
Gauge1.Visible:=True;
Gauge1.Progress:=Gauge1.Progress +1;
if Gauge1.Progress =100
then begin
Timer3.Enabled:=False;
Gauge1.Progress:=0;
Label1.Caption:='
Daten werden geladen';
DownloadStream := TFileStream.Create(Edit6.Text,fmCreate);
//Der Zielpfad
try
IDHTTP2.Get(Edit5.Text, downloadstream);
//Die URL Dateiname
finally
DownloadStream.Free;
Gauge1.Progress:=0;
Label3.Caption:='
Download beendet !';
Timer5.Enabled:=True;
end;
end;
end;
procedure TUpdater.IdHTTP2Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
Label3.Caption := '
Download läuft ! '+'
('+inttostr(AWorkCount
div 1024)+'
kB von '+inttostr(IdHTTP2.Response.ContentStream.Size
div 1024)+'
kB)';
Gauge1.Progress := AWorkCount*100
div IdHTTP2.Response.ContentStream.Size;
application.ProcessMessages;
end;
Der Download wird nicht gestartet. Ich kann keinen Fehler finden.