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

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

[Zacherl]

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

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 stdcall kannst du mit 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.

[r29d43]

Zitat von t.roller:

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?

[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

[Zacherl]

Zitat von t.roller:

DELPHI wird bis zum bitteren Ende herumzicken - siehe Anhang

Mhh bei mir ist BOOL in der Windows.pas korrekt als BOOL = LongBool definiert.

[r29d43]

Zitat von t.roller:

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

[EWeiss]

Zitat:

Du hattest das in Post7 mit dem Boolean-Wert auf der einen Seite und dem Integer-Wert auf der anderen Seite etwas falsch interpretiert

Zitat:

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

Ersetze MMDevAPI:

Ok das war alles falsch basierend auf dein Schnipsel.
BOOL und HRESULT wäre richtig gewesen, aber gut.

Zitat:

so dass ich tatsächlich nochmal einen dritten Anstoß von EWeiss in diese Richtung brauchte.

Na ja himitsu hat da im Beitrag 8 schon drauf hingewiesen.

Zitat:

"Boolean" (1 Byte) ist auch falsch, da BOOL dem LongBool (4 Byte) entspricht.

Das wäre alles nicht passiert wenn du die Interface selbst übersetzt hättest.
Wie schon gesagt da ist noch einiges im argen.

Einfaches Beispiel..
Die richtige Code-Zeile für GetMute sieht aus wie folgt.

function GetMute(var pbMute: BOOL): HRESULT; stdcall; Durch den var Parameter pbMute hättest du Boolean gar nicht erst übergeben können (Der Fehler wäre also niemals aufgetreten)
Dann wie Zacherl schon sagte ist die Rückgabe HRESULT nicht Integer.. wenn schon dann "LongInt"
usw..

gruss

[r29d43]

na, jetzt mach aber bitte mal ein bisschen halblang.

Zitat:

Zitat:

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

Ersetze MMDevAPI:

Ok das war alles falsch basierend auf dein Schnipsel.
BOOL und HRESULT wäre richtig gewesen, aber gut.

Wieso basierend auf meinem Schnipsel? Das sehe ich minimal anders. Für mich liest sich das schlicht so, dass er diese Art der Ergebnisübergabe noch garnicht so richtig kannte und hier einfach einen angeblichen Vergleich zwischen Boolean- und INTEGER-Wert beanstanden wollte.

Zitat:

Zitat:

so dass ich tatsächlich nochmal einen dritten Anstoß von EWeiss in diese Richtung brauchte.

Na ja himitsu hat da im Beitrag 8 schon drauf hingewiesen.

Zitat:

"Boolean" (1 Byte) ist auch falsch, da BOOL dem LongBool (4 Byte) entspricht.

habe ich doch selbst schon so anklingen lassen, oder?

Zitat:

Das wäre alles nicht passiert wenn du die Interface selbst übersetzt hättest.

Da gebe ich dir allerdings recht. Obschon wage ich es mal festzustellen, dass sich der ganz große Tross des Programmierervolkes ebenfalls auf diese etwas schnellere Art und Weise fortzubewegen versucht. Es reicht imo, wenn man den im Internet irgendwo erspähten Code grundsätzlich begriffen hat, diesen vllt. noch da o. da etwas sinnvoll auskommentiert hat, und wenn der anschließend auch noch (jahrelang) fehlerlose Ergebnisse bringt, dann ist der eben gebongt. Erst wenn ich mal irgendein etwas größeres Projekt bzgl. dieses Themas machen möchte, und nicht nur ein kleines Mini-Progrämmchen, werde ich mir die Sache nochmal etwas gründlicher und eingehender zu Gemüte führen. Das wird auch bei sehr vielen anderen so die Regel sein, und ist durchaus auch sinnvoll bzw. notwendig, wenn überhaupt eine irgendwie nennenswerte Masse an interessantem Code, den man mal wenigstens so zur Kenntnis genommen haben sollte, herauskommen soll.

Zitat:

Wie schon gesagt da ist noch einiges im argen.

Danke, danke, danke, es sprach wohl der ganz ganz große Meister himself!

Zitat:

Einfaches Beispiel..
Die richtige Code-Zeile für GetMute sieht aus wie folgt.

Geschenkt, für solche extra schöngeschriebenen Sandmännchengeschichtchen bin ich schon zu alt.

usw..



Schönen Abend,
trotzdem noch.