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
 
Weitere Links zum Thema
Grafikkarten-Informationen auslesen
Hinweis
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: [ 884 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Donnerstag, 25. August 2011