「mcisendstring」 ＭＩＤＩファイルの演奏時間の取得に関して
「mcisendstring」により、ＷＡＶＥファイルやＭＰ３ファイルでは演奏時間が正確に取得できましたが、ＭＩＤＩファイルでは正確に取得できませんでした。おそらく、ＭＩＤＩ特有のテンポなどの情報が関係しているのだと思いますが、対処方法が思い当たりません。
どなたか、教えて下さい。
（因みに ＶＢ６＋ＷＩＮＤＯＵＷＳ９８ＳＥの環境です。）
以下は、私のプログラム事例です。
'■GetLength
'■機能: ファイルの長さを秒単位で返す。
'■引数: FileName 対象のファイル名
Private Function GetLength(FileName As String) As Double
Dim RetBuffer As String * 20
Dim MCICommandString As String
MCICommandString = "status """ & FileName & """ length"
Call mciSendString("open """ & FileName & """", "", 0, 0)
Call mciSendString(MCICommandString, RetBuffer, Len(RetBuffer), 0)
Call mciSendString("close """ & FileName & """", "", 0, 0)
GetLength = Val(RetBuffer) / 1000
End Function
お礼
そうそう！ その通りです！ あ～！胸のつかえが取れました。 有難うございます！！！