小弟前段时间曾做过保证要公开该问题的code(vc,bcb,dephi)，刚开始小弟用拷屏的方法可抓下来总是黑呼呼的一片，后来在几位大虾的提示下用vc+directshow实现那该功能。

可这样一来，就必须用directshow来实现播放与初衷不合.从此我就钻进那死胡同，总是想将

directshow与activemove组件，directshow与mediaplay组件结合起来，利用IBasicVideo Interface来达到目标。可读遍那与此相关的directsdk的头文件，都没有找那结合的办法（那位大虾实现那，请指点小弟，小弟先谢那！）。一直苦无进展，市面上有关的书都翻遍那。无用！（可见那些所谓的“高级编程技巧”都是狗屁，难度大一点的问题都回避，全是乱抄，tmd骗子）,有一天小弟重读The IBasicVideo interface supports the video properties of a generic video window. Generally, this is a video renderer that draws video into a window on the display. (msdn),忽然记起在读dephihelp是有一段相似

TPaintBox provides a canvas that applications can use for rendering an image.(dephihelp)遂想用paintbox可能可以，try->success,code如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, MPlayer, ExtCtrls, StdCtrls, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

filw1: TMenuItem;

open1: TMenuItem;

close1: TMenuItem;

Button1: TButton;

OpenDialog1: TOpenDialog;

PaintBox1: TPaintBox;

MediaPlayer1: TMediaPlayer;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure PaintBox1Paint(Sender: TObject);

procedure open1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

imgbitmap:TBitmap;

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

imgbitmap:=TBitmap.Create;

imgbitmap.Height:=200;

imgbitmap.Width:=200;

imgbitmap.Canvas.Rectangle(0,0,200,200);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

imgbitmap.Free;

end;

procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.CopyRect(Rect(0,0,200,200),imgbitmap.Canvas,Rect(0,0,200,200));

end;

procedure TForm1.open1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName:=OpenDialog1.FileName;

MediaPlayer1.Open;

MediaPlayer1.Display:=Form1;

MediaPlayer1.DisplayRect:=Rect(10,10,200,200);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

imgbitmap.Canvas.CopyRect(Rect(0,0,200,200),form1.Canvas,Rect(10,10,200,200));

PaintBox1.Invalidate;

imgbitmap.SaveToFile('d:\\1234567.bmp');

end;

end.

test环境win2000+dephi6.0

article from "鄙视那些转帖不贴明来源的人"