TAudioVolume Komponente incl. System Mixer

[EWeiss]

Projekt entfernt..

[KodeZwerg]

Gratuliere zu dem Erfolg!

Windows 10/64 bit:
AudioVolumeAdj_Eng.exe läßt sich starten, in Hauptansicht funktioniert alles bestens!
Nebenansicht mit den einzelnen Apps, Rechts/Links verstellen funktioniert nicht und es gibt dort keine Tonausschläge.
Ansonsten habt Ihr echt was cooles dahingezaubert!

Improvement:
Es gutes Goodie wäre wenn man Lautstärke ändert und Mausknopf loslässt, da wäre ein akkustischer Windows Pling Ton cool um zu erahnen wie laut es ist.

[EWeiss]

Zitat:

Nebenansicht mit den einzelnen Apps, Rechts/Links verstellen funktioniert nicht und es gibt dort keine Tonausschläge.
Ansonsten habt Ihr echt was cooles dahingezaubert!

Bitte etwas genauer beschreiben.
Die PeakAnzeige ja die macht noch Probleme da ich noch am Rätzeln bin wie ich die aktuell aktive Session damit verbinden muss.
Die Controls werden ja in der Anwendung erstellt in der Komponente habe ich kein Array und kann dementsprechend nicht prüfen was gerade aktiv ist.

Zitat:

Rechts/Links verstellen funktioniert nicht

Was verstellen?

Ich kann vom Tray Windows Mixer jedes einzelne Control in der Anwendung den regler verändern (Volumen) und umgekehrt.
Vergleich siehe Pic. (Win7)

Wenn du die Balance meinst (Bin am überlegen diese für die Session zu deaktivieren)
Letztendlich wirken sie sich auf das gesamte System aus und betrifft alle Session gleichzeitig.
Aber funktionieren tun sie trotzdem. Von und zum Windows Mixer

EDIT:

Zitat:

Die PeakAnzeige ja die macht noch Probleme da ich noch am Rätzeln bin wie ich die aktuell aktive Session damit verbinden muss.

Man kann das am besten selbst testen..
Eine Midi Datei öffnen und abspielen im Example nicht in fremden Player.
Dann sollte eigentlich der PeakMeter der Anwendung reagieren.
Tut er auch mit viel glück ;) aber meistens visualisiert ein anderer an deren stelle.


gruss

[KodeZwerg]

Kanalsteuerung Rechts <- Mitte -> Links
Das funktioniert nicht in der Nebenansicht, also per App Setting. Kann bei mir an Windows 10 liegen wie so oft.
ot
Wie kompatibel ist Delphi 2009 zu 2010, gibt es da arge Unterschiede, weißt Du da was drüber? Da bin ich stark am überlegen mir das zusätzlich zu kaufen um bei kleinst-privat-Projekten kleinere Dateien zu erzeugen als wie es Delphi Tokyo macht.
/ot

edit
das oben hat sich erledigt, habs gerade gelesen.

[EWeiss]

Zitat:

Wie kompatibel ist Delphi 2009 zu 2010

Sorry keine Ahnung habe es ausgelassen.

gruss

[EWeiss]

Ich habe jetzt die funktion geändert.
Höheren MAXSIZE addiert und den String nochmals gesplittet um die richtige länge der ID zu extrahieren.

Delphi-Quellcode:

procedure TAudioVolume.LoadIconPathfromResource(IconPath: PWideChar);
var
  Module: HModule;
  Filename: WideString;
  lpDest: array[0..32768] of WideChar;
  SplitID: TSplitStrArray;
  rSplitID: string;
  ID: DWORD;
begin

  // Remove First @ Letter
  Filename := MidStr(IconPath, 2, Length(IconPath));
  // Extract ID
  SplitID := Split(Filename, ',');
  rSplitID := SplitID[High(SplitID)];
  rSplitID := MidStr(rSplitID, 2, Length(rSplitID));

  ID := StrToInt(rSplitID);
  // Remove ID from Path
  Filename := LeftStr(Filename, Length(Filename) - 5);

  FillChar(lpDest, SizeOf(lpDest), 0);
  if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then
  begin
    // Load the Lib
    Module := LoadLibraryExW(lpDest, 0, LOAD_LIBRARY_AS_DATAFILE);
    // check for error
    if Module <> INVALID_HANDLE_VALUE then
    begin
      Icon := TIcon.Create;
      Icon.Handle := LoadIcon(Module, MakeIntResource(ID));
      if Module <> 0 then
        FreeLibrary(Module);
    end;
  end;
