![]() |
|
Tipp 0265
|
Soundkarten-Informationen auslesen
|
 |
|
Autor/Einsender:
Datum: |
|
Alexander Csadek
21.08.2002 |
|
Entwicklungsumgebung:
DirectX-Version: |
|
VB 6
DirectX 7 |
|
|
|
Es kommt sicher nicht sehr häufig vor, dass in einem PC mehr als eine Soundkarte ist. Aber dennoch ist es mit
DirectX möglich festzustellen, ob überhaupt eine Soundkarte vorhanden ist..
|
|
Dies geschieht mittels der DirectSound-Enummerierung. Die Funktion GetDSEnum liefert eine Auflistung aller installierten Soundkarten inkl. deren Soundtreiber.
In der Regel ist jedoch nur eine Soundkarte installiert, die als Primärer
Soundtreiber bezeichnet wird, und DirectSound wird dann ohne Angabe der GUID
gemacht:
|
|
DirectX7.DirectSoundCreate("")
|
|
Soll die Ausgabe auf einer anderen Soundkarte als der Primären geschehen, oder über einen anderen Treiber, so muss
statt des leeren Strings lediglich die GUID
aus der Auflistung übergeben werden, z.B.:
|
|
DirectX7.DirectSoundCreate(objDSE.GetGuid(3))
|
|
| |
Option Explicit
Dim objDX7 As New DirectX7
Dim objDSE As DirectSoundEnum
Private Sub Form_Load()
Dim i As Single
On Error GoTo ERROUT
Set objDSE = objDX7.GetDSEnum
lbl_SoundKarten.Caption = _
"Anzahl Soundkartentreiber: " & objDSE.GetCount
lst_SK.Clear
For i = 1 To objDSE.GetCount
lst_SK.AddItem objDSE.GetDescription(i) & _
" - " & objDSE.GetName(i) & " - " & _
objDSE.GetGuid(i)
Next i
lst_SK.ListIndex = 0
Exit Sub
ERROUT:
MsgBox "Fehler beim Einlesen der Soundkarten.", vbExclamation
End
End Sub
|
|
|
|
|
|
|
|
|
|
Um dieses Beispiel ausführen zu können, wird die DirectX 7
for Visual Basic Type Library
benötigt (siehe dazu die Erläuterungen in der DirectX-Rubrik).
|
|
| Windows-Version |
| 95 |
 |
|
| 98/SE |
|
|
| ME |
|
|
| NT |
 |
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
| VB-Version |
| VBA 5 |
|
|
| VBA 6 |
|
|
| VB 4/16 |
|
|
| VB 4/32 |
|
|
| VB 5 |
 |
|
| VB 6 |
|
|
|
|
Download (2,4
kB)
|
Downloads bisher: [ 958 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 