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

[Zacherl]

Zitat:

Zitat von r29d43 (Beitrag 1354699)

Vermutungen?

Ist leider ohne den kompletten Source ein reines Ratespiel. Irgendwo wirst du über (Array/String/etc.)Bereichsgrenzen hinaus schreiben oder durch manuelle Pointer-Spielchen den Speicher korrumpieren.

[r29d43]

Ich habe das Prog jetzt nochmal neu aufgebaut - nur jetzt aus der anderen Richtung her aufgezogen. Nach der Installation des endpointVolume-Interfaces dann zuerst den Timer auf die Form gesetzt (bei dem ja im Versuch davor die Exceptions angefangen haben). Dann die Timer-Proc erstellt, von der aus, nach einer kleine Anweisung, dann eine weitere kleine Proc aufrufen wird. Und schon ab da tritt der Fehler auch hier immer wieder auf, also ohne ein weiteres Control auf der Form und mit nur einer weiteren Feld-Variablen (jenseits der drei, die ich für die Installation des Interfaces brauche).

Ich liste das Mini-Prog, das so natürlich keinerlei Sinn mehr ergibt, trotzdem noch mal auf. Eventuell will das ja mal jemand kurz gegenchecken. Aktuelles System auf dem ich das gerade ausprobiere ist Win7. Die Exception

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse $C0000005 mit der Meldung 'access violation at 0x005c9d80: read of address 0x00000001' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

taucht bei mir jedesmal in dieser Proc "BlablaSub" auf.

Delphi-Quellcode:

unit unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ActiveX, MMDevApi, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    endpointVolume: IAudioEndpointVolume;     // Interface-Pointer, Interface ist in MMDevApi definiert; ..wird im Prog dann als drittes ermittelt
    deviceEnumerator: IMMDeviceEnumerator;    // Interface-Pointer, Interface ist in MMDevApi definiert;  ..wird im Prog als erster ermittelt
    defaultDevice: IMMDevice;                 // Interface-Pointer, Interface ist in MMDevApi definiert;  ..wird im Prog als zweites ermittelt

    MuteStatus : boolean;
    procedure BlablaSub;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  // Die drei ersten Anweisungen haben einen Pointer auf ein IAudioEndpointVolume-Interface zu ermitteln, über dessen Methoden dann alles geht

  // kreiert ein "IMMDeviceEnumerator"-Objekt (siehe MMDevApi-Unit unten), "deviceEnumerator" zeigt dann anschließend darauf
  CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
  // diese "GetDefaultAudioEndpoint"-Methode des "IMMDeviceEnumerator"-Objektes besorgt dann ein "IMMDevice"-Objekt (siehe MMDevApi-Unit etwa mitte), "defaultDevice" zeigt dann anschließend darauf
  deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
  // diese "Activate"-Methode des "IMMDevice"-Objektes besorgt dann ein "IAudioEndpointVolume"-Objekt (siehe MMDevApi-Unit etwa Anfang der Interface-Deklarationen), "endpointValume" zeigt dann anschließend darauf
  //_und mit den Methoden dieses "IAudioEndpointVolume"-Objektes, gepointet durch "endpointVolume", wird dann alles geschaltet
  defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);

  // die nächsten 2 Zeilen weisen dem Timer zwar nur Defaulteinstellungen zu, sollen also genau das auch nur aussagen
  Timer1.Enabled := true;
  Timer1.Interval := 1000;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var momMuteStatus : boolean;
begin
  endpointVolume.GetMute(momMuteStatus);

  if momMuteStatus <> MuteStatus then
    BlablaSub;
end;

procedure TForm1.BlablaSub;
var aResult : integer;
begin
  aResult := endpointVolume.GetMute(MuteStatus);

end;

end.

[EWeiss]

Keine Ahnung was du da machst.
Aber warum glaubst du wohl gibt es für IAudioEndpointVolume eine dazugehörige IAudioEndpointVolumeCallback ?
Schlechte Idee dafür einen Timer zu verwenden.

Zudem ist die Übergabe BOOL und nicht Boolean..
MuteStatus : BOOL;

gruss

[t.roller]

"if momMuteStatus <> MuteStatus then..."

Das habe ich aber weiter oben schon mal gefragt:
Was hat MuteStatus für einen Wert?

Ausserdem würde ich GetMute nicht im Timer aufrufen - ist unsinnig, weil es global wirkt und nicht nur für das aufrufende Programm.

[r29d43]

