TAudioVolume Komponente incl. System Mixer

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

if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then sollte
if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768-1) <> 0 then sein.
Sorry & Gruß

[EWeiss]

Zitat von KodeZwerg:

if ExpandEnvironmentStrings(PWideChar(Filename), lpDest, 32768) <> 0 then sollte
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 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 SplitID[High(SplitID)] für den Icon-Index benutzt, könntest du doch an der Stelle SplitID[Low(SplitID)] verwenden, das bereits alles vor dem Komma (=der gewünschte Pfad) enthält, oder?

Grüße
Dalai

[EWeiss]

Zitat von Dalai:

Beim Entfernen der ID aus dem String 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 SplitID[High(SplitID)] für den Icon-Index benutzt, könntest du doch an der Stelle 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.

tmpAudioVolume.UseSessionInactive := true;

gruss

[EWeiss]

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

gruss

[KodeZwerg]

Zitat von EWeiss:

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

[EWeiss]

Neue Version..

Zitat:

v1.0.4 (15 Mai 2018)
- PostMessage für die Events entfernt
Events, Notifications und Callbacks wurden direkt in die Class TAudioVolume integriert
somit ist ein PostMessage für die Events nicht mehr von nöten
(by TiGü)

Danke für deine Mitarbeit.

gruss

[TiGü]

Gern!

Kann es sein, dass das Aufrufen der Callback von IAudioSessionNotification abhängig ist vom Treiber?
Der Treiber kann, muss das aber nicht implementieren.
Zumindest sieht das auf den ersten Blick so aus, wenn man sich die Wine-Quelltexte anschaut.