Download wird nicht gestartet

[mlspider]

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.

[Matze]

Hi,

schau dir mal dieses Beispiel an.

[Maja Jessica]

Hi,

dieses macht für mich keinen Sinn:

Delphi-Quellcode:

Gauge1.Progress:=0;
Gauge1.Visible:=True;
Gauge1.Progress:=Gauge1.Progress +1;

Du setzt Progress immer wieder auf 0 bevor du um 1 erhöhst?

So wird der Wert nie 100 erreichen

Gruß, MJ

[mlspider]

Du hast recht. Jetzt läuft alles. Danke.