Корректное снятие видео при копировании образа экрана [D7, WinXP]
dmitry_12_08_74 © (2008-03-11 14:26:00)
Если во время копирования образа экрана запущен 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;
DVM (2008-03-11 14:40:00) [1]
там оверлей используется поэтому и не получается
Наверх 
ЧАТ |
Орешник |
|
