Forum - Visual Basic 6 - Salvare immagini da webcam
Pagine: [ 1 2 3 ]
ddemarch Messaggi: 29Iscritto: 17/08/2009
Salve,
Codice sorgente - presumibilmente VB.NET
Global Const ws_child As Long = & H40000000
Global Const ws_visible As Long = & H10000000
Global Const WM_USER = 1024
Global Const wm_cap_driver_connect = WM_USER + 10
Global Const wm_cap_set_preview = WM_USER + 50
Global Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Global Const WM_CAP_DRIVER_DISCONNECT As Long = WM_USER + 11
Global Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_USER + 41
Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( ByVal hWnd As Long , ByVal wMsg As Long , ByVal wParam As Long , ByVal lParam As Long ) As Long
Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" ( ByVal a As String , ByVal b As Long , ByVal c As Integer , ByVal d As Integer , ByVal e As Integer , ByVal f As Integer , ByVal g As Long , ByVal h As Integer ) As Long
Nel form:
Codice sorgente - presumibilmente VB.NET
Private Sub Form_Load( )
Dim hwdc As Long
Dim startcap As Boolean
Dim temp As Long
hwdc = capCreateCaptureWindow( "visione" , ws_child Or ws_visible, 0, 0, 320, 240, Picture1.hWnd , 0)
If ( hwdc <> 0) Then
temp = SendMessage( hwdc, wm_cap_driver_connect, 0 , 0 )
temp = SendMessage( hwdc, wm_cap_set_preview, 1 , 0 )
temp = SendMessage( hwdc, WM_CAP_SET_PREVIEWRATE, 30 , 100 )
'temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
startcap = True
Else
MsgBox ( "No Webcam found" )
End If
End Sub
Ultima modifica effettuata da ddemarch il 26/08/2009 alle 13:42
GrG Member )Messaggi: 3430Iscritto: 21/08/2007
Devi usare questo codice che metterai nel button
Codice sorgente - presumibilmente Plain Text
SendMessage hwdc, WM_CAP_EDIT_COPY, 0, 0
Picture1.Picture = Clipboard.GetData
SavePicture Picture1.Image, "percorso\immagine.bmp"
ddemarch Messaggi: 29Iscritto: 17/08/2009
Grazie GrG, però c'è un problemino: l'immagine viene salvata ma vedo solo una bmp del colore dello sfondo della pictureBox..
http://img41.imageshack.us/img41/8711/fotoary.png
Ultima modifica effettuata da ddemarch il 26/08/2009 alle 15:38
GrG Member )Messaggi: 3430Iscritto: 21/08/2007
Mi ero dimenticato di dirti di aggiungere queste dichiarazioni
Ultima modifica effettuata da GrG il 26/08/2009 alle 16:54
ddemarch Messaggi: 29Iscritto: 17/08/2009
Ho aggiunto ma nn funzia ancora..
Ultima modifica effettuata da ddemarch il 26/08/2009 alle 17:06
GrG Member )Messaggi: 3430Iscritto: 21/08/2007
mm.. ok mi sono messo a provare, se vedi nella form load c'è questa stringa
ddemarch Messaggi: 29Iscritto: 17/08/2009
Eh GrG mi dispiace ma nn mi funzia ancora..
Codice sorgente - presumibilmente VB.NET
Global Const ws_child As Long = & H40000000
Global Const ws_visible As Long = & H10000000
Global Const WM_USER = 1024
Global Const wm_cap_driver_connect = WM_USER + 10
Global Const wm_cap_set_preview = WM_USER + 50
Global Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Global Const WM_CAP_DRIVER_DISCONNECT As Long = WM_USER + 11
Global Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_USER + 41
Global Const WM_CAP As Integer = & H400
Global Const WM_CAP_EDIT_COPY As Long = WM_CAP + 30
Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( ByVal hWnd As Long , ByVal wMsg As Long , ByVal wParam As Long , ByVal lParam As Long ) As Long
Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" ( ByVal a As String , ByVal b As Long , ByVal c As Integer , ByVal d As Integer , ByVal e As Integer , ByVal f As Integer , ByVal g As Long , ByVal h As Integer ) As Long
Form:
Codice sorgente - presumibilmente VB.NET
Private Sub Form_Load( )
Dim hwdc As Long
Dim startcap As Boolean
Dim temp As Long
hwdc = capCreateCaptureWindow( "visione" , ws_child Or ws_visible, 0, 0, 320, 240, Picture1.hWnd , 0)
If ( hwdc <> 0) Then
temp = SendMessage( hwdc, wm_cap_driver_connect, 0 , 0 )
temp = SendMessage( hwdc, wm_cap_set_preview, 1 , 0 )
temp = SendMessage( hwdc, WM_CAP_SET_PREVIEWRATE, 30 , 0 )
'temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
startcap = True
Else
MsgBox ( "No Webcam found" )
End If
End Sub
Private Sub salva_Click( )
SendMessage hwdc, WM_CAP_EDIT_COPY, 0 , 0
Picture1.Picture = Clipboard.GetData
SavePicture Picture1.Image , "C:\Documents and Settings\...\immagine.bmp"
End Sub
Ultima modifica effettuata da ddemarch il 27/08/2009 alle 8:37
GrG Member )Messaggi: 3430Iscritto: 21/08/2007
devi spostare la dichiarazione della variabile hwdc fuori dalla sub form_load quindi metterla "in generale"
Ultima modifica effettuata da GrG il 27/08/2009 alle 10:34
ddemarch Messaggi: 29Iscritto: 17/08/2009
Funziona!! Ho capito l'errore..
| 
