摄像头速度问题，急盼解决，在线等待...

Question

代码如下：
VideoCap1.GrabFrameNoStop;
  VideoCap1.SaveToClipboard;
  image1.picture.Bitmap.LoadFromClipBoardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
  videocap1.SingleImageFile := filename;
  videocap1.GrabFrameNoStop;
  //showmessage(filename);
  //image1.Picture.SaveToFile(filename);
  tmpJPG := TJPEGImage.Create;
  try
    tmpJPG.Assign(Image1.Picture.Graphic);
    tmpJPG.CompressionQuality := pb_image_compress;
    tmpJPG.SaveToFile(filename);
  finally
    tmpJPG.Free;
  end;感觉速度及其慢请各位大虾给出建议！谢谢！！

Answer 1

tmpJPG := TJPEGImage.Create;
  try
    tmpJPG.Assign(Image1.Picture.Graphic);
    tmpJPG.CompressionQuality := pb_image_compress;
    tmpJPG.SaveToFile(filename);
  finally
    tmpJPG.Free;
如果tm;pJPG每次都要用的话就不要每次CREATE. CREATE一次就好了.
最后不用时,再FREE.会提高不少速度.