Problem bei Imagekomponente Loadfromfile via http

[Matze]

Hi! Ich nochmal.

Man kann jetzt in Edit1 eine URL eigeben, von der das Bild ist, gespeichert, dann wird das Bild geladen und sofort wieder von der Festplatte gelöscht

So ist's jetzt richtig:

Delphi-Quellcode:

uses: urlmon, jpeg;

...

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);
begin
  URL:=Edit1.Text;
  if DownloadFile(URL, 'c:\picture.jpg')
  then image1.Picture.LoadFromFile('c:\picture.jpg')
  else
  showmessage('Sorry, geht irgendwie nicht!');
deleteFile('c:\picture.jpg')
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key =vk_return then Button1Click(self);
end;

Ich hoffe, du kannst damit was anfangen.

Gruß Matze

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]