Vielen Dank für den Quellcode.
Hab mal den Link bei mir durch das original ersetzt. Das Programm läuft, mach aber irgendwie gar nichts ^^. Lädt mir die Bilder nicht runter. (zummindestens erscheinen keine neuen Datein in dem ordner). sieht irgend jemand nen Fehler?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Ziel,Datei:
string;
i:Integer;
begin
For i:=1
to 168
do
begin
try
Datei := Format('
http://wowdata.buffed.de/img/icons/wow/64/inv_potion_%d.png',[i]);
Ziel := '
C:\Documents and Settings\User\Desktop\Neuer Ordner';
UrlDownloadToFile(
nil, PAnsiChar(Datei), PAnsiChar(Ziel), 0,
nil);
except
on E:
Exception do
MessageBox(
Handle,PAnsiChar(E.
Message),'
Fehler',MB_OK
or MB_ICONERROR);
end;
end;