громкость звука (делфи)

[dyonysos]

у меня на клавиатуре ести кнопки управления звуком( vol+ vol- mute).но пользоватся ими не совсем удобно. в программе Mkey видел что когда меняешь громкость появляется progress bar где отображается уровень громкости.теперь хочу написать что-то похожее: программа будет висеть в трее аа окно с прогресс бар-ом будет появлатся только при изменении громкости и потом исчезать через 3 секунды.

Вопрос:

1. каким образом можно узнать что громкость меняется( чтобы сразу показать прогресс бар)?
2. как узнать текущую громкость чтобы показать ее в прогресс бар-е?

вопросы наверное глупые,но я новичок так что сильно не ругайте.

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=37478
и связываешь с прогрессом.

[artemavd]

Вот код:

Unit MPVolume;
Interface
uses
  MPlayer;

function GetMPVolume(MP: TMediaPlayer): Integer;
procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);

Implementation
uses
  MMSystem;

const

  MCI_SETAUDIO = $0873;
  MCI_DGV_SETAUDIO_VOLUME = $4002;
  MCI_DGV_SETAUDIO_ITEM = $00800000;
  MCI_DGV_SETAUDIO_VALUE = $01000000;
  MCI_DGV_STATUS_VOLUME = $4019;

type
  MCI_DGV_SETAUDIO_PARMS = record
    dwCallback: DWORD;
    dwItem: DWORD;
    dwValue: DWORD;
    dwOver: DWORD;
    lpstrAlgorithm: PChar;
    lpstrQuality: PChar;
  end;

type

  MCI_STATUS_PARMS = record
    dwCallback: DWORD;
    dwReturn: DWORD;
    dwItem: DWORD;
    dwTrack: DWORD;
  end;

procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
  { Volume 0 - 1000 !!!}
var
  MP_PARAMS: MCI_DGV_SETAUDIO_PARMS;
begin
  MP_PARAMS.dwCallback := 0;
  MP_PARAMS.dwItem := MCI_DGV_SETAUDIO_VOLUME;
  MP_PARAMS.dwValue := Volume;
  MP_PARAMS.dwOver := 0;
  MP_PARAMS.lpstrAlgorithm := nil;
  MP_PARAMS.lpstrQuality := nil;
  mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@MP_PARAMS));
end;

function GetMPVolume(MP: TMediaPlayer): Integer;
var 
  MP_PARAMS: MCI_STATUS_PARMS;
begin
  MP_PARAMS.dwCallback := 0;
  MP_PARAMS.dwItem := MCI_DGV_STATUS_VOLUME;
  mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@MP_PARAMS));
  Result := MP_PARAMS.dwReturn; 
end;

end.

А вот сама ссылка http://forum.shelek.ru/index.php/topic,10802.0.html
Думаю, что это то, что тебе нужно )

[dyonysos]

вот этот код:

 procedure SetVolume(const volL, volR: Word);
 var
   hWO: HWAVEOUT;
   waveF: TWAVEFORMATEX;
   vol: DWORD;
 begin
   // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
   // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
   vol := volL + volR shl 16;
   // set volume
  waveOutSetVolume(hWO, vol);
   waveOutClose(hWO);
 end;

не работает!
у меня стоит виндоус 7...

[artemavd]

А тот код, что я привел, работает?

[SERG1980]

usee MMSystem
procedure SetWaveVolume(const AVolume: DWord);
begin
 WaveOUtSetVolume(0,AVolume);
end;

procedure TForm2.TrackBar1Change(Sender: TObject);
begin
 SetWaveVolume(MakeLong(TrackBar1.Position*255,TrackBar2.Position*255));
end;

procedure TForm2.TrackBar2Change(Sender: TObject);
begin
 SetWaveVolume(MakeLong(TrackBar1.Position*255,TrackBar2.Position*255));
end;

ну а прогресс бар привяжите к трэк бару

[dyonysos]

SERG1980 - как удалось выяснить этот код работатет на экспи а на семерке WaveOUtSetVolume не хочет работать! в чем дело?

artemavd- нет это не то что мне нужно.я хочу регулировать громкость всей системы,а как я понял твой пример регулирует громкость компонента tmediaplayer.

нашел на мсдн-е GetMasterVolume и SetMasterVolume. но они находятся в Audioclient.h. ее можно подключить к проэкту и использовать функции? ( через uses не хочет)

[FelixKoT]

Насколько я понял, *.h это файл С++..

на семерке WaveOUtSetVolume не хочет работать!

работает на семёрке, только меняет громкость не всего звука, а только громкость своего приложения.. Никто не знает как сменить для всей системы?

[NetSpace]

исходники сверху не работают.
-----------
рыская по другим форумам, нашёл, что можно переделать файлы *.h в нужные *.pas, но с точностью 80% (что-то в конвертерах не всё продумано).
-----------
нашёл на просторах Инета работающую программу и код к ней.
есть вот такой код на ассемблере (см. приложенный файл).
скомпилированная программа работает как надо - меняет звук во всей системе.
осталось как-то корректно переделать это код на Pascal.
---------
мне же надо всего-навсего из этого "компота" функцию, чтоб установить громкость системы на максимум.

