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

[Klavos]

Danke Emil!
Oh ja-ich habe es befürchtet :
diese Mixer-Unit (u.a.) sind eine Nummer zu groß für mich!
Ich arbeite mit Delphi6 und bin nicht in der Lage, folgenden
Teilausschnitt aus Deinen Unit's zu extrahieren:
Ich benötige eine (eigene) Ereignisbehandlungsroutine, in der
ich das Ereignis "Volumen-Master-Änderung" behandeln kann.
Bislang mache ich das erfolgreich mit einem Timer-Ereignis,
in dem ich den Pegel des Volumen-Master-Reglers zyklisch abfrage.
Hintergrund: Ich stelle über einen extern (COM-Port) angeschlossenen µP die
Lautstärke des Audio-Leistungsverstärkers äquivalent zur
eingestellten Lautstärke des (PC-)VolumenReglers (Rauschminderung).
Ziel: Ich möchte die zyklische Abfrage durch eine
Ereignisbehandlungsroutine ersetzen.
Kannst Du mir einen Tip geben, wie ich an das Ereignis gelange?
Danke
Klaus

[EWeiss]

Du meinst das Event?
Gibt es doch in meiner Komponente..

Siehe App..
procedure AudioVolume1MasterVolumeChanged(ByMyAction: Boolean; Volume: Single; Mute: Boolean);

AudioVolume..

Delphi-Quellcode:

TOnMasterVolumeEvent = procedure(ByMyAction: Boolean; Volume: Single; Mute: Boolean) of object;
//...
FOnMasterVolumeEvent: TOnMasterVolumeEvent;
//..
property OnMasterVolumeChanged
  : TOnMasterVolumeEvent read FOnMasterVolumeEvent write FOnMasterVolumeEvent;

Delphi-Quellcode:

function TAudioVolume.OnNotify(pNotify: PAUDIO_VOLUME_NOTIFICATION_DATA): HResult; stdcall;
begin
  if MainThreadID <> GetCurrentThreadId then
  begin
    TThread.Synchronize(nil,
      procedure
      var
        VolumeData: AUDIO_VOLUME_NOTIFICATION_DATA;
      begin
        VolumeData := pNotify^;

        if Assigned(tbMasterVolume) then
        begin
          tbMasterVolume.Position := round((1.0 - VolumeData.fMasterVolume) * tbMasterVolume.Max);
          ckMasterMute.Checked := VolumeData.bMuted;
        end;
        if Assigned(tbMasterBalance) then
          AdjustMasterBalancePos;

        if Assigned(FOnMasterVolumeEvent) then
          FOnMasterVolumeEvent(MyVolSet, VolumeData.fMasterVolume, VolumeData.bMuted); // hier ist die Rückgabe..
      end);
  end;

  Result := S_OK;
end;

Aber wie ich schon sagte habe die Komponente nicht weiter verfolgt diese kann also Fehler beinhalten.
Ich erstelle die mit meiner Anwendung Mixer64 Dynamisch.. und ist allemal besser als eine Komponente da man dann nicht abhängig von den Visuellen Styles ist die in der Komponente addiert\festgelegt sind.
Zudem muss ich nichts installieren oder Registrieren.

gruss

[SearchBot]

Hallo,

gerade gestern habe ich wieder angefangen, mich mit der Lautstärkesteuerung eines anderen Prozesses zu beschäftigen.
Ich habe dann MfPack durch den Tipp von KodeZwerg entdecken dürfen, aber nicht geblickt.

Dann erinnerte ich mich, dass ich doch mal die einfachere Komponente TAudioVolume vom Stand Mai 2018 geholt hatte, deren Gestaltung mir aber nicht zusagte (ich brauche nur den Trackbar, man kann das andere aber nicht ausblenden oder die Größe verändern [hab es schon mal versucht, bin aber nicht fit im Ändern von Komponenten]).

Heute mache ich also weiter und denke so bei mir, "vielleicht gibt es ja ein Update dieser Komponente..?"

Oh nein, FATAL - EWeiss hat genau heute Morgen das Projekt entfernt!!

Wo bekomme ich denn jetzt die letzte Version von TAudioVolume?