VB6 初心者です。
VB6　Windows　XP　で　WebBrowser navigate　で　WEBカメラの動画を映しています。
このとき１０秒間隔で　静止画（JPEG等）でそのカメラ画像を保存する方法、
プログラムを教えて下さい。

> VB6　Windows　XP　で　WebBrowser navigate　で　WEBカメラの動画を映しています。
> このとき１０秒間隔で　静止画（JPEG等）でそのカメラ画像を保存する方法、

どの部分ができないのかを切り分けてください。

1,WebBrowser 上の動画をから静止画をキャプチャする。
WebBrowser や 動画再生ソフトが Overlay しているものでなければ、
通常のGDIベースの静止画取り込みの手法で取得できます。

2,静止画をJPEGとして保存する。
VB6では標準ではBMPでしか保存できないので、JPEGで保存したい場合は
外部のDLLなどを用いることになります。GDI+を用いるものならばサンプルが
幾つか見つかるでしょう。

K.J.Kさま

ありがとうございます。

WebBrowser 上の動画から静止画をキャプチャしたいです。
通常のGDIベースの静止画取り込みの手法を教えて下さい。
自分には何のことかサッパリわかりません。

VB6の標準BMPでの保存の方法を教えて下さい。

ネットで調べてもプログラムに結びつく回答が得られません。
宜しくお願いします。

> WebBrowser 上の動画から静止画をキャプチャしたいです。
> 通常のGDIベースの静止画取り込みの手法を教えて下さい。

画面全体の hDC を GetDC などで得て、そこから Blt 系のAPI関数で
DIBデータを切り出す、ということです。前面表示されているウィンドウ
である場合だけ有効です。

WebBrowser が貼り付けた WebBrowserコントロールであるなどの場合は、
OleDraw などをつかうことで最前面表示でなくても対応できるでしょう。

> 自分には何のことかサッパリわかりません。

そういう状態では難しいでしょう。

> VB6の標準BMPでの保存の方法を教えて下さい。

SavePicture 。

> ネットで調べてもプログラムに結びつく回答が得られません。

どういうキーワードで検索していますか?

K.J.Kさま

ご指導ありがとうございます。

具体的にステートメントを書いていただければと思います。

VB6 XP で　WebBrowser1.Navigate　URL
でFormの一部に　Web　カメラ　の画像が映っています。
ボタンを押したらApp￥xxx1.bmpというファイルに　静止画が保存される。
このようにしたいのです。

宜しくお願いします。

> 具体的にステートメントを書いていただければと思います。

意味が不明です。ステートメント:
http://e-words.jp/w/E382B9E38386E383BCE38388E383A1E383B3E38388.html
なお、SavePicture 「ステートメント」が提示してありますよね。

> VB6 XP で　WebBrowser1.Navigate　URL
> でFormの一部に　Web　カメラ　の画像が映っています。
> ボタンを押したらApp￥xxx1.bmpというファイルに　静止画が保存される。
> このようにしたいのです。

ですから、その手順でどこがわからないのでしょうか? 手順を切り分けて
順次コーディングしていき、その途中でわからないところがあったらそこを
質問しないと何がなんだかわかりません。

文章であらわすと、単純に考えるのであれば、
1,ボタンを押したとき、
2,AutoRedraw プロパティが True で、Visible プロパティが False の
  PictureBox のサイズを WebBrowser に合わせて、
3,API関数の OleDraw で、その PictureBox.hDC に WebBrowser を描画し、
4,PictureBox の Image プロパティを、SavePicture で保存する。
となりますよね。

お世話さまです。

下記プログラムで
まず、ピクチャーBOXに表示しません。
どこを修正すればいいでしょうか？


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 oneRect As RECT
    
    Picture1.AutoRedraw = True
    Picture1.Visible = False
        
    With oneRect
     .Left = 9120
     .Top = 3600
     .Right = .Left + 8000 - 1
     .Bottom = .Top + 6000 - 1
    End With
    
    With Picture1
      .Cls
      .Move 0, 0, 6000, 8000
      Call OleDraw(WebBrowser1.object, DVASPECT_CONTENT, .hDC, oneRect)
    End With

End Sub

> 下記プログラムで
> まず、ピクチャーBOXに表示しません。

Picture1.Visible = False で、PictureBox を非表示にしていますが、
描画後に Visible = True に戻しているということなのでしょうか。


> どこを修正すればいいでしょうか？

