CDDB ID ohne wnaspi32.dll

[EWeiss]

Zitat:

Und für die Abfrage der CDDB gibt es im Internet sogar ein paar

So wie ich das verstanden habe braucht er die von seiner CD nicht diese vom Server.

Zitat:

für
einen CDDB Server auslesen

Für! Nicht von einem Server.

So wie mir bekannt ist greifen die alle indirekt auf die wnaspi32 zu.
Egal was du da nimmst akrip32, lame oder auch basscd

Was aber unter umständen funktionieren könnte.
mit der API GetVolumeInformation.. Kernel32.dll

Hier mal die Infos..
Habe es aus meinem Mediaplayer mal kopiert.

Code:

'volume CDID
Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
    (ByVal lpRootPathName As String, _
    ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
    lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
    ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Code:

Public Function LeftZeroPad(s As String, n As Integer) As String
    If Len(s) < n Then
        LeftZeroPad = String$(n - Len(s), "0") & s
    Else
        LeftZeroPad = s
    End If
End Function

Code:

Public Function GetMediaInfo(ByVal DriveLetter As String) As String
    Dim sn As Long, sts As Long
    Dim cl As Long, fl As Long
    Dim vnb As String * 32
    Dim snb As String * 16

    'process errors
    On Error Resume Next

    'trim leading and trailing blanks and add colon
    m_DriveLetter = left$(Trim$(DriveLetter), 1) & ":"

    'get the CDID (volume serial number)
    sts = GetVolumeInformation(m_DriveLetter, vnb, 32, sn, cl, fl, snb, 16)
    If (sts > 0 And left$(snb, 4) = "CDFS") Then
        GetMediaInfo = LeftZeroPad(Hex$(sn), 8)
    End If
End Function

Sorry hab jetzt keinen bock das zu übersetzen.
Aber es sollte die Infos die du suchst zurück liefern.

PS:

Zitat:

Eigendlich langt es mir die CDToc auszulesen

Den Toc kannst du über drei verschiedene arten auslesen

• SPTI
• ASPI
• MCI

Hier noch ein Ansatz!
http://www.delphipraxis.net/92525-post1.html

noch ein bildchen hehehehhee
gruss