Keskustelu: Ohjelmointikysymykset: VB6 Jäätyy Webcamia käsitellessä

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long


Private mCapHwnd As Long

 Const CONNECT As Long = 1034

 Const DISCONNECT As Long = 1035

 Const GET_FRAME As Long = 1084

 Const COPY As Long = 1054

Private Sub Form_Load()
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, radarcam.hwnd, 0)

DoEvents
SendMessage mCapHwnd, CONNECT, 0, 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub

Private Sub Form_Terminate()
SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub

Private Sub refresRadar_Timer()

SendMessage mCapHwnd, GET_FRAME, 0, 0 'Get Current Frame

        SendMessage mCapHwnd, COPY, 0, 0 'Copy Current Frame to ClipBoard

        radarcam.Picture = Clipboard.GetData 'Put ClipBoard's Data to picOutput
End Sub