ich grab diesen thread nochmnal aus...
ich will images ausm inet holen
dazu benutz ich folgenden code:
Delphi-Quellcode:
function DownloadFile(
const url:
string; filename:
string): boolean;
begin
Result := urlmon.URLDownloadToFile(
nil, PChar(
url), PChar(filename), 0,
nil) = 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i, j:integer;
filename:
string;
begin
for i:=SpinEdit1.Value
to SpinEdit2.Value
do
begin
FileName:=inttostr(i)+'
.jpg';
if DownloadFile(
url+filename,ShellTreeView1.Path+filename)
then ListBox1.Items.Add('
Erfolgreich '+filename)
else ListBox1.Items.Add('
Fehlgeschlagen '+filename);
end;
end;
aber es kommt IMMER fehlgeschlagen,. obwohl es das bild gibt!!!
kann es daran liegen das ich hinter nem router sitze?