Jede Audio CD hat eine eindeutige Nummer, über die beispielsweise die CD in der CDDB-Datenbank (www.CDDB.com) registriert ist; Die meisten CD-Player (Software) benutzen diese Funktion, um dem Anwender möglichst bequem die Informationen wie CD-Titel, Interpret und Tracktitel zu liefern. Die Routine GetCDNumber liest diese Nummer aus und gibt sie als INTEGER - Wert zurück. Danach steht sie für eine weitere Bearbeitung (Abfrage an CDDB oder Integration in eine Datenbank) zur Verfügung.
Function GetCDNumber(Drive As String) As String
On Error GoTo CDNum_Err
Dim cdfile As String * 44
Dim i As Integer
If Dir$(Drive & "\Track01.CDA") = "" Then
MsgBox "Keine Audio-CD!", 64
Exit Function
End If
Open Drive & "\Track01.CDA" For Binary Shared As #1
Get 1, , cdfile
GetCDNumber = Format$(Asc(Mid$(cdfile, 25, 1)), "000") & Format$(Asc(Mid$(cdfile, 26, 1)), "000") Format$(Asc (Mid$(cdfile, 27, 1)), "000")
Close 1
CDNum_Err:
If Err = 71 Then
If MsgBox("Bitte CD einlegen und Laufwerk schliessen.", 1 + 64) = 1 Then
Resume
Else
CDNum = ""
Exit Function
End If
Else
Exit Function
End If
End Function