まずは、WebBrowser が Visible = True である事を確認してください。

WebBrowser が表示されているのに描画されないという事であれば、
怪しいのは座標指定ですかね。 9120, 3600 というのは随分大きな値ですが、
たとえば、下記のように指定した場合はどうなりますか?

    With oneRect
        .Left = 0
        .Top = 0
        .Right = Me.ScaleX(WebBrowser1.Width, Me.ScaleMode, vbPixels)
        .Bottom = Me.ScaleY(WebBrowser1.Height, Me.ScaleMode, vbPixels)
    End With

適切なアドバイスありがとうございます。

ネットワークカメラの設定部分と動画表示部がWebBrowserに表示されています。

ボタンを押し、Pictureにはその設定部分は取り込まれ同じ位置サイズで表示されるのですが、

肝心の動画の部分が全く白紙です。なにをどう確認すればいいでしょうか？

> まず、ピクチャーBOXに表示しません。

まずは、Overlay が無効になっているかどうか、をチェックして下さい。
http://hp.vector.co.jp/authors/VA033596/ojos/001overlay.html#wmp8

また、他の(外部OCX)コントロールを同様に表示することができるか、
も試してみてください。

お世話さまです

ヤフー他のホームTOP画面などはうまく切り出せます。

動画の部分も、ボタンを押した時点の静止画として取り込めます。

ネットワークカメラの動画部分が取り込めません。フレームと設定の部分は取り込めます。

オーバーレイに関してはWINDOWS MEDIA　PLAYERを用いていないのですが？

宜しくお願いします。

> ネットワークカメラの動画部分が取り込めません。フレームと設定の部分は取り込めます。
>
> オーバーレイに関してはWINDOWS MEDIA　PLAYERを用いていないのですが？

では、何というコンポーネントによって動画が表示されているのでしょうか?

そのコンポーネントがオーバーレイの有効・無効を切り替えられるのではなければ、
GDIベースでの取り込みは難しくなります。

もしそうであれば、そのコンポーネントに強く依存した方法を探すことになります。
旧称 DirectShow のフィルタとして扱えるものならば手段が探しやすいのでしょう
けど、それ以外だと一般的にこれだということができません。

> そのコンポーネントがオーバーレイの有効・無効を切り替えられるのではなければ、
> GDIベースでの取り込みは難しくなります。

一応、システム全体で無効化する方法もあります。ただ、オーバーレイに依存した
方法で動画を表示しているコンポーネントだと、何もでなくなりますので注意が
必要です。

XPの場合は、
ダイアログ:[画面のプロパティ]-タブ:[設定]-ボタン:[詳細設定]
-ダイアログ:[(グラフィックカード名)のプロパティ]-タブ:[トラブルシューティング]
-トラックバー:[ハードウェア アクセラレータ]
において、6段階中の下3つのどれかにする。
(なし)、(基本的なアクセラレート以外無効)、(DirectDraw及びDirect3Dのアクセラレート無効)

お世話になります。

どのコンポーネントで　VB6　WebBrouser で　ネットワークカメラの動画が動作しているのか自分にはわかりませんので、ご指摘いただいたWINDOWS　MEDIA　PLAYER　、画面の
アクセラレーター無の設定をしましたが、やはり、ヤフーの動画の静止画はとれるのですが、VIJE　Network　Camera　では　動画以外の部分はとれますが、動画は白紙です。
ネットワークカメラは、H２６４というImageCompression　の動画のようです。
WINDOWS　MEDIA　PLAYER　のバージョンは　１１　です。

お手数をおかけします。





WINDOWS MEDIA　PLAYER

> が、VIJE　Network　Camera　では　動画以外の部分はとれますが、動画は白紙です。

http://jp.akihabaranews.com/11890/pc/vije-t-uvc-savitmicro-1-3-webcam
これかこれと同系のものなのでしょうか?

もしそうであるのならば、汎用 USB Video Port クラスを用いるものとして、
旧称 DirectShow を用いて動画を表示する Filgraph を直接生成し操作する
ことが可能です。

どういうグラフを作るかは、例えば K-Lite Codec Pack に含まれる GraphStudio
などを用いて確認することができます。それを元にして、VB6のコードに換えていく
のがオーソドックスな手法です。
# Video Capture Sources の中からカメラを指すものを選び、そのピンから Render。

> ネットワークカメラは、H２６４というImageCompression　の動画のようです。

