VPF::Скриншот - Форум программистов

this

Дата 12.9.2005, 20:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 12.9.2005

Репутация: нет
Всего: 1

У меня на форме есть компонент TWebBrowser, в котором отображатется видеопоток с вэб-камеры. Подскажите как можно сделать скриншот с содержимого TWebBrowser?

p0s0l

Дата 13.9.2005, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 16
Всего: 112

Код


var
  dc : HDC;
  bmp : TBitmap;
begin
  dc := GetDC(WebBrowser1.Handle);
  bmp := TBitmap.Create;
  bmp.Width := WebBrowser1.ClientWidth;
  bmp.Height := WebBrowser1.ClientHeight;
  BitBlt (bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, dc, 0, 0, SRCCOPY);
  ReleaseDC(WebBrowser1.Handle, dc);

// в bmp - картинка... делай с ней чего хошь, например:
  image1.Picture.Bitmap := bmp;

  bmp.Free;
end;

Или

Код


uses ActiveX;

...

var
  bmp : TBitmap;

begin
  bmp := TBitmap.Create;
  bmp.Width := WebBrowser1.ClientWidth;
  bmp.Height := WebBrowser1.ClientHeight;
  OleDraw (WebBrowser1.ControlInterface, DVASPECT_CONTENT, bmp.Canvas.Handle, Rect(0, 0, bmp.Width, bmp.Height));

// опять в bmp - картинка, например, показываем её в Image1:
  Image1.Picture.Bitmap := bmp;

  bmp.Free;
end;

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »