■55498 / inTopicNo.5) |
Re[3]: DirectshowにてIPカメラ(?)映像受信 |
□投稿者/ コアラ主任 (7回)-(2010/12/03(Fri) 16:12:58)
|
ご返答ありがとうございます。 他、アドバイスもありがとうございました。
はい、UDPでのマルチキャスト配信です。 しかし、そのマルチキャストに行く付き前の そもそも、カメラ映像の取得インタフェースに 悩んでおります。
> マルチキャスト VB で検索してみるといいんじゃないかな。 はい、かなり、たくさん、引っかかるのですが、いかんせん、 JAVAかC系統、あっても、VB.netのサンプル、解説しか、ありません。 そのなかでも、一つ、 http://www.geekpage.jp/programming/directshow/renderfile-url.php ここが、まさにやりたい事が書いてあるのですが、C言語からVB6に翻訳できる スキルがなく、悩んでおりました。 以下、この部分がわかるとVB6でできるのかどうか、判明するのかと考えております。 --------------------------------------------------------- // FilterGraphを生成 CoCreateInstance(CLSID_FilterGraph, NULL, CLSCTX_INPROC, IID_IGraphBuilder, (LPVOID *)&pGraphBuilder);
// MediaControlインターフェース取得 pGraphBuilder->QueryInterface(IID_IMediaControl, (LPVOID *)&pMediaControl);
// Graphを生成 pMediaControl->RenderFile(URL);
// 再生開始 pMediaControl->Run(); ---------------------------------------------------------
VB6で作成中・・・・。 --------------------------------------------------------- 'Dim mGrp As QuartzTypeLib.FilgraphManager Dim cameraflt As QuartzTypeLib.IFilterInfo Dim ca merapin As QuartzTypeLib.IPinInfo Const URL_FILTER2 = "http://127.0.0.1:1908/サーバ擬似環境/aaa.avi" 'グラフマネージャの作成 Set mGrp = New QuartzTypeLib.FilgraphManager
Set moManager = New QuartzTypeLib.FilgraphManager moManager.RenderFile ("http://127.0.0.1:1908/サーバ擬似環境/aaa.avi") <---ここでエラー 'mGrp.RenderFile ("http://127.0.0.1:1908/サーバ擬似環境/aaa.avi") moManager.Run ---------------------------------------------------------
自分のパソコンにテスト環境を作成し、実行するのですが、 「オートメーションエラー」となってしまいます。
何か手がかりがわかる方いらっしゃいましたら、よろしくお願いいたします。 m(__)m
|
|