| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #73 [Vb] (จาก IP: 203.156.48.199)
เกี่ยวกับเว็บแคมครับ
อยากได้โค้ดที่ติดต่อกับเว็บแคมและสามารถตรวจจับการเคลื่อนไหวได้อ่ะครับ พอจะมีไหมครับ
|
| จากคุณ
:
เด็กตาดำๆ / ghostza@hotmail.com [2005-10-30 16:58:46]
|
|
ความคิดเห็น #95 (จาก IP: 203.156.40.157)
ช่วยดูโค้ดนี้ทีได้ป่าวครับ ใครรันได้ ช่วยบอกผมทีสิ ต้องใช้คอมโปเน้นอะไรรึเปล่า ขอบคุณครับ
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
Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054
-----------------------Form Load------------
inten = 25
'The tolerance of recognizing the pixel change
Tolerance = 35
Tppx = Screen.TwipsPerPixelX
Tppy = Screen.TwipsPerPixelY
ReDim POn(640 / inten, 480 / inten)
ReDim P(640 / inten, 480 / inten)
STARTCAM
-------------------
------Sub STARTCAM---------
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0)
DoEvents
SendMessage mCapHwnd, CONNECT, 0, 0
Timer1.Enabled = True |
| จากคุณ
:
เด็กตาดำๆ / ghostza@hotmail.com [2005-11-01 19:20:22]
|
|
ความคิดเห็น #99 (จาก IP: 203.185.129.244)
จะลองดูนะ
|
| จากคุณ
:
sup98 [2005-11-06 19:04:03]
|
|
ความคิดเห็น #100 (จาก IP: 203.185.129.244)
| เดี๋ยวผมจะนำมาเขียนบทความหน่อยและกันครับ |
| จากคุณ
:
9'M / webmaster@sourcecode.in.th [2005-11-07 19:21:07]
|
|
ความคิดเห็น #25311 (จาก IP: 125.24.192.166)
| อยากให้เก็บเป็น ไฟล์ .avi ทำยังไงครับ ขอcode ก็ดีครับ |
| จากคุณ
:
tonkra / ton_1148@hotmail.com [2007-01-05 12:25:31]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
