Servus Leute!
Bin immernoch an meinem Browser dran. Es geht um Download kleiner Dateien, in meinem Fall sind es (viele) Bilder. Ich habe den Download etwas automatisiert, d.h. das Programm lädt mir die Bilder aus einer Liste (ListBox) ins Verzeichniss XY. Problem:
1. Während des Downloads ist das ganze Programm nicht ansprechbar und
2. Ich wollte es so machen, dass das Programm
a) mir den jeweiligen Download und den dazu gehörigem Fortschrittsbalken (wie in der ProgressBar) in der StatusBar anzeigt
b) den Gesammtfortschritt azeigt. Sollte gehen, da die Anzahl der zuladenden Dateien bekannt ist (ListBox1.Items.Count oder so).
Code zu 1.
Delphi-Quellcode:
procedure TForm1.DownloadClick(Sender: TObject);
var
d:
String;
//Ordner Name
url,ziehl: pchar;
begin
d:=getcurrentwb.LocationName;
createdir('
c:/'+d);
for i := 0
to Listbox2.items.Count - 1
do
begin
url:=pchar(listbox2.Items.Strings[i]);
ziehl:=pchar('
c:/'+d+'
/'+inttostr(i+1)+'
.jpg');
URLDownloadToFile(
nil,
url, ziehl, 0 ,
nil);
end;
end;
Hat jemand ne Idee oder Erfahrung?
EDIT1
Habe
das hier gefunden. Weiss aber nicht, wie mich das weiter bringen soll, bzw. wie ich das Ganze aufrufen soll. Ausserdem gibt es bei mir keine Komponente "TGauge" (TurboDelphi (Explorer-Version)). Aber hier entstehen wieder 2 Probleme: wie verlege ich z.B.
Form1.Gauge1.Progress := MulDiv(ulProgress,100,ulProgressMax);
auf die StatusBar und wie funtioniert der Aufruf?