سلام دوستان من یه سورس یا حالا اموزش میخام که کار با وب کم رو اموزش بده
یعنی بتونه تصویر وب کم رو نمایش بده و عکس بگیره و ضبت هم بکنه اگه بشه
بهراه صدا و اون ها رو ذخیره کنه
Printable View
سلام دوستان من یه سورس یا حالا اموزش میخام که کار با وب کم رو اموزش بده
یعنی بتونه تصویر وب کم رو نمایش بده و عکس بگیره و ضبت هم بکنه اگه بشه
بهراه صدا و اون ها رو ذخیره کنه
مثل اینکه ایچکی نیست کمک کنه
شمام سافت جان شما که هراه من بودید و در هرحال یار رو یاور من بودید در این زمینه هم کمکی بکنید
1 هفته تکمیل شد
ای هفتس این تایپ رو دادم هیچ کی جواب نداده
واقعا باید مدیر یه فکری برای این بیتوجهی بکنه !
راتی خودم پیدا کردم حرفه ایشم پیدا کردم پست رو میرایش میکن میزارم
برایم میل بزن برایت بفرستم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ترم پیش یکی از بچه ها یه کنفرانس واسه ocx ای بود که یادم نیست اسمش چی بود ولی واسه کار با وب کم بود ارائه داد ای دیش اینه : halgir_m ازش سوال کن 100% جواب میگیری
برای کار با WEB cam یا هر Devic که توانایی Stream تصویر داشته باشه تو ویندوز API هست. تو آخرین فصل کتاب معروف PC interface به طور کامل تشریح شده.
اگر نمی تونی پیدا کنی برات از کتاب بزارم.
نقل قول:
با سلام
متشکر میشوم لطفا زحمات بکشید .
سلامنقل قول:
چرا در پیغام خصوصی؟ خوب این جا قرار بده تا همه استفاده کنیم. :)
ممنون
بای
هر وقت یه Device تصویری مثل Webcam یا هر Stream دیگه ای نصب کنیم فایل AVICAP32.DLL تو پوشه ی System32 کپی می شه که توابع عمومی کار با Webcam ها رو مستند کرده.
یه فراخوانی مهم اینه:
کد:Option Explicit
Const ws_visible = &H10000000
Const ws_child = &H40000000
Const WM_USER = 1024
Const WM_CAP_EDIT_COPY = WM_USER + 30
Const wm_cap_driver_connect = WM_USER + 10
Const wm_cap_set_preview = WM_USER + 50
Const wm_cap_set_overlay = WM_USER + 51
Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Const WM_CAP_SEQUENCE = WM_USER + 62
Const WM_CAP_SINGLE_FRAME_OPEN = WM_USER + 70
Const WM_CAP_SINGLE_FRAME_CLOSE = WM_USER + 71
Const WM_CAP_SINGLE_FRAME = WM_USER + 72
Const DRV_USER = &H4000
Const DVM_DIALOG = DRV_USER + 100
Const PREVIEWRATE = 30
Private 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
Private 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
Dim hwndc As Long
Dim saveflag As Integer
Dim pictureindex As Integer
Dim filter1(-1 To 1, -1 To 1) As Single
Dim filter2(-1 To 1, -1 To 1) As Single
Dim temp As String
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
On Error GoTo handler:
hwndc = capCreateCaptureWindow("CaptureWindow", ws_child Or ws_visible, 0, 0, PichWnd.Width, PichWnd.Height, PichWnd.hWnd, 0)
If (hwndc <> 0) Then
temp = SendMessage(hwndc, wm_cap_driver_connect, 0, 0)
temp = SendMessage(hwndc, wm_cap_set_preview, 1, 0)
temp = SendMessage(hwndc, WM_CAP_SET_PREVIEWRATE, PREVIEWRATE, 0)
temp = SendMessage(Me.hWnd, WM_CAP_EDIT_COPY, 1, 0)
Picture1.Picture = Clipboard.GetData
Else
MsgBox "Unable to capture video.", vbCritical
End If
Exit Sub
handler:
End
End Sub