end;

Update kommt später muss noch einiges andere tun.. zum Beispiel den Namen kürzen wenn zu lang für die GroupBox.
Tool Tipps addieren um den Kompletten Namen anzuzeigen wenn gekürzt
Lautsprecher Icon addieren usw..

gruss

[KodeZwerg]

Delphi-Quellcode:

if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then

sollte

Delphi-Quellcode:

if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768-1) <> 0 then

sein.
Sorry & Gruß

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1401472)

Delphi-Quellcode:

if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then

sollte

Delphi-Quellcode:

if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768-1) <> 0 then

sein.
Sorry & Gruß

oops.. logisch ist schon spät. ;) Danke

gruss

[Dalai]

Beim Entfernen der ID aus dem String

Delphi-Quellcode:

Filename := LeftStr(Filename, Length(Filename) - 5);

benutzt du immer noch eine feste Anzahl von Zeichen, wo eigentlich bis zur Position des Kommas kopiert werden sollte. Bzw. wenn du schon vorher

Delphi-Quellcode:

SplitID[High(SplitID)]

für den Icon-Index benutzt, könntest du doch an der Stelle

Delphi-Quellcode:

SplitID[Low(SplitID)]

verwenden, das bereits alles vor dem Komma (=der gewünschte Pfad) enthält, oder?

Grüße
Dalai

[EWeiss]

Zitat:

Zitat von Dalai (Beitrag 1401474)

Beim Entfernen der ID aus dem String

Delphi-Quellcode:

Filename := LeftStr(Filename, Length(Filename) - 5);

benutzt du immer noch eine feste Anzahl von Zeichen, wo eigentlich bis zur Position des Kommas kopiert werden sollte. Bzw. wenn du schon vorher

Delphi-Quellcode:

SplitID[High(SplitID)]

für den Icon-Index benutzt, könntest du doch an der Stelle

Delphi-Quellcode:

SplitID[Low(SplitID)]

verwenden, das bereits alles vor dem Komma (=der gewünschte Pfad) enthält, oder?

Grüße
Dalai

Richtig.. Danke werde es abändern.
Macht ja sonst keinen sinn. ;)

gruss

[EWeiss]

Heute geändert..

1. Caption der GroupBox entfernt.
2. Neuen Label addiert für Anwendungs Info
3. Alle Exe Dateien werden jetzt durch eine VersionInfo Routine gejagt
   wenn vorhanden wird Filedescription anstelle des Exenamen verwendet.
   Der Quelltext dafür ist nicht von mir habe aber den Credit in den Pass Dateien erhalten es kann also jeder sehen woher er stammt. (DelphiDabbler)
   War mir zu viel Arbeit das jetzt selbst zu implementieren.
4. Label zentriert.
5. Namen die zu lang sind werden gekürzt wenn sich kein Leerzeichen im String befindet
6. Namen werden umgebrochen wenn Leerzeichen vorhanden sind und dieser zu lang ist (Wordwrap)
7. Die ganzen Controls dementsprechend neu ausgerichtet so das der Label passt.
8. Fehler in der procedure LoadIconPathfromResource korrigiert. (Dank geht an KodeZwerg, Dalai)
9. ToolTips addiert.

Tip!
Wer die inaktiven Session nicht sehen will kann diese Zeile in der Anwendung auf False setzen.
Dann werden nur die Session angezeigt die Aktiv sind.
Aber Achtung da ich noch keinen Thread zur Verfügung habe der die Session automatisch ändert wird dann fast nichts sehen
es sei denn beim Start ist eine Sound Anwendung aktiv.

Delphi-Quellcode:

tmpAudioVolume.UseSessionInactive := true;

gruss

[EWeiss]

Aktuelle Testversion.
Anhang gelöscht Änderungen sind im neuen Quelltext enthalten.

gruss

[KodeZwerg]

Zitat:

Zitat von EWeiss (Beitrag 1401478)

Wer die inaktiven Session nicht sehen will kann diese Zeile in der Anwendung auf False setzen

Davon rate ich ab, der Windows-Mixer arbeitet auch so, so eine Funktion würde ich pers. von Hause aus nicht anbieten.
Beispiel:
Mastervolume 10%
Anwendung A 100%
Anwendung B 50%

nun Anwendung A pausieren = raus aus Ansicht nur weil kein Ton kommt
nun Master auf 100% und Anwendung A wieder abspielen lassen = man ist hellwach :P