H.264 は動画の規格の一つですね。ハードには依存しません。

お世話さまです

> http://jp.akihabaranews.com/11890/pc/vije-t-uvc-savitmicro-1-3-webcam
> これかこれと同系のものなのでしょうか?

メーカは同じですがカメラはVIJE-IP-1300H　LAN　対応ネットワークカメラです。


> 旧称 DirectShow を用いて動画を表示する Filgraph を直接生成し操作する
> ことが可能です。

どうすればいいのでしょうか？VB６　　WebBrouser.navigate等のメソッドで

できるのでしょうか？



> どういうグラフを作るかは、例えば K-Lite Codec Pack に含まれる GraphStudio
> などを用いて確認することができます。それを元にして、VB6のコードに換えていく
> のがオーソドックスな手法です。


動画をキャプチャしたいのです。

なぜ、ヤフーとかのHPの動画の静止画がとれてこのカメラの動画は取れないのでしょうか？
宜しくお願いします。

> > http://jp.akihabaranews.com/11890/pc/vije-t-uvc-savitmicro-1-3-webcam
> > これかこれと同系のものなのでしょうか?
> メーカは同じですがカメラはVIJE-IP-1300H　LAN　対応ネットワークカメラです。

対応しているドライバが存在し、それが入っている環境と仮定して話を続けます。

> > 旧称 DirectShow を用いて動画を表示する Filgraph を直接生成し操作する
> > ことが可能です。
> どうすればいいのでしょうか？VB６　　WebBrouser.navigate等のメソッドで
> できるのでしょうか？

http://www.geocities.co.jp/SiliconValley/7406/tips/dshow/index.html
がよくまとまっていると思います。

> 動画をキャプチャしたいのです。

上記のサイトに動画として保存する場合及び静止画を保存する場合の両方に
ついての説明があります。

> なぜ、ヤフーとかのHPの動画の静止画がとれてこのカメラの動画は取れないのでしょうか？

システムレベルで禁止していない限り、Video Capture Sourceを元にすると
レンダラがオーバレイ優先で行います。

> > メーカは同じですがカメラはVIJE-IP-1300H　LAN　対応ネットワークカメラです。
> 対応しているドライバが存在し、それが入っている環境と仮定して話を続けます。

よく読めば、ネットワークカメラですね。
それならばRTPプロトコルでのURL指定で表示されませんか?
マニュアルでその辺りを調べてみてください。

で、もしRTPであれば、
http://sourceforge.jp/projects/sfnet_rtspdirectshow/
辺りのソースフィルタを使うことで、DirectShow 経由で表示やキャプチャが
可能です。

お世話さまです。

> よく読めば、ネットワークカメラですね。

そうです。

> それならばRTPプロトコルでのURL指定で表示されませんか?
> マニュアルでその辺りを調べてみてください。

VB6プログラムで　WebBrouser1.Navigate "*http://192.168.1.111"　を
WebBrouser1.Navigate "rtp://192.168.1.111" や
WebBrouser1.Navigate "rtsp://192.168.1.111"
に変えてもキャプチャー以前に全くブラウザに表示されませんでした。（動画さえ）
指摘されていることと合ってるでしょうか？

設定画面でUDP、TCP、HTTP　の選択、　H264,MPEG4, MJPEGの選択がありましたが
どれをやっても動画は映るのですがキャプチャーできませんでした。

また、ストリーミング設定というのがあって自分は理解できませんが、
PPPOE 、DDNS設定があります。また、ポート設定があって　RTSP　554
RTP　50000-50999というのがあります。
1

> で、もしRTPであれば、
> http://sourceforge.jp/projects/sfnet_rtspdirectshow/
> 辺りのソースフィルタを使うことで、DirectShow 経由で表示やキャプチャが
> 可能です。

どこから手をつけたらいいか悩んでいます。


宜しくお願いします。


　　　

> VB6プログラムで　WebBrouser1.Navigate "*http://192.168.1.111"　を
> WebBrouser1.Navigate "rtp://192.168.1.111" や
> WebBrouser1.Navigate "rtsp://192.168.1.111"
> に変えてもキャプチャー以前に全くブラウザに表示されませんでした。（動画さえ）
> 指摘されていることと合ってるでしょうか？

rtpプロトコルがWebBrowserからみて関連付けられていれば、それでアプリが
起動する可能性もありますが、どうやらそうではないようですね。

> また、ストリーミング設定というのがあって自分は理解できませんが、
> PPPOE 、DDNS設定があります。また、ポート設定があって　RTSP　554
> RTP　50000-50999というのがあります。

RTSPがあるのであれば、
ActiveMovie control type library (quartz.dll)
を参照設定して、

' エラー処理などは省いています。
Private moFilgraphManager As FilgraphManager

Private Sub Button1_Click()
    Set moFilgraphManager = New FilgpraphManager
    Call moFilgraphManager.RenderFile("rtsp://192.168.1.111")
    Call moFilgraphManager.Run()
End Sub

但し、該当するフィルタなどが正しく存在していないといけません。
前回提示したURLにはその辺りのが含まれています。他にもありますので、
よくわからなければコンパイル済みのを探すといいでしょう。

また、rtsp以外にもローカルなファイルなどでRenderFileしていろいろ試して
みてください。

> どこから手をつけたらいいか悩んでいます。

とりあえず、↑の DirectShow に慣れることから辺りでしょうか。

お世話さまです。

ご指導の件、早速　参照指定してコンパイルしましたが


Private moFilgraphManager As FilgraphManager
↑
ここでエラーがでます。

コンパイルエラー
End Sub,End Function または End Property以降にはコメントのみ記述できます。

Private Sub Button1_Click()
     Set moFilgraphManager = New FilgpraphManager
     Call moFilgraphManager.RenderFile("rtsp://192.168.1.111")
     Call moFilgraphManager.Run()
End Sub

宜しくお願いします。

>  Private moFilgraphManager As FilgraphManager
>  ↑
> ここでエラーがでます。

イベントプロシージャやその後ろではなく、モジュールレベルの変数として
全てのイベントプロシージャより前の宣言セクション(General)に記述してください。

というか、まずはコーディングの基礎について学んでください。
このレベルでわからないことが多いようだと相当難しくなります。

お手数をおかけします。確認遅くなりました。

> イベントプロシージャやその後ろではなく、モジュールレベルの変数として
> 全てのイベントプロシージャより前の宣言セクション(General)に記述してください。

  ご指摘の通り　General に記述しての　エラーです。

　OptionExplicit

  Private moFilgraphManager As FilgraphManager

コンパイルエラーがでます。
FilgraphManagerが　定義されていないというエラーです。

> というか、まずはコーディングの基礎について学んでください。
> このレベルでわからないことが多いようだと相当難しくなります。

おっしゃるとおりです。このようなエラーは初めてです。

宜しくお願いします。

>   Private moFilgraphManager As FilgraphManager
>
>  コンパイルエラーがでます。
>  FilgraphManagerが　定義されていないというエラーです。

前回提示された
> コンパイルエラー
> End Sub,End Function または End Property以降にはコメントのみ記述できます。
は解決したんですよね?

http://hanatyan.sakura.ne.jp/vb60bbs/wforum.cgi?no=14697&reno=14696&oya=14674&mode=msgview&page=0
で、
> ActiveMovie control type library (quartz.dll)
> を参照設定して、

と書いておきましたけど、そうしてありますか?

> > というか、まずはコーディングの基礎について学んでください。
> > このレベルでわからないことが多いようだと相当難しくなります。
> おっしゃるとおりです。このようなエラーは初めてです。

スペルミスや一部だけ貼り付けたコードなどで良く見かけるものです。

お手数をおかけします。

> 前回提示された
> > コンパイルエラー
> > End Sub,End Function または End Property以降にはコメントのみ記述できます。
> は解決したんですよね?

はい。

>
> http://hanatyan.sakura.ne.jp/vb60bbs/wforum.cgi?no=14697&reno=14696&oya=14674&mode=msgview&page=0
> で、
> > ActiveMovie control type library (quartz.dll)
> > を参照設定して、
>
> と書いておきましたけど、そうしてありますか?

VBの参照設定で　ActiveMovie control type library にチェックを入れました。
もしかして、そいう指示ではないのですか？

> スペルミスや一部だけ貼り付けたコードなどで良く見かけるものです。

ご指導いただいたものをコピーで張り付けたのでスペルミスはないと思います。

宜しくお願いします。

> VBの参照設定で　ActiveMovie control type library にチェックを入れました。
> もしかして、そいう指示ではないのですか？

提示された行で発生しているのならば、そこを疑うことになります。
オブジェクトブラウザで FilgraphManager 型が表示されているのでしょうか?

