■50315 / inTopicNo.1) |
VB6 動画をキャプチャーする方法 |
□投稿者/ つつじ (1回)-(2010/06/03(Thu) 14:46:42)
|
分類:[VB6 以前]
はじめましてVB6 初心者です。
XP VB6 で WebBrowser1.Navigate "http://192.168.1.111" で Web カメラからの動画を
Form に 表示させています。この動画を 30秒間隔で bitmap か jpeg
で 静止画を保存したいのですが。
まずは、ボタンを押したら保存と考えたのですが、上手くいきません。
フレーム部分(設定などの部分)は取れましたが動画部分がとれません。
真っ白です。
yahoo などのブラウザは動画の部分も静止画でキャプチャできました。
どうしたらいいでしょうか。助けて下さい。
なお、Web カメラは SAVITMICRO の VIJE IP-1300H です。
MPEG4 MJPEG H.264などフレームの設定で選べるのですが
いずれも同じでだめでした。
ソースを載せます。よろしくお願いします。
’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Option Explicit
Private Declare Function OleDraw Lib "ole32.dll" _
(ByVal pUnk As Object, ByVal dwAspect As DVASPECT, _
ByVal hDCDraw As Long, lprcBounds As RECT) As Long
Private Enum DVASPECT
DVASPECT_CONTENT = 1
DVASPECT_THUMBNAIL = 2
DVASPECT_ICON = 4
DVASPECT_DOCPRINT = 8
End Enum
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click() 'ボタン
Dim udtRect As RECT
Picture1.AutoRedraw = True
Picture1.Visible = True
With udtRect
.Left = 0
.Top = 0
.Right = Me.ScaleX(WebBrowser1.Width, Me.ScaleMode, vbPixels)
.Bottom = Me.ScaleY(WebBrowser1.Height, Me.ScaleMode, vbPixels)
End With
With Picture1
.Cls
.Move 0, 0, 8000 - 1, 6000 - 1
Call OleDraw(WebBrowser1.object, DVASPECT_CONTENT, .hDC, udtRect)
End With
End Sub
Private Sub Form_Load() '
WebBrowser1.Navigate "http://192.168.1.111"
End Sub
|
|