下载一个示例，看有否帮助
[url]http://upload.programfan.com/upfile/200603161827320.rar[/url]

徐哥：我下载了你的给我的这个小表单，可惜不能用。不过，我还是要谢谢你的热心帮助。

用vfp7.0以上版本就可运行，你试一试吧。

徐哥：真谢谢你，我在VFP7.0下运行挺好的。不过这个问题解决了，可以后还会有更多的问题请教，请多多赐教

徐哥：我给你发了个邮件，请注意查收

密码是：YQZK

徐哥：你给的视频捕捉表单中的‘开始’按钮的click事件中的语句是这样的：
this.Parent.parent.form1.Visible=.t.

WM_USER = 1024
WM_CAP_START = WM_USER
WM_CAP_STOP = WM_CAP_START + 68
WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10

WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
WM_CAP_SAVEDIB = WM_CAP_START + 25
WM_CAP_GRAB_FRAME = WM_CAP_START + 60
WM_CAP_SEQUENCE = WM_CAP_START + 62
WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20
WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+  63
WM_CAP_SET_OVERLAY =WM_CAP_START+  51    
WM_CAP_SET_PREVIEW =WM_CAP_START+  50    
WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6
WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2
WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3
WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5
WM_CAP_SET_SCALE=WM_CAP_START+  53        
WM_CAP_SET_PREVIEWRATE=WM_CAP_START+  52


 hWndC = capCreateCaptureWindowA('My Own Capture Window',1342177280,0,0,300,400,this.Parent.Parent.form1.HWnd ,0)
  IF   hWndC <> 0  
  
  
     SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0)
     SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0)
     SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0)
     SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0)
     SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0)
     SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0)
     SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0)
     SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0)
     this.Parent.parent.form1.Activate
  ENDIF

这个产生的捕捉窗口是横向的，图像大小是宽640象素，高480象素的。我想采用的格式是宽(300)X高(400)，宽176象素，高236象素的格式。由于是菜鸟，不知这里哪个参数可以调整成我需要的图像格式。另外，我从网上也查到一些delphi捕捉视频图象的程序，在VFP中不知能不能直接使用。请指教。

有那位大侠作国使用视频摄像头采集照片是在视频显示窗口使用矩形裁剪定位框的示例？谢谢，能否共享一下！

徐哥：又打扰您了。请问在VFP中怎样把BMP文件压缩成JPG文件？在压缩时能不能实现等比缩小？

徐老大:给的小程序的确能够实现图像捕捉!!但图象大小如何调整??