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

[Luckie]

Super. Jetzt haben wir zwei Probleme in einem Thread.

Initialisiere mal die TWaveOutCaps Struktur mit ZeroMemory.

[Schucki]

Zitat von Luckie:

Super. Jetzt haben wir zwei Probleme in einem Thread.

Sorry, ich gelobe Besserung...

Zitat von Luckie:

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...

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) }

[Schucki]

Zitat von Mavarik:

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 von Mavarik:

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..