Miller

Este codigo te permite capturar imagenes y videos... espero que te sirva...
local oform
oform = createobject("tform")
oform.show(1)
* end of main
define class tform as form
#definewm_cap_start 0x0400
#define wm_cap_driver_connect (wm_cap_start+10)
#define wm_cap_driver_disconnect (wm_cap_start+11)
#define wm_cap_driver_get_caps (wm_cap_start+14)
#define wm_cap_set_preview(wm_cap_start+50)
#define wm_cap_set_overlay (wm_cap_start+51)
#define wm_cap_set_previewrate (wm_cap_start+52)
#define wm_cap_get_status (wm_cap_start+54)
#define wm_cap_grab_frame(wm_cap_start+60)
width=340
height=310
autocenter=.t.
caption="captura de fotos / video"
minbutton=.f.
maxbutton=.f.
hwindow=0
hcapture=0
capwidth=0
capheight=0

capoverlay=0

add objectcmdgetframe as commandbutton with default=.t.,;
left=15, top=264, height=27, width=90, caption="tomar foro",;
enabled=.f.
add object cmdpreview as commandbutton with default=.t.,;
left=106,top=264, height=27, width=100, caption="tomar video",;
enabled=.f.
add object cmdclose as commandbutton with cancel=.t.,;
left=250, top=264, height=27, width=70, caption="salir"
procedureactivate
if this.hwindow = 0
declare integer getfocus in user32
this.hwindow = getfocus()
this.createcapturewindow
this.driverconnect
endif

procedure destroy
this.releasecapturewindowprocedure cmdclose.click
thisform.release
procedure cmdgetframe.click
thisform.getframe
procedure cmdpreview.click
thisform.startpreview
procedure getframe
this.msg(wm_cap_grab_frame, 0,0)procedure createcapturewindow
#define ws_child 0x40000000
#define ws_visible 0x10000000
declare integer capcreatecapturewindow in avicap32;
string lpszwindowname, long dwstyle,;
integerx, integer y,;
integer nwidth, integer nheight,;
integer hparent, integer nid
this.hcapture = capcreatecapturewindow("",;
ws_child+ws_visible,;

10,8,320,240, this.hwindow, 1)
procedure...