タイトル | : Re: 動画の時間の取得 |
記事No | : 4572 |
投稿日 | : 2006/11/26(Sun) 12:35 |
投稿者 | : YAS |
他にも取得の方法があるとは思いますが... 1つの方法としてDirectShowを使って時間を取得することができます。 ただ,DirectShowはCOMオブジェクトを利用することになるので,COMオブジェクトの解放が 必要になると思います。サンプルを作ってみましたが,COMオブジェクトの解放がこれで よいのかは自信がありません。
Imports QuartzTypeLib Imports System.Runtime.InteropServices
Public Class Form1
Dim Text1 As New TextBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Controls.Add(Text1) Dim MC As New FilgraphManager MC.RenderFile("c:\sample.wmv") Dim MP As IMediaPosition = MC Me.Text1.Text = MP.Duration & "秒" MP = Nothing Marshal.ReleaseComObject(MC) MC = Nothing End Sub
End Class
|