| 投稿日 | ： 2004/11/10(Wed) 00:27 |
| 投稿者 | ： よしたろう |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 動画の指定する時間の映像を切り出す |
自己レスです。
結論から言いますと、
qedit.dllを参照した後
------------------------------
Dim Det As New MediaDet
Det.FileName = "C:\movie.mpg"
TempFile = "C:\Temp.bmp"
Picture1.ScaleMode = vbPixels ' twip をピクセルに変換する。
Det.WriteBitmapBits 150, preview.ScaleWidth, preview.ScaleHeight, TempFile
Picture1.Picture = LoadPicture(TempFile)
------------------------------
で、150秒後の画面を取得できました。
hhttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/directx9_c/directx/htm/enterbitmapgrabmodemethodmediadetobject.asp
↑ここのサンプルを使いました。
途中の紆余曲折で、K.J.Kさんの作ったDirectXのサンプルなども参考になりましたし、
K.J.Kさんのアドバイスのおかげで完成させることができました。
ここに厚く御礼申し上げます。