Interface 'IAudioEndpointVolume' läuft unter TurboDelphi aber nicht unter Delphi10.1?

[r29d43]

Danke, klappt (und das obgleich ich kein Keyboard habe, das solche Keys überhaupt besitzt)!

@all
..was allerdings nicht heißt, dass mich die Lösung für mein endpointVolume-Prob oben nicht mehr interessiert ...weil auch mittels dieses keybd_event -Verfahrens hat man dann nämlich immer noch die Schwierigkeit rauszukriegen, ob der Ton aktuell überhaupt an ist oder aus.

[t.roller]

Oder so mit CheckBox:

Delphi-Quellcode:

procedure TForm1.cbMUTEClick(Sender: TObject);
var b: LongBool;
begin                 //Mute on/off
 if endpointVolume = nil then Exit;
 b := cbMUTE.Checked;
 endpointVolume.SetMute(b, nil);
end;

[r29d43]

Thx, aber es geht nicht darum, endpointVolume nicht richtig anwenden zu könnnen. Wenn endpointVolume sich normal kreieren ließe, mein Programm damit also nicht irgendwie kaputt gehen würde, sprich es dann auch diese oben erwähnten Zugriffsverletzungen nicht mehr gäbe, dann hätte ich keine Schwierigkeiten diesen Status mittels endpointVolume auszulesen. Hatte ja auch mittels eines Turbo-Delphi-compilierten Progs ohne Probleme geklappt. Nur halt jetzt nicht mehr wenn ich dieses Programm mittels Delphi10.1 compiliere.

[samso]

Ich glaube nicht das der Fehler durch den gezeigten Code hervorgerufen wird, sondern an einer anderen Stelle. Ich würde denken, dass an irgend einer Stelle Speicher überschrieben wird. Verdächtige Kandidaten sind move-Befehle insbesondere im Zusammenhang mit Strings (die nun Unicode sind). Zusätzlich wäre es ganz gut die Rückgabewerte der Funktionsaufrufe auszuwerten (und bei einem Fehler eine Exception auszulösen o.ä).

[t.roller]

Woher bekommt MuteStatus : boolean; seinen Wert?
Getmute liefert einen INTEGER-Wert zurück.

Ersetze MMDevAPI:

Delphi-Quellcode:

unit MMDevAPI; //20161125

interface

uses
//  Windows, ActiveX, ComObj;
  Winapi.Windows, Winapi.ActiveX, System.Win.ComObj;

const
  CLASS_IMMDeviceEnumerator             : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
  IID_IMMDeviceEnumerator               : TGUID = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
  IID_IMMDevice                         : TGUID = '{D666063F-1587-4E43-81F1-B948E807363F}';
  IID_IMMDeviceCollection               : TGUID = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
  IID_IAudioEndpointVolume              : TGUID = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
  IID_IAudioMeterInformation            : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
  IID_IAudioEndpointVolumeCallback      : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}';

  DEVICE_STATE_ACTIVE                   = $00000001;
  DEVICE_STATE_UNPLUGGED                = $00000002;
  DEVICE_STATE_NOTPRESENT               = $00000004;
  DEVICE_STATEMASK_ALL                  = $00000007;

type
  EDataFlow = TOleEnum;

const
  eRender                               = $00000000;
  eCapture                              = $00000001;
  eAll                                  = $00000002;
  EDataFlow_enum_count                  = $00000003;
               
type
  ERole = TOleEnum;

const
  eConsole                              = $00000000;
  eMultimedia                           = $00000001;
  eCommunications                       = $00000002;
  ERole_enum_count                      = $00000003;

type
  IAudioEndpointVolumeCallback = interface(IUnknown)
  ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
  end;

  IAudioEndpointVolume = interface(IUnknown)
  ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    function GetChannelCount(out PInteger): Integer; stdcall;
    function SetMasterVolumeLevel(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    function SetMasterVolumeLevelScalar(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    function GetMasterVolumeLevel(out fLevelDB: single): Integer; stdcall;
    function GetMasterVolumeLevelScaler(out fLevelDB: single): Integer; stdcall;
    function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double): Integer; stdcall;
    function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double): Integer; stdcall;
    function SetMute(bMute: Boolean; pguidEventContext: PGUID): Integer; stdcall;
    function GetMute(out bMute: Boolean): Integer; stdcall;
    function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall;
    function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall;
    function VolumeStepDown(pguidEventContext: PGUID): Integer; stdcall;
    function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
  end;

  IAudioMeterInformation = interface(IUnknown)
  ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}']
  end;

  IPropertyStore = interface(IUnknown)
  end;

  IMMDevice = interface(IUnknown)
  ['{D666063F-1587-4E43-81F1-B948E807363F}']
    function Activate(const refId: TGUID;
                      dwClsCtx: DWORD;
                      pActivationParams: PInteger;
                      out pEndpointVolume: IAudioEndpointVolume): Hresult; stdCall;
    function OpenPropertyStore(stgmAccess: DWORD; out ppProperties: IPropertyStore): Hresult; stdcall;
    function GetId(out ppstrId: PLPWSTR): Hresult; stdcall;
    function GetState(out State: Integer): Hresult; stdcall;
  end;


  IMMDeviceCollection = interface(IUnknown)
  ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
  end;

  IMMNotificationClient = interface(IUnknown)
  ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
  end;

  IMMDeviceEnumerator = interface(IUnknown)
  ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall;
    function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult; stdcall;
    function GetDevice(pwstrId: pointer; out Dev: IMMDevice): HResult; stdcall;
    function RegisterEndpointNotificationCallback(pClient: IMMNotificationClient): Hresult; stdcall;
  end;

implementation

end.

[himitsu]

"Boolean" (1 Byte) ist auch falsch, da BOOL dem LongBool (4 Byte) entspricht.
Und bei GetChannelCount hat sich auch ein Fehler eingeschlichen. GetChannelCount(out pnChannelCount: Integer)
Aber ist grundsätzlich erstmal egal, da solche Fehler sowohl in DX10, also auch in D2006 einen Fehler darstellen.

Ansonsten sehen die gezeigeten paar wenigen Codezeilen eigentlich OK aus.

[Zacherl]

Tippe auch auf einen Buffer-Overflow an anderer Stelle. Funktioniert das Interface in einem komplett neuen Projekt oder kracht es da auch?