گرفتن تصوير از وب كم

[kimia]

سلام !
چند روز پيش داشتم به خودم مي گفتم که : «اين که نشد وضع! تو هي ميري در ايران ويج سوال مي پرسي و بعد هم بچه ها محبت مي کنند به سوالات جواب مي دهند خوب بايد به ازاي سوالاتت برنامه هم بگذاري ديگه... اينکه فقط بخواهي سوال بپرسي خوب
کم لطفي هستش...» بعد به خودم جواب دادم :
«خوب آخه ما که هر برنامه اي نوشتيم دوستان ايران ويجي ما کلي روش اما و اگر گذاشتند. يه مشکل اساسي هم که وجود داره اينه که برنامه هام با ويژوال سي++ هستش. خوب وقتي برنامه هام به درد کسي نمي خوره چرا بايد هي بنويسم؟!

در هر حال اين يه لينک از برنامه هام هستش :
http://www.iranvig.com/modules.php?name=...thor=kimia

اگر خواستيد بفرماييد تا باز هم بنويسم.
و اما سوال :

خواستم بدونم که چطوري مي شه وب کم رو کنترل کرد؟ ببينيد: هر ثانيه از فيلم 29عکس هستش که پشت سر هم براي ما نشون داده مي شه. خوب من حالا قصد دارم برنامه اي بنويسم که هر 29 عکس وب کم را بتوانم ذخيره کنم. در واقع هر يک ثانيه اي که وبکم
روشن است 29 عکس متفاوت ذخيره گردد. دقيقا متوجه شده ايد که چي مي خوام؟ مي خواهم فيلمي که وب کم مي سازد را بصوت عکس به عکس ذخيره کنم.

اميدوارم که تونسته باشم منظورم رو رو برسونم.

موفق باشيد
کيميا

[ashkan]

يه برنامه قبلا آقا مهدي گذاشته شايد اوني نباشه كه شما ميخوايي ببين بعد
http://www.iranvig.com/modules.php?name=...le&sid=473

[ha_60]

من اين كد ها رو به هر كسي نمي دم ها كلي گشتم تا پيدا كردم
براي سرعت در يافت من 66ms گزاشتم شما هر چی دوست داری بزار

کد:

Private Sub Form_Load()
    
    Dim lpszName As String * 100
    Dim lpszVer As String * 100
    Dim Caps As CAPDRIVERCAPS
    
    frm1.Show
    frmSplash.Show
    
    '//Create Capture Window
    capGetDriverDescriptionA 0, lpszName, 100, lpszVer, 100  '// Retrieves driver info
    lwndC = capCreateCaptureWindowA(lpszName, WS_CAPTION Or WS_THICKFRAME Or WS_VISIBLE Or WS_CHILD, 0, 0, 160, 120, Me.hwnd, 0)
    
    '// Set title of window to name of driver
    SetWindowText lwndC, lpszName
    
    '// Set the video stream callback function
    capSetCallbackOnStatus lwndC, AddressOf MyStatusCallback
    capSetCallbackOnError lwndC, AddressOf MyErrorCallback
    
    '// Connect the capture window to the driver
    If capDriverConnect(lwndC, 0) Then
        '/////
        '// Only do the following if the connect was successful.
        '// if it fails, the error will be reported in the call
        '// back function.
        '/////
        '// Get the capabilities of the capture driver
        capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps)
        
        
        '// Turn Scale on
        capPreviewScale lwndC, True
            
        '// Set the preview rate in milliseconds
        capPreviewRate lwndC, 66
        
        '// Start previewing the image from the camera
        capPreview lwndC, True
            
        '// Resize the capture window to show the whole image
        ResizeCaptureWindow lwndC

    End If


End Sub

Private Sub Form_Unload(Cancel As Integer)

    '// Disable all callbacks
    capSetCallbackOnError lwndC, vbNull
    capSetCallbackOnStatus lwndC, vbNull
    capSetCallbackOnYield lwndC, vbNull
    capSetCallbackOnFrame lwndC, vbNull
    capSetCallbackOnVideoStream lwndC, vbNull
    capSetCallbackOnWaveStream lwndC, vbNull
    capSetCallbackOnCapControl lwndC, vbNull
    
    Unload frm1
    Unload frmSplash

End Sub

Private Sub mnuAlwaysVisible_Click()
    
    mnuAlwaysVisible.Checked = Not (mnuAlwaysVisible.Checked)
    
    If mnuAlwaysVisible.Checked Then
        SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
    Else
        SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
    End If


End Sub

[kimia]

با سلام

نه اشكان جان من چيز ديگري مي خواستم.

و اما آقا حامد (يا شايد هم هادي - يادم نيست) . از اينكه لطف كرديد و اين كد را در اختيارم گذاشتيد سپاسگذارم. يك قدري باهاش كار مي كنم ببينم چقدر راسته كارم است.

با سپاس

كيميا