在MediaPlay中播出的图像用什么方法截取阿

[roc_fu]

看到过很多截取MediaPlayer播出窗口的代码，可是试验下来都只能在播放AVI文件的时候截取到图像，如果播放的是MPG文件，或是别的用MpegVideo设备解码的图像，不管用什么方法截取得都是黑屏，哪位高人知道怎么才能截取告诉小弟好么？
我用SPY ++看过，播放AVI的时候，是在Panel上播出的，播放MPG的时候，Panel上附加了一层Windows Media Player窗口，我用的是Delphi6 + win2000和winXP

[roc_fu]

对于这个问题，有一个失误之处，就是其实是在XP下才会友这个问题，2000下是正常的

[hjd_cw]

强烈关注！！！

[xiachedan]

up

[knock]

你搜索一下以前的帖子就知道，你的这个贴子是很难得到满意的回答的。
我以前早就问过类似的问题，也都结贴了，可就是没有答案·！！！！
在delphibbs里也问了，而且出300分！没人给出满意答案。我今天就结了那上面的帖子，给了一个兄弟200，另外两个各50，呵呵，这样他们都上富翁榜了！
兄弟俺还是穷人一个。。。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1351854

[97132]

favorite

[cbdiy]

用mci试一下,应该没问题!!

[konichiha]

在delphi深度历险里有你所需要的组件下载,
http://vcl.vclxx.org,而且带有源代码

[roc_fu]

哇，深度探险，一头扎下去，几个小时没找到相关组件，楼上的兄弟，说具体点好不好

[hongqi162]

同意楼上

[toplor]

我写了一段代码，用来抓取ＡＶＩ、播放VCD（文件后缀名为.data或.mpg或.mpeg）的图像时，很有效，诸君不防一试：）

procedure Tmainform.Capture1Click(Sender: TObject);
var
mybmp:tbitmap;
mycanvas:tcanvas;
dc:hdc;
r:trect;
ext:string;
capw,caph:integer;
begin
　mediaplayer1.display:=fullform;
mediaplayer1.play;
mediaplayer1.pauseonly;
ext:=uppercase(extractfileext(mediaplayer1.filename));

if(ext='.DAT')or(ext='.MPG')or(ext='.MPEG')then //.AVI不用如此处理
begin
captureform.Show;//Captureform为另外一个窗口，用来将FullForm盖住,抓到的图像存到其上的Image中
sleep(1000);
captureform.hide;
application.ProcessMessages ;
end;
try
capw:=fullform.clientwidth;
caph:=fullform.clientheight;
mybmp:=tbitmap.create;
mycanvas:=tcanvas.create;
dc:=getdc(fullform.Handle);
mycanvas.Handle:=dc;
r:=fullform.ClientRect ;
mybmp.width:=capw;
mybmp.Height:=caph;
mybmp.Canvas.copyrect(r,mycanvas,r);
with captureform do
begin
image1.width:=capw;
image1.height:=caph;
image1.Picture.bitmap:=mybmp;
image1.Update;
end;
finally
releasedc(fullform.handle,dc);
mybmp.free;
mycanvas.free;
end;

messagebeep(0);//提示抓取成功

end;


－－－－－－－－－－－－－－－－－－－－－－－
风过西窗客渡舟船无觅处
年年一川新草遥看却似旧

[roc_fu]

起始这个问题是DX8以上才开始的，和操作系统也没什么关系，楼上说的方法同样也抓不住啊

[roc_fu]

同志们，继续阿，我还等着呢

[PatchHome]

用<ALT>+<Print Screen>直接抓到缓冲区算了。再用画笔保存。

[wulangboy]

强烈关注.我学的是远程教育就是想把realplay 和mediaplay截下来!
世面上有不有这个软件哦!