一个视频问题，把我搞几天了

一个视频的问题，把我搞几天了，也不知道是什么原因，网上找了几天也没有找到个答案，希望坛里的朋友能帮我看看。

原因就是： vmf老是提示格式不对。

procedure TVideoForm.Button3Click(Sender: TObject);
var FInInfo: TBitmapInfo;
begin
  FillChar(FInInfo.bmiHeader, SizeOf(TBitmapInfoHeader), 0);
  with FInInfo.bmiHeader do
  begin
    biBitCount := 24;
    biCompression :=BI_RGB;
    biHeight := 120;
    biPlanes := 1;
    biSize := SizeOf(TBitmapInfoHeader);
    biWidth := 160;
    biXPelsPerMeter := 0;
    biYPelsPerMeter := 0;
  end;
  VideoCap1.VideoPreview := True;
  VideoCap1.SetBitmapInfo(@FInInfo,SizeOf(BITMAPINFO));
   VideoCap1.StartCapture;
end;


朋友们可以下载附件，按捕获运行情况如图，老是提示格式不对,要做什么样的转换，谢谢！我这边有一套别人写的视频聊天源代码，什么都好了， 就是视频不行，如果有心人士能搞定，我代码也给他一套，一起来调试。

[ 本帖最后由 jockyxiao 于 2010-3-17 09:53 编辑 ]