StatusBar anstatt Download-Fenster

[djpaull]

Hey das mit Application.ProcessMessages; funzt - einfach vor dem "Donwload" einsetzen.

Delphi-Quellcode:

procedure TForm1.DownloadClick(Sender: TObject);
var
  d: String;
  url,ziehl: pchar;
  begin
  d:=getcurrentwb.LocationName;
  createdir('c:/'+d);
  for i := 0 to Listbox2.items.Count - 1 do
    begin
    Application.ProcessMessages; // Hier Einsetzen - Dann schmiert das Prog nicht ab :-)
    url:=pchar(listbox2.Items.Strings[i]);
    ziehl:=pchar('c:/'+d+'/'+inttostr(i+1)+'.jpg');
    URLDownloadToFile(nil, url, ziehl, 0 , nil);
  end;

end;

Zitat:

zum 2. punkt:
du willst wirklich für jeden download eine Progressbar in der statusleiste haben? das passt da doch dann gar nicht alles rein oder?
eine für alles ist ja okay aber mehr? ich weiß nicht...

Nicht für Jeden eine, sondern eine ProgressBar, die aber nach dem eine Datei fertig ist, den Fortschritt der nächsten anzeigt. Und eine ProgressBar für dem gesammten Download.

Zitat:

für alle würde ich einfach die gesamtanzahl bytes ermitteln und dann gucken wie viel du schon geladen hast.

Ja gut... schon... nur ich weiss nicht wie?