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?
