Arkadaşlar,
MediaPlayer'da oynattığım videonun resimlerini almak için aşağıdaki kodları kullanarak komple masaüstünü kopyalamaya ve bir resim dosyasına aktarmaya çalışıyorum (Sonradan sadece MediaPlayer ekranını içinden almak üzere). avi uzantılı dosyalarda bu gerçekleşiyor ancak mpg uzantılı dosyalarda video görüntüsü yerine siyah bir görüntü elde edebiliyorum. Bu sorunu nasıl giderebilirim?
Graphics::TBitmap *pBitmap = new Graphics::TBitmap;
TJPEGImage *JPeg = new TJPEGImage();
HWND Hwnd = ::GetDesktopWindow();
HDC Hdc = ::GetWindowDC(Hwnd);
pBitmap->Width = Screen->Width;
pBitmap->Height = Screen->Height;
pBitmap->PixelFormat = pf24bit;
::BitBlt(pBitmap->Canvas->Handle, 0, 0, Screen->Width, Screen->Height, Hdc, 0, 0, SRCCOPY);
JPeg->Assign(pBitmap);
AnsiString UFileame = ExtractFilePath(Application->ExeName) + "screen.jpg";
JPeg->SaveToFile(UFileName);
delete JPeg;
::ReleaseDC(Hwnd, Hdc);
delete pBitmap;
Saygılarımla!