Descargar Archivo
Titulo
Capturar imagenes de Webcam
Descripcion
Para capturar imagenes desde una Webcam o Camara digital
Descargas
4351
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> cmdStart_Click() cmdStart.Enabled = <span style="color: #0000FF">False</span> cmdStop.Enabled = <span style="color: #0000FF">True</span> <span style="color: #008000">'Setup a capture window (You can replace "WebcamCapture" with watever you want)</span> mCapHwnd = capCreateCaptureWindow(<span style="color: #B22222">"WebcamCapture"</span>, 0, 0, 0, 320, 240, <span style="color: #0000FF">Me</span>.hwnd, 0) <span style="color: #008000">'Connect to capture device</span> DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0 tmrMain.Enabled = <span style="color: #0000FF">True</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> cmdStop_Click() cmdStart.Enabled = <span style="color: #0000FF">True</span> cmdStop.Enabled = <span style="color: #0000FF">False</span> tmrMain.Enabled = <span style="color: #0000FF">False</span> <span style="color: #008000">'Make sure to disconnect from capture source!!!</span> DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Form_QueryUnload(Cancel <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>, UnloadMode <span style="color: #0000FF">As</span> <span style="color: #0000FF">Integer</span>) <span style="color: #0000FF">If</span> cmdStop.Enabled = <span style="color: #0000FF">False</span> <span style="color: #0000FF">Then</span> <span style="color: #008000">'Make sure to disconnect from capture source - if it is connected upon termination the program can become unstable</span> DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0 <span style="color: #0000FF">End</span> <span style="color: #0000FF">If</span> <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> tmrMain_Timer() <span style="color: #0000FF">On</span> <span style="color: #0000FF">Error</span> <span style="color: #0000FF">Resume</span> <span style="color: #0000FF">Next</span> <span style="color: #008000">'Get Current Frame</span> SendMessage mCapHwnd, GET_FRAME, 0, 0 <span style="color: #008000">'Copy Current Frame to ClipBoard</span> SendMessage mCapHwnd, COPY, 0, 0 <span style="color: #008000">'Put ClipBoard's Data to picOutput</span> picOutput.Picture = Clipboard.GetData <span style="color: #008000">'Clear ClipBoard</span> Clipboard.Clear <span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span> <span style="color: #008000">' En un Modulo</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SendMessage Lib <span style="color: #B22222">"USER32"</span> Alias <span style="color: #B22222">"SendMessageA"</span> (<span style="color: #0000FF">ByVal</span> hwnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> wMsg <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> wParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, lParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Any</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> capCreateCaptureWindow Lib <span style="color: #B22222">"avicap32.dll"</span> Alias <span style="color: #B22222">"capCreateCaptureWindowA"</span> (<span style="color: #0000FF">ByVal</span> lpszWindowName <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, <span style="color: #0000FF">ByVal</span> dwStyle <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> X <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> Y <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> nWidth <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> nHeight <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> hwndParent <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> nID <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> mCapHwnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Const</span> CONNECT <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = 1034 <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Const</span> DISCONNECT <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = 1035 <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Const</span> GET_FRAME <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = 1084 <span style="color: #0000FF">Public</span> <span style="color: #0000FF">Const</span> COPY <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span> = 1054</font></pre>
