[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/03/25(Fri) 19:49
投稿者名:おじん
Eメール:
URL :
タイトル:
wavファイルの演奏時間の求め方
MMControlを利用した場合の例で、

  MMControl1.FileName = fname$
  MMControl1.Command = "Open"
  MMControl1.TimeFormat = 1
  secdata = MMControl1.Length / 1000
  Print "Total Time = ", Format(secdata, "#0.0") & "  Sec"
;

を参考書で知りました。で、
  MMControl1.TimeFormat = 1 の 1は、mciFormatHmsで、その説明は、
「時、分、および秒形式をパックして長整数の値で表します。
各データの順序は次のとおりです。
時 (最下位バイト) 分 秒 未使用 (最上位バイト)」とありました。

ならば、2バイトずつ、未使用、秒、分、時に成っている?なら、
「秒」にするなら10000で割らなくてはいけないのでは?
説明文にある意味合いがわかりません。パックして長整数の値とは?

また、MMControlを使用しないで、ファイルの長さを調べる方法は?
例えば、ファイル識別情報(RIFF)から知る方法はありませんか?

いつもの事ながら、質問の内容が伝わりましたら、お願いします。

投稿時間:2005/03/26(Sat) 08:02
投稿者名:おじん
Eメール:
URL :
タイトル:
Re: 解決しました
Header部の
最大値/転送速度で算出できそうです。
MMcontrolを使った値と同じになりましたから。
ご面倒をおかけしました。