-
Если во время копирования образа экрана запущен Media Palyer во время показа им видео, на снимке образа экрана вместо кадра из фильма останется чёрное пустое место. Как корректно скопировать кадр?
Сейчас копирую образ экрана с помощью процедуры из библиотеки jcl_&_jvcl, модуль JclGraphics:
procedure ScreenShot(bm: TBitmap; Left, Top, Width, Height: Integer; Window: THandle); overload; var WinDC: HDC; Pal: TMaxLogPalette; begin bm.Width := Width; bm.Height := Height;
// Get the HDC of the window... WinDC := GetDC(Window); if WinDC = 0 then raise EJclGraphicsError.CreateRes(@RsNoDeviceContextForWindow);
// Palette-device? if (GetDeviceCaps(WinDC, RASTERCAPS) and RC_PALETTE) = RC_PALETTE then begin FillChar(Pal, SizeOf(TMaxLogPalette), #0); // fill the structure with zeros Pal.palVersion := $300; // fill in the palette version
// grab the system palette entries... Pal.palNumEntries := GetSystemPaletteEntries(WinDC, 0, 256, Pal.palPalEntry); if Pal.PalNumEntries <> 0 then bm.Palette := CreatePalette(PLogPalette(@Pal)^); end;
// copy from the screen to our bitmap... BitBlt(bm.Canvas.Handle, 0, 0, Width, Height, WinDC, Left, Top, SRCCOPY);
ReleaseDC(Window, WinDC); // finally, relase the DC of the window end;
-
там оверлей используется поэтому и не получается
|