[EWeiss]

Zitat:

Davon rate ich ab, der Windows-Mixer arbeitet auch so, so eine Funktion würde ich pers. von Hause aus nicht anbieten.

So einfach kann man das pauschal nicht sagen.

Denn wir haben festgestellt das der Windows Mixer einen Cache verwendet und alte Session festhält für ca. 3 Min.
Das bedeutet es könnte Auswirkungen darauf haben wie oft und wie schnell eine Anwendung jedes Mal neu gestartet wird.

In dem man NUR die Aktiven Session verwendet umgeht man das Cache Problem.
Ich habe mir also etwas dabei gedacht es so zu implementieren.

gruss

[KodeZwerg]

Vorschlag: Wie wäre es mit einem Knopf "ausblenden" in der AppView und im Master einen "Ausgeblendete einblenden" Knopf? :?:
Aber einen Timer der aktive dann auto-einblendet..... hmmmm..... es ist kompliziert, Ihr/Du werdet schon das Richtige machen, sobald ich D2009 hab lad ich mal Source rein um mit der Balanz-Regelung Dich zu unterstützen.

[EWeiss]

Zitat:

um mit der Balanz-Regelung Dich zu unterstützen.

Wo ist das Problem da? Es funktioniert bei mir alles.

Zitat:

der Windows-Mixer arbeitet auch so

Der wird auch nicht alle 10 Sekunden neu gestartet als Beispiel.

Mache einfach mal folgendes Starte TAudioVolume.
Schließe es und überprüfe im Memo diese Zeile nach einem erneuten Start.

Delphi-Quellcode:

Display('*******SESSION REMOVED********' + #13#10)

Wenn du diese Zeile bei einem Control sehen kannst dann bedeutet dass das dieses Control gelöscht wird.
Also das Control ist dann ein Überbleibsel aus dem Cache der vorherigen Session.

Es hat keinen DisplayNamen und keinen IconPath.
Wie auch denn es wird aus dem Cache geladen der für meine Anwendung ungültig ist.
Deshalb wird er ausgefiltert.

Wenn also die Anwendung zu schnell und in zu kurzer Zeit neu gestartet wird inkrementiert sich der Counter der Session und liefert ungültige Session zurück.
Deshalb gibt es die Funktion der NUR aktiven "Session anzeigen"

gruss

[KodeZwerg]

Ja ich habs nun Verstanden, das Anfangs war total falsch interpretiert von mir, wir haben aneinander vorbei gesprochen.
Von daher stimme ich Dir voll zu! Sorry dafür!

Ps: Balanz funktioniert nur im Master nicht in AppView bei mir, sobald ich 2009 hab schau ich mal woran es bei mir liegt.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1401579)

Ja ich habs nun Verstanden, das Anfangs war total falsch interpretiert von mir, wir haben aneinander vorbei gesprochen.
Von daher stimme ich Dir voll zu! Sorry dafür!

Ps: Balance funktioniert nur im Master nicht in AppView bei mir, sobald ich 2009 hab schau ich mal woran es bei mir liegt.

Kein Problem wollte dir nur sagen warum diese Funktion implementiert wurde.

gruss

[EWeiss]

Neue Version oben..
Das Icon für den Lautsprecher habe ich noch nicht addiert keine Ahnung in welcher DLL, CPL oder was auch immer dieses sich befindet.
Wenn dann möchte ich schon das Original einbinden vom installierten Soundtreiber.

Vergleicht den alten und neuen Quelltext dann wisst ihr was ich gemacht habe ;)

gruss

[Dalai]

Zitat:

Zitat von EWeiss (Beitrag 1401610)

Das Icon für den Lautsprecher habe ich noch nicht addiert keine Ahnung in welcher DLL, CPL oder was auch immer dieses sich befindet.

In %SystemRoot%\system32\mmres.dll findet man eine Reihe von Icons Richtung Multimedia, unter anderem auch das vom Lautsprecher.

Grüße
Dalai

[EWeiss]

Zitat:

Zitat von Dalai (Beitrag 1401614)

Zitat:

Zitat von EWeiss (Beitrag 1401610)

Das Icon für den Lautsprecher habe ich noch nicht addiert keine Ahnung in welcher DLL, CPL oder was auch immer dieses sich befindet.

In %SystemRoot%\system32\mmres.dll findet man eine Reihe von Icons Richtung Multimedia, unter anderem auch das vom Lautsprecher.

Grüße
Dalai

Danke es nutzt mir nichts.
Ich brauche das Original aus diesem Dialog.
Es ist ein "STATIC" Window also ein Image. Frage mich wo der Windows Mixer das herholt.

EDIT:
bzw.. der Pfad ist schon korrekt also C:\Windows\system32\mmres.dll
Nur ich kenne die ID nicht und weis auch nicht welche das ist wenn der User das Icon ändert.

gruss

[Dalai]

Zitat:

Zitat von EWeiss (Beitrag 1401615)

Ich brauche das Original aus diesem Dialog.

Mit Original meinst du das Icon von Realtek in deinem Fall? Oder doch den Lautsprecher?

Grüße
Dalai

[EWeiss]

Zitat:

Zitat von Dalai (Beitrag 1401617)

Zitat:

Zitat von EWeiss (Beitrag 1401615)

Ich brauche das Original aus diesem Dialog.

Mit Original meinst du das Icon von Realtek in deinem Fall? Oder doch den Lautsprecher?

Grüße
Dalai

Das "STATIC" Image im Dialog ;)
So wird es auch im Mixer angezeigt.

Ich weis nicht wie ich da dran komme zum Beispiel wenn der User das Symbol ändert. ;)
Hab die Registry durchsucht nix zu finden.
Wenn ich das Icon ändere dann wird es im Mixer auch genauso angezeigt.

gruss

[KodeZwerg]

SndVol.exe im System32 Ordner, hat jedes normale Windows und enthält Mixer-Icons, Lautsprecher Icons gleich ab #1.
shell32.dll hat glaub ich dann das Windows-Versions-Spezifische, kann mich auch irren.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1401619)

SndVol.exe im System32 Ordner, hat jedes normale Windows und enthält Mixer-Icons, Lautsprecher Icons gleich ab #1.
shell32.dll hat glaub ich dann das Windows-Versions-Spezifische, kann mich auch irren.

Ich will das Originale so wie es im Mixer sichtbar ist.

Gruss

[KodeZwerg]

Zitat:

Zitat von EWeiss (Beitrag 1401620)

Ich will das Originale so wie es im Mixer sichtbar ist.

SndVol.exe ist das Original = der Mixer und enthält nur Lautsprecher Symbole.
In einer anderen Windows DLL ist das OS-Spezifische.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1401621)

Zitat:

Zitat von EWeiss (Beitrag 1401620)

Ich will das Originale so wie es im Mixer sichtbar ist.

SndVol.exe ist das Original = der Mixer und enthält nur Lautsprecher Symbole.
In einer anderen Windows DLL ist das OS-Spezifische.

Ich baue den Mixer nach also benötige ich das Original des Mixer egal ob der User es geändert hat oder nicht.
Alles andere macht keinen Sinn.
Andernfalls lasse ich es leer und der Anwender der Komponente muss es selber machen.

PS: Richtig oder gar nicht ;)

gruss

[KodeZwerg]

Dann geb ich Dalei recht.
mmres.dll icon nummer 10-15 wird bei mir (Windows 10) je nach Skalierung verwendet. 10 ist die größte, 15 die kleinste, schau da mal rein auch wenn Du da was von STATIC bereits erwähnt hattest.

Ps: Ich vermute mit Themes kann sich auch dieses Verhalten ändern.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1401625)

Dann geb ich Dalei recht.
mmres.dll icon nummer 10-15 wird bei mir (Windows 10) je nach Skalierung verwendet. 10 ist die größte, 15 die kleinste, schau da mal rein auch wenn Du da was von STATIC bereits erwähnt hattest.

Ps: Ich vermute mit Themes kann sich auch dieses Verhalten ändern.

OK! Nein..
Denke du hast mich überzeugt.

Wenn ich SndVol.exe starte dann bekomme ich das Original Icon des Mixer. (Denn SndVol.exe ist ja der Mixer)
Alles andere scheint mir im Nachhinein geändert worden zu sein.

Also muss ich mich darauf konzentrieren und das Icon im Mixer das geändert wurde ignorieren.
Irgendwo muss es grenzen geben.

Danke!
Baue das dann ein.

gruss

[KodeZwerg]

Versuche mal Icon 10 aus mmres, kein Scherz.
Ps: Ich glaub ich weiß jetzt was du mit STATIC meintest, Du hast Dir den Mixer mit einem Spy betrachtet. Da ist STATIC für alles gut, Bilder, Icons, Videos, Text, vieles eben, vergleichbar mit einem Panel von Delphi.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1401627)

