Link to home
Start Free TrialLog in
Avatar of pc_melsa
pc_melsa

asked on

How to capture the VCD's images ?

Dear Experts, please help !
         How to capture the VCD's images ?
Thanks from apin
Avatar of Indefrei
Indefrei

Sorry all,
Like to Know, what is VCD
Indi
video cd  ??
screencapture ?

procedure TForm1.CaptureScreen;
 var
    DeskTopDC: HDc;
    DeskTopCanvas: TCanvas;
    DeskTopRect: TRect;
 begin
    DeskTopDC := GetWindowDC(GetForeGroundWindow);
    DeskTopCanvas := TCanvas.Create;
    DeskTopCanvas.Handle := DeskTopDC;
    DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
    Image1.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);
    ReleaseDC(GetDeskTopWindow,DeskTopDC);
end;

is this what your after ?
Avatar of pc_melsa

ASKER

Dear Mr. Inthe,
  Yes, you're right, what I mean is capturing screen image of VCD Player. Unfortunately,The GetWindowDC(GetForeGroundWindow) and GetWindowDC(GetDeskTopWindow) function can only get the background color of the VCD images, but not the images.
   I suspect that the VCD images have the different format. ( perhaps I can send you the bmp file, if you don't mind )
   
Best Regards,
apin

*  I use Video CD PowerPlayer version 3.22 ( http://www.cyberlink.com.tw )

Hi
i dont have vcd's just thought that was what the question was about and wondered if the getwindowdc etc would work. seems not..

i dont know if this article will help or not but maybe you can find someting here:

http://community.borland.com/article/0,1410,16037,00.html
Dear Mr inthe,
    Thanks for your help, but it still doesn't work.

Best Regards,
apin
ASKER CERTIFIED SOLUTION
Avatar of martintr
martintr

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Thank you very much !
Pegasus or Pegusus ?
Pegasus