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
Hier noch ein Ansatz!
http://www.delphipraxis.net/92525-post1.html
noch ein bildchen hehehehhee
gruss