AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte TAudioVolume Komponente incl. System Mixer

TAudioVolume Komponente incl. System Mixer

Ein Thema von EWeiss · begonnen am 6. Mai 2018 · letzter Beitrag vom 5. Jul 2018
Antwort Antwort
Seite 4 von 19   « Erste     234 5614     Letzte » 
Benutzerbild von EWeiss
EWeiss
Registriert seit: 16. Okt 2010
*67
{ TAudioVolume

This component controls volume level or muting state of audio device and Session.

Any suggestions/advice would be appreciated.

Author : Silhwan Hyun (hyunsh@hanafos.com)
Contributor : Emil Weiss (weiss.em@arcor.de)
Contributor : HolgerX (https://www.delphipraxis.net/members/19009-holgerx.html)
Contributor : TiGü (https://www.delphipraxis.net/members/64337-tigue.html)

#### Copyright Notice ####
Copyright 2011 Silhwan Hyun, All Rights Reserved
This unit is free. It may be used both in commercial and non-commercial software either in
original or in modified form.
This unit can be freely distributed in any way and by any means provided this copyright
notice is preserved.


note) 1. For the functions, procedures and events which constitute pairs, e.g. GetVolume and GetMasterVolume,
- The one which has "Master" in its name is related to audio endpoint devices such as speaker or
headphone and the other is related to the application to which the instance of TAudioVolume belongs.
2. The property SuppressEvent can be used to inhibit redundant triggering of OnVolumeEvent or OnMasterVolumeEvent.
=> Set when the thumb of TrackBar(used as Volume Level Indicator on main form) is pressed
and reset when the thumb of TrackBar(used as Volume Level Indicator) is released.
3. Following proceure/function/property is valid only if the operating system is Windows Vista or newer.
IsMuted, GetVolume, DeviceMixFormat
4. function SetupPeakMeter is valid only if the operating system is Windows 7 or newer.
5. You should call the function SetupPeakMeter once before you use function GetPeak to get the peak value
of application's audio output, i.e., not of the peak value of endpoint audio device.

If you have any idea on this issue, please let me know.

Revision History
------------------------------
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ü)

v1.0.3 (08 Mai 2018)
- Master Icon addiert

v1.0.2 (08 Mai 2018)
- Caption der GroupBox entfernt.
- Neuen Label addiert für Anwendungs Info
- 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.
- Label zentriert.
- Namen die zu lang sind werden gekürzt wenn sich kein Leerzeichen im String befindet
- Namen werden umgebrochen wenn Leerzeichen vorhanden sind und dieser zu lang ist (Wordwrap)
- Die ganzen Controls dementsprechend neu ausgerichtet so das der Label passt.
- Fehler in der procedure LoadIconPathfromResource korrigiert. (Dank geht an KodeZwerg, Dalai)
- ToolTips addiert.
- PeakMeter Problem behoben
- Neue Events addiert die aber leider nicht abfeuern keine Ahnung warum
- Jede menge unnötige (doppelte Deklarationen entfernt.)
- SystemSounds werden nun im Hauptformular angezeigt weil dieser immer vorhanden ist.
(by Emil Weiss)

v1.0.1 (06 Mai 2018)
- Remove AppVolume is now a part of Session
- Add Mixer Session
(by Emil Weiss, HolgerX)

v1.0.0 (25 Feb 2017)
- Added GetMasterBalance
- fixed some parts on GetMasterVolume depend on MixerApi
- fixed some parts on SetMasterVolume depend on MixerApi
- fixed AdjustMasterBalancePos
(by Silhwan Hyun, Emil Weiss)

v0.9.8 (04 Feb 2017)
- Added Balance
(by Emil Weiss, Silhwan Hyun)

v0.9.7 (25 Jan 2016)
- Added Visuals to: GroupBox, Slider, Trackbars
(by Emil Weiss)

v0.9.6 (15 Jun 2014)
- Added following 2 functions to get the peak value of all channels at once.
(by suggestion of Emil Weiss)
GetChannelsMasterPeak, GetChannelsPeak

v0.9.5 (06 Jun 2014)
- Added and modified functions to support application's(session) peak meter

v0.9.4 (12 Mar 2012)
- Modifications to support multi sound cards in a system on Windows XP
- Replaced function AudioDeviceName with function AudioDeviceInfo
- Added properties,
DefaultAudioDevice : shows the default audio endpoint device for output
OnDeviceStateChange : fires at the state change or add/removal of a device
OnDefaultDeviceChange : fires at the change of default audio endpoint device for output
- Changed property
SelectedDevice : data type changed from string to TDeviceInfo(Name & Id)
- Renamed property
OnSessionStateEvent (renamed from OnStateEvent, state = one of Inactive, Active, Expired)

v0.9.3 (21 Aug 2011)
- Added functions : GetMasterPeak
- Added property : DeviceMixFormat, MasterChannels
- Cleaned up garbage sentences added for debug

v0.9.2 (12 Aug 2011)
- Bug fix : Errors caused by unnecessary call of "_Release" method of COM objects.
- The PropSys.pas file is renamed to PropSys2.pas to avoid conflict with Delphi 2010.
- Fixed compile error with Delphi 7.
- The property "Active" is replaced with property "Ready" (=> it's ready to operate)
- No selection of audio endpoint device at component Creation.

v0.9.1 (03 Aug 2011)
- Supports Windows XP
- A parameter added at TOnVolumeEvent to enable you to check if the event was triggered by
self action.

v0.9.0 (31 Jul 2011)
- Initial release


Known bugs
- There are uncertain cases which stop further event call (OnMasterVolumeEvent, OnVolumeEvent).
}

Geschrieben D2010.. sollte kompatible sein zu D6 und höher.

Es gibt noch einiges zu tun..
Habe nichts gegen Tatkräftige Unterstützung.

Die Classen sind sortiert und haben Aussagekräftige Namen.
Ich persönlich finde es nicht so gut alles in eine Unit zu klatschen.
Deshalb wurde die Ursprüngliche Unit MMDevApi auf gesplittet.

v1.0.0 (05 July 2018)
- Mixer Source addiert..

gruss
Miniaturansicht angehängter Grafiken
preview.png   mixer.jpg  
Angehängte Dateien
Dateityp: zip TAudioVolume.zip (541,5 KB, 36x aufgerufen)
Dateityp: zip Mixer.zip (3,28 MB, 8x aufgerufen)

Geändert von EWeiss ( 5. Jul 2018 um 09:48 Uhr)
 
Benutzerbild von EWeiss
EWeiss

 
Delphi 2010 Architect
 
#31
  Alt 8. Mai 2018, 06:13
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
Miniaturansicht angehängter Grafiken
speaker.png   nix.png  

Geändert von EWeiss ( 8. Mai 2018 um 06:18 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

 
Delphi 2009 Professional
 
#32
  Alt 8. Mai 2018, 06:22
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.

Geändert von KodeZwerg ( 8. Mai 2018 um 06:24 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss

 
Delphi 2010 Architect
 
#33
  Alt 8. Mai 2018, 06:30
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

Geändert von EWeiss ( 8. Mai 2018 um 06:35 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

 
Delphi 2009 Professional
 
#34
  Alt 8. Mai 2018, 06:36
mmres.dll @ icon #13 = 32x32x32, bis später!
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss

 
Delphi 2010 Architect
 
#35
  Alt 8. Mai 2018, 07:03
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
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

 
Delphi 2009 Professional
 
#36
  Alt 8. Mai 2018, 07:10
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!

Geändert von KodeZwerg ( 8. Mai 2018 um 07:18 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss

 
Delphi 2010 Architect
 
#37
  Alt 8. Mai 2018, 07:18
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

Geändert von EWeiss ( 8. Mai 2018 um 07:48 Uhr)
  Mit Zitat antworten Zitat
TiGü

 
Delphi 10.1 Berlin Enterprise
 
#38
  Alt 8. Mai 2018, 08:44
Für solche Fälle einfach den "Resource Hacker" verwenden, dann muss keiner rumrätseln.

http://www.angusj.com/resourcehacker/
  Mit Zitat antworten Zitat
TiGü

 
Delphi 10.1 Berlin Enterprise
 
#39
  Alt 8. Mai 2018, 08:45
Siehe Bild:
Miniaturansicht angehängter Grafiken
mmres.jpg  
  Mit Zitat antworten Zitat
Benutzerbild von EWeiss
EWeiss

 
Delphi 2010 Architect
 
#40
  Alt 8. Mai 2018, 08:48
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
Miniaturansicht angehängter Grafiken
08.05.png  

Geändert von EWeiss ( 8. Mai 2018 um 08:53 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2018 by Daniel R. Wolf