JPG mit Indy per HTTP einbinden ?

[Nisbo]

Moin Moin,

Ist es möglich ein JPG-Bild mit Indy 10 per HTTP in Delphi 5 Standard einzubinden ?
Falls ja würde mich natürlich interessieren wie ;)

Also ich habe ein TImage und würde dort gerne ein JPG ala http://www.domain.de/bild.jpg einbinden

[Nisbo]

habemir mal was aus teilen die ich so gefunden habe gebastelt, aber ob das das wahre ist ?

Delphi-Quellcode:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var SourceFile, DestFile : string;
begin
  SourceFile := 'http://www.domain.de/bild.jpg';
  DestFile   := ExtractFilePath(ParamStr(0)) + 'temp.jpg';

  if DownloadFile(SourceFile, DestFile) then
  begin
    ShellExecute(Application.Handle, PChar('copy'), PChar(DestFile), PChar(''), nil, SW_NORMAL);
    Image1.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'temp.jpg');
    DeleteUrlCacheEntry(PChar(SourceFile));
  end
  else
    ShowMessage('Verbindungsfehler')
end;

funktionieren tut es jedenfalls