そうでなくイベントプロシージャ内のコードで起きているのならば、
↓のを疑うべきです。
# というか↓のそのものだったりします。

> > スペルミスや一部だけ貼り付けたコードなどで良く見かけるものです。
> ご指導いただいたものをコピーで張り付けたのでスペルミスはないと思います。

手打ちですので、私の提示したもの自体がスペルミスしている場合もあります。
ですから Copy&Paste して安心しないように。

また、GraphStudio や GraphEdit などの他ツールを使っての RTP RTSP の
グラフの構築はできているのでしょうか?

> 提示された行で発生しているのならば、そこを疑うことになります。
> オブジェクトブラウザで FilgraphManager 型が表示されているのでしょうか?
>
はい
> そうでなくイベントプロシージャ内のコードで起きているのならば、
> ↓のを疑うべきです。
> # というか↓のそのものだったりします。

＃↓とは何でしょうか？
>

> 手打ちですので、私の提示したもの自体がスペルミスしている場合もあります。
> ですから Copy&Paste して安心しないように。
>
はい

> また、GraphStudio や GraphEdit などの他ツールを使っての RTP RTSP の
> グラフの構築はできているのでしょうか?

グラフは不要です。
動画は表示されています。
この掲示板に　添付ファイルなどつけられないでしょうか？
実際のForm と　短いプログラム見てもらったほうがいいかと。

宜しくお願いします。

> > そうでなくイベントプロシージャ内のコードで起きているのならば、
> > ↓のを疑うべきです。
> > # というか↓のそのものだったりします。
> ＃↓とは何でしょうか？

スペルミスのことです。

> > グラフの構築はできているのでしょうか?
> グラフは不要です。
> 動画は表示されています。

それは貴方がVB6で作ったプログラムのプロセス内でDirectShowを直接
操作して標示しているのでしょうか?
それとも同プロセス内で他コンポーネントが表示しているのでしょうか?
もしくは単純に他プロセスが表示しているのでしょうか?

現時点では他プロセス・他コンポーネントによるものがキャプチャーしにくい
ようなので、DirectShowを直接利用してプロセス内で動画を標示し、ついでに
サンプルを取得することを狙っています。
直接DirectShowを扱えれば、IBasicVideo.GetCurrentImage メソッドにより
イメージが取得できる可能性があるからです。

> この掲示板に　添付ファイルなどつけられないでしょうか？
> 実際のForm と　短いプログラム見てもらったほうがいいかと。

それを説明できる最低限のコードと説明を提示するのが基本なのでは。
しかし長すぎたりすれば興味を失われますのでその辺りを注意する必要が
あるでしょう。

色々やりましたが解決できません。

ソースを載せます。よろしくお願いします。

’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
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

> Private Sub Form_Load()  '
>     WebBrowser1.Navigate "http://192.168.1.111"
> End Sub

これで得た HTML のソースコードはどうなっていますか?
ソースコードを保存して、どのようなコンポーネントをどのような呼び出しで
動画の再生に使っているのかを調べるだけでも多少はヒントになり得るのでは。

お手数をおかけします。遅れまして申し訳ありません

ソース確認しましたが８００行ほどありました。

表示位置、サイズの設定。色々あります。

どんな箇所をみればいいでしょうか？

自分には訳がわからないスクリプトが沢山あります。

宜しくお願いします。

　メールアドレス教えていただければソースお送りして

みていただきたいところです。








> > Private Sub Form_Load()  '
> >     WebBrowser1.Navigate "http://192.168.1.111"
> > End Sub
>
> これで得た HTML のソースコードはどうなっていますか?
> ソースコードを保存して、どのようなコンポーネントをどのような呼び出しで
> 動画の再生に使っているのかを調べるだけでも多少はヒントになり得るのでは。

　　　

> ソース確認しましたが８００行ほどありました。

それは多いですね。href とか script などで見当がつきません?
もし Silverlight 辺りだとすると解析が面倒でしょうね。
ただ Silverlight ならば DirectShow の設定を引きずるはずですし。

> 　メールアドレス教えていただければソースお送りして
> みていただきたいところです。

送られても中身を確認しません。

では、その動画の標示部分を右クリックすると、どのような
コンテクストメニューが標示されますか?

また、その製品のマニュアルに RTP や RTSP で受信する場合の方法などが
載っていませんか?