CDの総トラック数取得で0が・・・

メッセージ

Mario2

Sub fs()

mciSendString("play cdaudio from 8")'再生


MessageBox(hMainWnd,"OKで停止",Str$(Ret),0)
mciSendString("stop cdaudio")'停止
mciSendString("close cdaudio")'クローズ
End Sub

Declare Function mciSendString2 Lib "Winmm.dll" Alias "mciSendStringA" _
(ByVal lpMciComm As String, ByVal lpMciRetString As String, _
ByVal lpRetLength As Long, ByVal CallBackhWnd As Long) As Long

CDREAD()
Dim Ret As Long
Dim RetString As String '戻り値文字列
Dim RetLength As Long:RetLength=MAX_PATH '戻り文字列長
RetString=ZeroString(RetLength)
Sub CDREAD()
mciSendString("open cdaudio")'開く

mciSendString("status cdaudio number of tracks")'トラック数取得
If Ret=-1 Then msgbox hMainWnd,"失敗"

mciSendString("set cdaudio time format tmsf")'タイムフォーマット設定

End Sub


Function mciSendString(ByVal lpMciComm As String) As Long
mciSendString=mciSendString2(lpMciComm,RetString,RetLength,0)
Ret=mciSendString
End Function

で、CDの総トラック数を取得したいのですが、何故かRetに0が帰ってきます。RetStringをチェックしてみても何も帰ってきません。

何が悪いのでしょうか？Ret=-1の部分でもRetが0になっていて正常みたいなのですが・・・

(exe起動→CDREAD()→MainWnd_Create→CommandButton経由でsf()呼び出し。の順番でしています)

ドライブ依存なのでしょうか？
ちなみに、試しているCDは計17トラックで、CD-TEXTは書かれていません。
情報不足かどうかわかりませんが、よろしくお願いします。

Toshi

まず、

コード: 全て選択


CDREAD() 
Dim Ret As Long 
Dim RetString As String '戻り値文字列 
Dim RetLength As Long:RetLength=MAX_PATH '戻り文字列長 
RetString=ZeroString(RetLength)

これを、

コード: 全て選択


Dim Ret As Long 
Dim RetString As String '戻り値文字列 
Dim RetLength As Long:RetLength=MAX_PATH '戻り文字列長 
RetString=ZeroString(RetLength) 
CDREAD()

この様にして、変数を初期化してから CDREAD 関数を呼び出します。
次に、

コード: 全て選択


mciSendString("play cdaudio from 8")'再生
MessageBox(hMainWnd,"OKで停止",Str$(Ret),0)

この部分ですが、
MessageBox の時点で変数 Ret には直前の "play cdaudio from 8" を実行した結果が返っていますので、
"status cdaudio number of tracks" の結果を知りたい場合はそれを実行した時点での値を調べます。

が、

Ret は mciSendString （API の方）の戻り値ですけど、これは成功したかどうかを
示しているだけで、実際の結果は RetString に文字列として返っていますので、
結局　"status ～" を実行した時点での RetString を調べるのが望ましいと思います。

Mario2

Toshiさん、ありがとうございます。無事、解決いたしました。

そっか、最初に初期化しなければならなかったのですね。見落としていました。
どうもありがとうございます。