Moin,
ich möchte in einer Schleife mehrere Bilder von einer Internetquelle downloaden. Das mache ich in einer Schleife.
Die Routinen:
Delphi-Quellcode:
function GetURLFile(was, wohin: string): Boolean;
begin
Result := UrlDownloadToFile(nil, PChar(was), PChar(wohin), 0, nil) = 0;
end;
function isNotValidChar(c:char): Boolean;
begin
result:= c in ['\', '/', '*', '?', '"', '<', '>', '|']
end;
Mit der ersten Funktion(UrlDownloadToFile aus der
Unit UrlMon) lade ich die Bilder(.jpg), mit der zweiten überprüfe ich den Namen, den die Datei bekommen soll auf verbotene Zeichen.
Das klappt auch soweit ganz gut aber oftmals wird auf der Platte nicht das Image abgelegt sondern eine Datei mit 0 KB Größe und nur dem Dateinamen ohne die Suffix .jpg.
Woran kann das liegen?
Gruß
Gambit