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]