Cd Track?

Übersicht

BlitzBasic

Beginners-Corner

	Gameprogman Betreff: Cd Track?	Di, Jan 04, 2005 21:13 Antworten mit Zitat
Hi Wie prüft man wie viele Tracks eine CD hat und speichert dann diese Zahl in einer variable?

Gameprogman

Betreff: Cd Track?

Di, Jan 04, 2005 21:13
Antworten mit Zitat

Hi
Wie prüft man wie viele Tracks eine CD hat und speichert dann diese Zahl in einer variable?

	simi	Di, Jan 04, 2005 21:16 Antworten mit Zitat
Geht nur mit BlitzBAssDLL, zum herausfinden...

simi

Di, Jan 04, 2005 21:16
Antworten mit Zitat

Geht nur mit BlitzBAssDLL, zum herausfinden...

	Vertex	Mi, Jan 05, 2005 19:18 Antworten mit Zitat
Naja BlitzBASS.dll ist ja schon ziemlich veraltet... Versuch es mal so: winmm.decls Zitat: .lib "winmm.dll" api_mciSendString%(lpstrCommand$, lpstrReturnString, uReturnLength, hwndCallback) = "mciSendStringA" Code: [AUSKLAPPEN] [EINKLAPPEN] TrackNumber = CreateBank(4) api_mciSendString("status cdaudio number of tracks", TrackNumber, Null, 0) Print "Tracks: "+PeekInt(TrackNumber, 0) WaitKey z. Z. lässt sich bei mir der Compiler nicht starten, deswegen ungetestet. mfg olli Edit: So gehts: Zitat: .lib "winmm.dll" api_mciSendString%(lpstrCommand$, lpstrReturnString, uReturnLength, hwndCallback):"mciSendStringA" Code:* [AUSKLAPPEN] [EINKLAPPEN] TrackNumber = CreateBank(255) api_mciSendString("status cdaudio number of tracks", TrackNumber, 255, 0) Print "Tracks: "+GetCString$(TrackNumber) WaitKey Function GetCString$(Bank) Local Size, I, Char, RetStr$ Size = BankSize(Bank)-1 For I = 0 To Size Char = PeekByte(Bank, I) If Char = 0 Then Exit RetStr$ = RetStr$+Chr$(Char) Next Return RetStr$ End Function
vertex.dreamfall.at \| GitHub

Vertex

Mi, Jan 05, 2005 19:18
Antworten mit Zitat

Naja BlitzBASS.dll ist ja schon ziemlich veraltet...

Versuch es mal so:
winmm.decls
Zitat:

.lib "winmm.dll"
api_mciSendString%(lpstrCommand$, lpstrReturnString*, uReturnLength*, hwndCallback) = "mciSendStringA"

Code: [AUSKLAPPEN]

TrackNumber = CreateBank(4)
api_mciSendString("status cdaudio number of tracks", TrackNumber, Null, 0)
Print "Tracks: "+PeekInt(TrackNumber, 0)
WaitKey

z. Z. lässt sich bei mir der Compiler nicht starten, deswegen ungetestet.
mfg olli

Edit: So gehts:
Zitat:

.lib "winmm.dll"
api_mciSendString%(lpstrCommand$, lpstrReturnString*, uReturnLength, hwndCallback):"mciSendStringA"

Code: [AUSKLAPPEN]

TrackNumber = CreateBank(255)
api_mciSendString("status cdaudio number of tracks", TrackNumber, 255, 0)
Print "Tracks: "+GetCString$(TrackNumber)
WaitKey

Function GetCString$(Bank)
Local Size, I, Char, RetStr$

Size = BankSize(Bank)-1
For I = 0 To Size
   Char = PeekByte(Bank, I)
   If Char = 0 Then Exit
   RetStr$ = RetStr$+Chr$(Char)
Next

Return RetStr$
End Function

vertex.dreamfall.at | GitHub