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

CynicRus

Дата 12.4.2014, 11:35 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: 2
Всего: 5

Приветствую уважаемых форумчан. Пытаюсь сделать скриншот плеера без черных дыр. С помощью DircetDraw делаю скриншот так:

Код


var
  DDSCaps: TDDSCaps;
  DesktopDC: HDC;
  DirectDraw: IDirectDraw;
  Surface: IDirectDrawSurface;
  SurfaceDesc: TDDSurfaceDesc;
begin
  if DirectDrawCreate(nil, DirectDraw, nil) = DD_OK then
    if DirectDraw.SetCooperativeLevel(GetDesktopWindow, DDSCL_EXCLUSIVE or
       DDSCL_FULLSCREEN or DDSCL_ALLOWREBOOT) = DD_OK then
    begin
      FillChar(SurfaceDesc, SizeOf(SurfaceDesc), 0);
      SurfaceDesc.dwSize := Sizeof(SurfaceDesc);
      SurfaceDesc.dwFlags := DDSD_CAPS;
      SurfaceDesc.ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE;
      SurfaceDesc.dwBackBufferCount := 0;
      if DirectDraw.CreateSurface(SurfaceDesc, Surface, nil) = DD_OK then
      begin
        if Surface.GetDC(DesktopDC) = DD_OK then
        try
          Bitmap.Width := Screen.Width;
          Bitmap.Height := Screen.Height;
          BitBlt(Bitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
        finally
          Surface.ReleaseDC(DesktopDC);
        end;
      end;
  end;
end;

Скрин рабочего стола делается.
Но как только я пытаюсь вместо GetDesktopWindow скормить хэндл или HDC требуемого окна - SetCooperationLevel - перестаёт отрабатывать. Собственно вопрос - как с помощью DirectDraw дселать скриншот окна по его хэндлу? Может кто сталкивался уже.

UPD: замена GetDesktopWindow на

Код


if DirectDraw.SetCooperativeLevel(GetWindow(TargetHandle,gw_HWndFirst), DDSCL_EXCLUSIVE or
       DDSCL_FULLSCREEN or DDSCL_ALLOWREBOOT) = DD_OK then

так же не принесла дивидедов

Это сообщение отредактировал(а) CynicRus - 12.4.2014, 11:41

CynicRus

Дата 12.4.2014, 11:57 (ссылка)

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

Загрузка ...

Бывалый

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

Репутация: 2
Всего: 5

Во, всё. Я смог. Если вдруг кому потребуется, то снять скриншот окна с помощью DirectDraw - можно так.

Код


var
  DDSCaps: TDDSCaps;
  DesktopDC: HDC;
  DirectDraw: IDirectDraw;
  Surface: IDirectDrawSurface;
  SurfaceDesc: TDDSurfaceDesc;
  x,y: integer;
begin
  GetTargetPosition(x,y);
  if DirectDrawCreate(nil, DirectDraw, nil) = DD_OK then
    if DirectDraw.SetCooperativeLevel(GetDesktopWindow, DDSCL_EXCLUSIVE or
       DDSCL_FULLSCREEN or DDSCL_ALLOWREBOOT) = DD_OK then
    begin
      FillChar(SurfaceDesc, SizeOf(SurfaceDesc), 0);
      SurfaceDesc.dwSize := Sizeof(SurfaceDesc);
      SurfaceDesc.dwFlags := DDSD_CAPS;
      SurfaceDesc.ddsCaps.dwCaps := DDSCAPS_PRIMARYSURFACE;
      SurfaceDesc.dwBackBufferCount := 0;
      if DirectDraw.CreateSurface(SurfaceDesc, Surface, nil) = DD_OK then
      begin
        if Surface.GetDC(DesktopDC) = DD_OK then
        try
          Bitmap.Width := Screen.Width;
          Bitmap.Height := Screen.Height;
          BitBlt(Bitmap.Canvas.Handle, 0, 0, W, H, DesktopDC, x, y, SRCCOPY);
        finally
          Surface.ReleaseDC(DesktopDC);
        end;
      end;
  end;
end;

где GetTargetPostiton:

Код


procedure GetTargetPosition(out left, top: integer);
var
  Rect : TRect;
begin
  GetWindowRect(TargetHandle,Rect);
  left := Rect.Left;
  top := Rect.Top;
end;

где TargetHandle - handle требуемого окна.

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