Probleme mit MmSystem Funktionen für die Soundkarte...

[Schucki]

Hallo,

ich versuche seit Tagen mit Informationen zu den Ausgabegeräten klar zu kommen.
Leider gelingt mir das nicht da die Beispielfunktionen aus dem Internet nicht ganz so funktionieren wie beschrieben.

Nehmen wir die erste...

Delphi-Quellcode:

procedure GetWaveOutDevicesInfo(DeviceNames: TStrings);
var
  DNum: Integer;
  i: Integer;
  Caps: TWaveOutCaps;

begin
  DNum := waveOutGetNumDevs;  // Number of Devices
  for i := 0 to DNum - 1 do     // Query Devicenames
  begin
    waveOutGetDevCaps(i, @Caps, SizeOf(TWaveOutCaps));
    DeviceNames.Add(Format('Device %d/%d information follows...', [i,DNum-1] ));
    DeviceNames.Add(string(Caps.szPname));
  end;
end;

Hier bekomme ich nicht den vollständigen NAmen der Karte sondern nur:
'Lautsprecher (2- Realtek High D'

komplett wäre:
'Lautsprecher (2- Realtek High Definition Audio)'

Das zweite Beispiel soll die eingestellte Lautstärke auslesen.

Delphi-Quellcode:

function GetWaveVolume(uDeviceId:Cardinal; var wLVol: Word; var wRVol: Word): Boolean;
var
  WaveOutCaps: TWaveOutCaps;
  Volume: dword;