Ok, nachdem ich in der Interface-Unit bzgl. dieser GetMute-Funktion nun das Boolean durchs Bool ersetzt habe (und das auch noch in meinem Prog getan habe), sind die Exceptions verschwunden. Thx all. Müssten demnach dann nicht eigentlich auch noch alle übrigen Boolean-Typen in dieser Interface-Unit durch ein Bool ausgewechselt werden? Nehme mal an, ja. Hatte diese Unit irgendwann mal aus dem Netz gedownloaded. Und wie gesagt: Mit TurboDelphi hatte es immer problemlos geklappt.

[r29d43]

Zitat:

Zitat von t.roller (Beitrag 1354753)

Ausserdem würde ich GetMute nicht im Timer aufrufen - ist unsinnig, weil es global wirkt und nicht nur für das aufrufende Programm.

Warum? GetMute ist doch nur eine Status-Abfrage. Da ist es imo doch unrelevant ob es eine quasi globale Abfrage ist oder nicht, oder?

[Zacherl]

Zitat:

Zitat von r29d43 (Beitrag 1354754)

Ok, nachdem ich in der Interface-Unit bzgl. dieser GetMute-Funktion nun das Boolean durchs Bool ersetzt habe (und das auch noch in meinem Prog getan habe), sind die Exceptions verschwunden. Thx all. Müssten demnach dann nicht eigentlich auch noch alle übrigen Boolean-Typen in dieser Interface-Unit durch ein Bool ausgewechselt werden? Nehme mal an, ja. Hatte diese Unit irgendwann mal aus dem Netz gedownloaded. Und wie gesagt: Mit TurboDelphi hatte es immer problemlos geklappt.

Jap mit ziemlicher Sicherheit. Microsoft Schnittstellen bzw. C im allgemeinen verwendet in der Regel 4-Byte Booleans (= BOOL). Dass es vorher geklappt hat war reiner Zufall, da du dir mit den falschen Parametern auf jeden Fall den Stack kaputt machst. Die Integer Results sind btw. auch falsch, das müsste HRESULT sein und

Delphi-Quellcode:

stdcall

kannst du mit

Delphi-Quellcode:

safecall

ersetzen, wenn du lieber Exceptions statt Error-Codes hast. Generell solltest du auf jeden Fall die Fehlercodes von CoCreateInstance und den Interface Methoden prüfen.

[t.roller]

DELPHI wird bis zum bitteren Ende herumzicken - siehe Anhang.

Zitat:
"Einen Test auf Gleichheit mit Hilfe des Operators "ungleich" zu formulieren, kann jedoch als fragwürdiger Programmierstil aufgefaßt werden ... "
Datentyp bool in C/C++ (In C++ hat AUDIO_VOLUME_NOTIFICATION_DATA seinen Ursprung)

[EWeiss]

Zitat:

DELPHI wird bis zum bitteren Ende herumzicken - siehe Anhang.

Nicht wenn man es richtig macht..

Delphi-Quellcode:

  HR := AudioEndpointVolume.GetMute(b);
  if HR = S_OK then
    if Value <> b then
    begin
      // ** We should use very tricky code as follows.
      // ** If we use normal sentence like "AudioEndpointVolume.SetMute(Value, nil);"
      // ** it does not operate.
      if b then
        i := 0
      else
        i := 1;
      AudioEndpointVolume.SetMute(BOOL(i), @GUID_TAudioVolume);
    end;

Davon ab da ist einiges im argen, aber sei's drum.
Wenn du Boolean definierst solltest du es explicit casten.. siehe dieses Beispiel.

gruss

[r29d43]

Zitat:

Zitat von t.roller (Beitrag 1354753)

"if momMuteStatus <> MuteStatus then..."

Das habe ich aber weiter oben schon mal gefragt:
Was hat MuteStatus für einen Wert?

Du hattest das in Post7 mit dem Boolean-Wert auf der einen Seite und dem Integer-Wert auf der anderen Seite etwas falsch interpretiert, weil ja der Funktionswert nur für die Kontrolle, ob die Funktion überhaupt richtig arbeiten konnte, zurückgegeben wird. Der hat mit diesem abzufragenden MuteStatus ansonsten nämlich garnichts zu tun, weil dieser MuteStatus-Wert eben über den von dir angegebenen Parameter in der Klammer der Funktion übergeben wird. Von daher war das für mich also der nicht richtige Ansatz und weshalb ich diese Boolean-Antwort dann im Weiteren natürlich blöderweise insgesamt ignoriert. Zumal das von himitsu sicher keine Fehlinterpretation sein konnte. Aber deine Fehlinterpretation dieser Situation hatte mich einfach zu sehr davon abgebracht ..so dass ich tatsächlich nochmal einen dritten Anstoß von EWeiss in diese Richtung brauchte. :stupid: