====怎样从视频文件中抓取一帧图象或者取其中一段视频，用什么控件？？====

Question

各位大侠帮帮忙~~~十万火急~~~~

Answer 1

DirectShow DSPACK 里有个例子 .

Answer 2

用tvideograbber控件!可以抓图和一段视频,并且可以在视频帧上面任意加入字符,很方便

Answer 3

用DSPACK控件
DSPACK231\Demos\D6-D7\videocap
加一段代码上去：
procedure TMainForm.Button1Click(Sender: TObject);
var
    aCanvas: TCanvas;
    rect: TRect;
    bmP: TBitmap;
    dc: HDC;
begin
    rect := VideoWindow.ClientRect;
    aCanvas := TCanvas.Create;
    try
        dc := GetWindowDC(VideoWindow.Handle);
        aCanvas.Handle := dc;        bmp := TBitmap.Create;
        try
            bmp.Width := rect.Right - rect.Left;
            bmp.Height := rect.Bottom - rect.Top;
            bmp.Canvas.CopyRect(rect, aCanvas, rect);            Image1.Picture.Bitmap.Assign(bmp);
            Image1.savefile(路径）；   
        finally
            bmp.Free;
        end;
    finally
        aCanvas.Free;
    end;
end;

Answer 4

http://www.progdigy.com/dspack/
这里去下！