MMDevApi und Konsolenanwendung

[AndyK]

Hallo,

ich hoffe ich habe das richtige Forum erwischt und hoffe ihr könnt mir den entscheidenden Tipp geben.
In einer meiner Anwendungen (mit GUI) nutze ich "MMDevApi" zum einstellen der (Master-) Lautstärke unter Win7 (64bit). Programmiert unter Delphi 5. Die Anwendung läuft so problemlos.

Nun möchte ich diese Funktion in einer Konsolenanwendung nutzen. Der Compiler ist mit dem Code zufrieden, die Anwendung lässt sich auch starten. Sobald ich aber die Lautstärke steuern möchte hängt das Programm und gibt im Debugg-Modus folgendes aus: "Exception EAccessViolation in Modul..."

Gruß
Andy

[Bummi]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, ActiveX,
  MMDevApi in 'C:\Bummispicker\Snipplets\MMDevApi.pas';
var
  endpointVolume: IAudioEndpointVolume = nil;

procedure Init;
var
  deviceEnumerator: IMMDeviceEnumerator;
  defaultDevice: IMMDevice;
begin
  CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
  deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
  defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
end;

procedure SetVolume(vol:Double);
var
  VolumeLevel: Single;
begin
  if endpointVolume = nil then Exit;
  VolumeLevel := vol;
  endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
end;

begin
  try
   Coinitialize(nil);
   readln;
   init;
   readln;
   SetVolume(0.5);
   readln;
   Couninitialize;
    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[AndyK]

Genial! Vielen Dank!

Gruß
Andy

[Bummi]

Danke für den Dank