получить картинку из WebBrowser

[пауэрлифтинг]

получит картинку из WebBrowser без повторной загрузки и сохранить ее в файл?

[Виталий Желтяков]

Всё легко и просто.

//-------------------- Функция загрузки файла --------------------------------//
// SourceFile - источник, DestFile - назначение
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.MenuDownloadImagesClick(Sender: TObject);
var
   i: Word;
   x: Integer;
   ImageHref, DestFile: string;
   CurrentWB: TEmbeddedWB;
   Document: IHtmlDocument2;
begin
   CurrentWB := Form1.WebBrowser1;
   for i := 0 to CurrentWB.OleObject.Document.Images.Length - 1 do
    begin
     Document := CurrentWB.Document as IHtmlDocument2;
     ImageHref := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
     x := Pos('images',ImageHref);
     Delete(ImageHref, 1, x-1);
     DestFile := DataDir + '/grab/' + ImageHref;
     DownloadFile('http://zzz.su/' + ImageHref, DestFile);
   end;
end;
//----------------------------------------------------------------------------//

[пауэрлифтинг]

а что за функция UrlDownloadToFile у меня ее нету

[DIgorevich]

Добавь в uses модули: URLMon, ShellApi.

[Виталий Желтяков]

Да, забыл модули подключи urlmon, wininet.

[Aleksandr_59]

А как извлечь картинку непосредственно из BebBrowser, вроде бы она уже там загружена? Чтобы повторно не грузить и получить, скажем, её Bitmap. Без файловых операций.