C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: VB6 動画をキャプチャーする方法


(過去ログ 85 を表示中)

[トピック内 3 記事 (1 - 3 表示)]  << 0 >>

■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


引用返信 編集キー/
■50318 / inTopicNo.2)  Re[1]: VB6 動画をキャプチャーする方法
□投稿者/ tool (1回)-(2010/06/03(Thu) 15:05:38)
No50315 (つつじ さん) に返信
何が変わったんでしょう?
http://hanatyan.sakura.ne.jp/vb60bbs/wforum.cgi?no=14684&reno=14680&oya=14674&mode=msgview&page=0
引用返信 編集キー/
■50321 / inTopicNo.3)  Re[2]: VB6 動画をキャプチャーする方法
□投稿者/ よねKEN (515回)-(2010/06/03(Thu) 15:48:50)
#回答ではありません。

こちらも追加しておきますね。
http://www.gizcollabo.jp/vbtomo/boards/vbqanda.php?do=spread&num=14686#14688

#この手のネタは私の知る限り、K.J.Kさんが一番詳しいと思うので、
#個人的には、VBレスキュー(花ちゃん)のサイトで続けるのがよいと思います。

引用返信 編集キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

管理者用

- Child Tree -