Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Mixer Aufnahmelautstärke auslesen (https://www.delphipraxis.net/87635-mixer-aufnahmelautstaerke-auslesen.html)

igel457 3. Mär 2007 13:42


Mixer Aufnahmelautstärke auslesen
 
Hallo,

mit
Delphi-Quellcode:
BASS_RecordSetInput(Input, BASS_INPUT_LEVEL or Volume);
kann man (bei der bass.dll) die aktuelle Aufnahmelautstärke im Windows Mixer setzen. Ich habe jedoch keine möglichkeit gefunden, die aktuelle Aufnahmelautstärke, der ausgewählten Aufnahmedevices, auszulesen. Weiß jemand, wie man dies verwirklichen kann?

Danke,
igel457

Aike 7. Mär 2007 20:24

Re: Mixer Aufnahmelautstärke auslesen
 
Ich verweise einfach mal auf meinen eigenen Thread, in dem man gerade versucht, mir zu helfen, ich aber immer noch keine Ahnung habe. (hier geht's weiter.)
Außerdem: Hier im Forum suchenMixer [dp]Sound Lautstärke[/dp]

Oder geht das Signal bei dir durch den LineIn? Dann wäre das ja das selbe Problem wie in meinem Thread. Falls es durch den Mikro-Eingang geht: [dp]Mikrofon Lautstärke[/dp]

Wishmaster 8. Mär 2007 05:36

Re: Mixer Aufnahmelautstärke auslesen
 
@igeal457

Du nimmst BASS_RecordGetInput anstatt BASS_RecordSetInput

En wenig Demo Code
Delphi-Quellcode:
{**************************** Input Set/Get Volume ****************************}

Function TBassEngine.Input_Set_Volume(Port, Value : integer) : Boolean;
begin
 if FBassDllLoaded then
   Result:= BASS_RecordSetInput(Port, BASS_INPUT_LEVEL or LOWORD(Value))
  else
   Result:= false;
end;

Function TBassEngine.Input_Get_Volume(Port : integer) : Integer;
begin
 if FBassDllLoaded then
  Result:= LOWORD(BASS_RecordGetInput(Port))
 else
  Result:= 0;
end;

igel457 8. Mär 2007 15:17

Re: Mixer Aufnahmelautstärke auslesen
 
Zitat:

Delphi-Quellcode:
LOWORD(BASS_RecordGetInput(Port))

Das sieht doch gut aus.
Danke!


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:05 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz