ab.com コミュニティ

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() 

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

まず、
[code]
CDREAD()
Dim Ret As Long
Dim RetString As String '戻り値文字列
Dim RetLength As Long:RetLength=MAX_PATH '戻り文字列長
RetString=ZeroString(RetLength)

[/code]
これを、
[code]
Dim Ret As Long
Dim RetString As String '戻り値文字列
Dim RetLength As Long:RetLength=MAX_PATH '戻り文字列長
RetString=ZeroString(RetLength)
CDREAD()

[/code]
この様にして、変数を初期化してから CDREAD 関数を呼び出します。
次に、
[code]
mciSendString("play cdaudio from 8")'再生
MessageBox(hMainWnd,"OKで停止",Str$(Ret),0)

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

が、

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

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

[hide=このコード][code]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[/code][/hide]で、CDの総トラック数を取得したいのですが、何故かRetに0が帰ってきます。RetStringをチェックしてみても何も帰ってきません。

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


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


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