скриншот элемента из WebBrowse

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

как сделать скриншот из WebBrowse определенного элемента и сохранить в файл?

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

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

//----------------------- Процедура создания скриншота -----------------------//
procedure MakeScreenShot;
var
  JpegIm: TJpegImage;
  bm: TBitMap;
  CurrentWB: TEmbeddedWB;
begin
  CurrentWB := Form1.WebBrowser1;
  bm := TBitMap.Create;
  bm.Width := CurrentWB.Width;
  bm.Height := CurrentWB.Height;
  BitBlt(bm.Canvas.Handle, 0, 0, bm.Width, bm.Height, GetDC(CurrentWB.HWND), 0, 0, SRCCOPY);
  JpegIm := TJpegImage.Create;
  JpegIm.Assign(bm);
  JpegIm.CompressionQuality := 100;//Качество сжатия, в процентах
  JpegIm.Compress;
  JpegIm.SaveToFile(PChar(DataDir + '/ScreenShots/Screen.jpg'));//куда сохранить результат
  bm.Destroy;
  JpegIm.Destroy;
end;
//----------------------------------------------------------------------------//

[DIgorevich]

Сообщение от Виталий Желтяков

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

Только это скриншот всего WebBrowser-а, а чтобы сделать отдельный элемент, нужно указывать его координаты.

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

мне надо сделать скринот изображения со страници