Versuche mal Icon 10 aus mmres, kein Scherz.
Ps: Ich glaub ich weiß jetzt was du mit STATIC meintest, Du hast Dir den Mixer mit einem Spy betrachtet. Da ist STATIC für alles gut, Bilder, Icons, Videos, Text, vieles eben, vergleichbar mit einem Panel von Delphi.

Und du meinst das es immer der Index 10 ist welches vom Mixer wenn geändert dargestellt wird? (Das bringt nix)
Index 10 ist bei mir ein Kopfhörer.

Der Index ist nicht fix..

Habe es jetzt so.

gruss

[KodeZwerg]

Wie erkennst Du da eine Index Nummer? Da ist alles durcheinander oder vielleicht nach Größe sortiert.
Icon 10-15 sollte fix für das bessere Mixer Symbol sein.
Es sieht ähnlich aus wie das direkt unter dem markierten (bei mir).

edit
Sag mir die Icon Dimension die Du Anzeigen kannst und ich gebe Dir passende Nummer.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1401631)

Sag mir die Icon Dimension die Du Anzeigen kannst und ich gebe Dir passende Nummer.

Das ist ein anderes Problem es scheint das ich nur schlechtere Qualität bekomme 32x32 256 besser wäre 32x32 16.8mil colors.
Es gibt scheinbar kein Flag für SHGetFileInfoW das ich übergeben könnte für die höhere Qualität.

Zitat:

Wie erkennst Du da eine Index Nummer? Da ist alles durcheinander oder vielleicht nach Größe sortiert.

Weil das Icon verwendet wird das ausgewählt wurde und das ist dann nun mal an einer anderen Position in der Liste.

gruss

[KodeZwerg]

mmres.dll @ icon #13 = 32x32x32, bis später!

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1401637)

mmres.dll @ icon #13 = 32x32x32, bis später!

Sorry mit so was kann ich nichts anfangen das ist nicht aussagekräftig.

Das Icon 13 das du angibst ist das Microfon mit Ständer und hat die ID -3021.

Zitat:

mmres.dll.ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3004
mmres.dll (2).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3010
mmres.dll (3).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3011
mmres.dll (4).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3012
mmres.dll (5).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3013
mmres.dll (6).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3014
mmres.dll (7).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3015
mmres.dll (8).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3016
mmres.dll (9).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3017
mmres.dll (10).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3018
mmres.dll (11).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3019
mmres.dll (12).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3020
mmres.dll (13).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3021
mmres.dll (14).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3030
mmres.dll (15).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3031
mmres.dll (16).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3050
mmres.dll (17).ico - QUELLDATEI = D:\Neuer Ordner\mmres.dll RESSOURCENTYP = 14 RESSOURCENNAME = 3051

Nur das bringt mir gar nichts weil ich nicht weis welches der User von den Icons ausgewählt hat.
Ich lasse es jetzt so wie es ist.

gruss

[KodeZwerg]

Ich bin doof bzw nicht ganz bei der Sache, Resourcename 13 meinte ich, hoffe ich, ach ich sag Bescheid wenn konzentrierter bin, tut mir leid!

Ps: das 32x32x32 bedeutet Dimension 32x32 mit 32bit Farbtiefe, falls das unverständlich war.
Ich seh bei mir alles nach Name sortiert und dacht es wär die Ordinal-Nummer, mein Fehler!

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1401643)

Ich bin doof bzw nicht ganz bei der Sache, Resourcename 13 meinte ich, hoffe ich, ach ich sag Bescheid wenn konzentrierter bin, tut mir leid!

Na egal den Ressourcenname 13 in der DLL gibt es nicht.
Habe das Icon jetzt und gut ist ;) aber nur 256 Farben

gruss

[TiGü]

Für solche Fälle einfach den "Resource Hacker" verwenden, dann muss keiner rumrätseln.

http://www.angusj.com/resourcehacker/

[TiGü]

Siehe Bild:

[EWeiss]

Zitat:

Für solche Fälle einfach den "Resource Hacker" verwenden, dann muss keiner rumrätseln.

Wie lange habe ich den schon 10 -> 15 Jahre ? ;)
Du kannst aber sehn das man sich auf die DLL und die Ordinal Nummer nicht verlassen kann.
Bei mir Win7.

gruss