|
|
- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #994 [Web] (จาก IP: 125.24.175.66)
นำไฟล์วีดีโอมาใส่ใน web ได้ยังไงคะ
มีไฟลืวีดีโออยู่อยากทราบว่าจะนำมาใส่ใน web ได้ยังไงคะ ช่วยตอบหน่อยนะคะขอบคุณคะ
|
จากคุณ
:
tanoy / yumijang_k@hotmail.com [2007-03-21 23:32:04]
|
|
ความคิดเห็น #25461 (จาก IP: 58.136.51.169)
http://www.dotnet4all.com/dotnet-code/2004/12/video-capture.html video capture
by:Ramanaji
Hi I doing small applicaiton which capture the video and show in picture box. Its working fine. The samething I would like to do with socket prog Server will caputre the video and client has to show that video. I am here with sending the code which I use. Please any one help me how to send this info thru socket program and show on client place.
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()
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 End Sub
|
จากคุณ
:
ramanahi / ramanahi@hotmail.com [2007-03-22 05:53:36]
|
|
ความคิดเห็น #25462 (จาก IP: 203.146.147.190)
http://www.mioplanet.com/rsc/embed_mediaplayer.htm
http://www.jakeludington.com/project_studio/20050914_embedding_windows_media_player_wmv.html |
จากคุณ
:
sup98 [2007-03-22 10:52:55]
|
|
|
- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
|
|