begin
  Result := False;
  if WaveOutGetDevCaps(uDeviceId, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then
  if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin
    Result := WaveOutGetVolume(uDeviceId, @Volume) = MMSYSERR_NOERROR;
    wLVol := HiWord(volume);
    wRVol := LoWord(volume);
  end;
end;

Als Antwort bekomme ich immer wLvol=65535 und wRvol=65535. Wenn ich eine andere DeviceId übergebe als Geräte die verfügbar sind bekomme ich aber FALSE zurück. Deutet irgendwie darauf hin das der Aufruf WaveOutGetVolume schon funktioniert, die Antwort aber in Volume nicht richtig zurück kommt.

Was mache ich in beiden Fällen falsch? Wenn es an den Delphi gekapselten Funktionen liegt, kann man irgendwie die originalen API Aufrufe selber direkt verwenden?

Vielen Dank für Eure Hilfe!

Gruß Frank

[Luckie]

Super. Jetzt haben wir zwei Probleme in einem Thread. :roll:

Initialisiere mal die TWaveOutCaps Struktur mit ZeroMemory.

[Schucki]

Zitat:

Zitat von Luckie (Beitrag 1364705)

Super. Jetzt haben wir zwei Probleme in einem Thread. :roll:

Sorry, ich gelobe Besserung...

Zitat:

Zitat von Luckie (Beitrag 1364705)

Initialisiere mal die TWaveOutCaps Struktur mit ZeroMemory.

Leider ohne Erfolg, löschen funktioniert aber das sehe ich wenn ich es NACH dem Aufruf lösche ist der Inhalt wirklich leer.

[Mavarik]

Natürlich habe ich die MMSystem API komplett im Kopf und sehe sofort den Fehler... :stupid:

Ne Spaß beiseite...

Ein kleines Testprogramm wäre schön...

[Schucki]

Ja OK...
Ein neues Projekt, ein Memo1 und ein Button1 drauf...
Quelltext dann diesen hier...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MmSystem, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure GetWaveOutDevicesInfo(DeviceNames: TStrings);
var
  DNum: Integer;
  i: Integer;
  Caps: TWaveOutCaps;

begin
  DNum := waveOutGetNumDevs;  // Number of Devices
  for i := 0 to DNum - 1 do begin
    ZeroMemory(@Caps, SizeOf(TWaveOutCaps));
    waveOutGetDevCaps(i, @Caps, SizeOf(TWaveOutCaps));
    DeviceNames.Add(Format('Device %d/%d information follows...', [i,DNum-1] ));
    DeviceNames.Add(string(Caps.szPname));
    DeviceNames.Add('----------------------------------');
  end;
end;

procedure GetWaveOutVolumeInfo(logInfo: TStrings);
var
  DNum: Integer;
  i: integer;
  WaveOutCaps: TWaveOutCaps;
  Volume: dword;
  bolError: boolean;
  wLVol: word;
  wRVol: word;
begin
  DNum := waveOutGetNumDevs;  // Number of Devices
  for i := 0 to DNum - 1 do begin
    bolError := True;
    ZeroMemory(@WaveOutCaps, SizeOf(TWaveOutCaps));
    Volume:=0;
    if WaveOutGetDevCaps(i, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR
    then if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME
    then begin
      bolError := not WaveOutGetVolume(i, @Volume) = MMSYSERR_NOERROR;
      wLVol := HiWord(volume);
      wRVol := LoWord(volume);
    end;
    if not bolError then logInfo.Add(Format('(%d) %d - %d',[i, wLVol, wRVol]))
                    else logInfo.Add(Format('(%d) - no volume info',[i]));
    logInfo.Add('----------------------------------');
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  GetWaveOutDevicesInfo(Memo1.Lines);
  GetWaveOutVolumeInfo(Memo1.Lines);
end;

end.

Output im Memeo1 bei mir...

Code:

Device 0/2 information follows...
Lautsprecher (2- Realtek High D
----------------------------------
Device 1/2 information follows...
Realtek Digital Output (2- Real
----------------------------------
Device 2/2 information follows...
Realtek Digital Output(Optical)
----------------------------------
(0) 65535 - 65535
----------------------------------
(1) 65535 - 65535
----------------------------------
(2) 65535 - 65535
----------------------------------

:-(

[Mavarik]

Ein Blick in die Windows API

MAXPNAMELEN = 32; { max product name length (including nil) }

[Mavarik]

[QUOTE=Schucki;1364700]
Als Antwort bekomme ich immer wLvol=65535 und wRvol=65535. /QUOTE]

https://msdn.microsoft.com/de-de/lib...(v=vs.85).aspx

OK... Funktioniert nicht...

Ich bekomme auch das Device nicht geöffnet... Also kann ich auch nicht das Handle übergeben...

Alles was man googlen kann - ist genau der gleiche Source der nicht (mehr) funktioniert...

Mavarik

[Schucki]

Zitat:

Zitat von Mavarik (Beitrag 1364716)

Ein Blick in die Windows API
MAXPNAMELEN = 32; { max product name length (including nil) }

Ok, ich schau mal ob ich das auch finde. Dann sind die langen Namen wohl woanders gespeichert. Das wäre nicht ganz so dramatisch, das könnte man in meinem Fall dann einfach ausprobieren.

Zitat:

Zitat von Mavarik (Beitrag 1364717)

OK... Funktioniert nicht...

Ich bekomme auch das Device nicht geöffnet... Also kann ich auch nicht das Handle übergeben...

Alles was man googlen kann - ist genau der gleiche Source der nicht (mehr) funktioniert...

Schade, danke für das probieren. Das ist natürlich ärgerlich, denn so kann ich mein Projekt vergessen. :-(

Schade finde ich auch das man zwar im MSN Infos über die Funktionen bekommt aber diese anscheinend nicht zusammen passen. Und direkt noch irgendwie auf die Win API zugreifen, geht da noch was?

Gruß Frank

[HolgerX]

Hmm..


Schon mal daran gedacht, das mit Vista/W7 eine neue API eingeführt wurde?

Wenn due die (alten) mm Sachen benutzen willst, dann gibt es da Einschränkungen.

So ist es u.a. beim Device-Name.
Wenn Du den vollen Namen haben willst, dann musst Du dich wohl von den mm Funktionen verabschieden..

Die Lautstärke über mm funktioniert auch nicht mehr so ganz..

Ich hab hier vor kurzem eine TAudio... Klasse gesehen, einfach mal suchen..

[Schucki]

Zitat:

Zitat von HolgerX (Beitrag 1364755)

Schon mal daran gedacht, das mit Vista/W7 eine neue API eingeführt wurde?

Nein absolut nicht. :shock:

Zitat:

Zitat von HolgerX (Beitrag 1364755)

Wenn Du den vollen Namen haben willst, dann musst Du dich wohl von den mm Funktionen verabschieden..

Gut dann weiß ich wohin die Reise geht, ich habe keine Lust wieder neu zu beginnen wenn die alten Sachen mehr und mehr verschwinden.

TAudio schau ich mir an, vlt kann ich davon ableiten wie die anderen Sachen auszusehen haben was ich noch vor habe.

Danke für den Richtungswechsel, einen schönen Abend!
Gruß Frank