[NetSpace]

пытаясь, перевести этот код из приложенного вверху файла на Delphi, столкнулся с рядом проблем.
пытаясь выйти на методы интерфейса IAudioEndpointVolume, для начала хотел получить интерфейс дефолтного звукового устройства, чтоб после активировать его. после чего будет доступ к функциям управления звуком.
это код на асм'е

invoke  CoInitialize,NULL
 
        ; Создать объект
        invoke  CoCreateInstance,CLSID_MMDeviceEnumerator,NULL,\
                CLSCTX_INPROC_SERVER,\
                IID_IMMDeviceEnumerator,deviceEnumerator
 
        ; Инициализировать объект
        mov     eax, [deviceEnumerator]
        mov     eax, [eax]
        stdcall [eax+IMMDeviceEnumerator.GetDefaultAudioEndpoint],\
                [deviceEnumerator],[eRender],[eConsole],defaultDevice
 
        mov     eax, [deviceEnumerator]
        mov     eax, [eax]
        stdcall [eax+IMMDeviceEnumerator.Release],[deviceEnumerator]
 
        mov     eax, [defaultDevice]
        mov     eax, [eax]
        stdcall [eax+IMMDevice.Activate],[defaultDevice],\
                IID_IAudioEndpointVolume,CLSCTX_INPROC_SERVER,\
                NULL,endpointVolume
 
        mov     eax, [defaultDevice]
        mov     eax, [eax]
        stdcall [eax+IMMDevice.Release],[defaultDevice]

пытаюсь перевести на Delphi

unit Volumes;
interface
uses  Windows,Classes,Controls,ActiveX,Forms,OleServer,MMSystem,StdCtrls;
const
   CLSID_MMDeviceEnumerator:TGUID='{BCDE0395-E52F-467C-8E3D-C4579291692E}';
   IID_IMMDeviceEnumerator:TGUID='{A95664D2-9614-4F35-A746-DE8DB63617E6}';
   IID_IAudioEndpointVolume:TGUID='{5CDF2C82-841E-4546-9722-0CF74078229A}';
  DEVICE_STATE_ACTIVE = $00000001;
  DEVICE_STATE_UNPLUGGED = $00000002;
  DEVICE_STATE_NOTPRESENT = $00000004;
  DEVICE_STATEMASK_ALL = $00000007;

type
  EDataFlow = TOleEnum;

const
  eRender = $00000000;
  eCapture = $00000001;
  eAll = $00000002;
  EDataFlow_enum_count = $00000003;

type
  ERole = TOleEnum;

const
  eConsole = $00000000;
  eMultimedia = $00000001;
  eCommunications = $00000002;
  ERole_enum_count = $00000003;

type
  IAudioEndpointVolumeCallback = interface(IUnknown)
  end;
  IAudioEndpointVolume = interface(IUnknown)
  end;
  IAudioMeterInformation = interface(IUnknown)
  end;
  IPropertyStore = interface(IUnknown)
  end;
  IMMDevice = interface(IUnknown)
    function Activate(const refId: TGUID; dwClsCtx: DWORD; pActivationParams: PInteger; out pEndpointVolume: IAudioEndpointVolume): HRESULT; stdCall;
    function OpenPropertyStore(stgmAccess: DWORD; out ppProperties: IPropertyStore): HRESULT; stdcall;
    function GetId(out ppstrId: PWideChar): HRESULT; stdcall;
  end;
  IMMDeviceCollection = interface(IUnknown)
    function GetCount(out pcDevices: UINT): HRESULT; stdcall;
    function Item(nDevice: UINT; out ppDevice: IMMDevice): HRESULT; stdcall;
  end;
IMMDeviceEnumerator = interface(IUnknown)
    function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; out DevCollection: IMMDeviceCollection): HRESULT; stdcall;
end;    

type TForm1 = class(TForm)
     Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
     private
     public
end;

var Form1:TForm1;
implementation
{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var AudioEndpoints:IMMDeviceEnumerator;
    Collection:IMMDeviceCollection;
    Device:IMMDevice;
    Id_Dev:PWideChar;
    ID_Dev_Def:WideString;
begin
   CoCreateInstance(CLSID_MMDeviceEnumerator,nil,CLSCTX_INPROC_SERVER,IID_IMMDeviceEnumerator,AudioEndpoints);
   AudioEndpoints.EnumAudioEndpoints(eRender,DEVICE_STATE_ACTIVE,Collection);
   Collection.Item(1,Device);
   //memo1.Lines.Add(IntToStr(Collection.Item(1,Device)));
   //Device.GetId(Id_Dev);
  // ID_Dev_Def:=Id_Dev;

end;

end.

но выходит и ошибка - две последние строки пришлось закоментировать.