звук

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем Ljolikkk, 11 окт 2005.

Статус темы:
Закрыта.
  1. Ljolikkk

    Ljolikkk Гость

    Я вобще новичёк в програмировании B) . Я ещё только учусь. Вот решил написать свою програмку для воспроизведения mp3. Вроде написал, но я незнаю как зделать регулировку звука(прямо в этой программе а не где-то в другом месте). Подскажите пожалуйста код.
     
  2. Chernobyl

    Chernobyl Гость

    создаёте например (TrackBar)

    Код (Text):
    uses MMSystem;

    function GetVolume: DWord;
    var
    Woc: TWAVEOUTCAPS;
    Volume : DWord;
    begin
    Result:=0;
    if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) = MMSYSERR_NOERROR then
    if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
    begin
    WaveOutGetVolume(WAVE_MAPPER, @Volume);
    Result := Volume;
    end;
    end;

    procedure SetVolume(Value: DWord);
    var
    Woc: TWAVEOUTCAPS;
    begin
    if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) = MMSYSERR_NOERROR then
    if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
    WaveOutSetVolume(WAVE_MAPPER, value);
    end;
    //Получить громкость
    {var
    vol:longint;
    begin
    vol:=GetVolume;
    TrackBar1.Position:=(vol shr 16);}
    //Установить громкость
    {var
    vol:longint;
    begin
    Vol:=(TrackBar1.Position shl 16)+TrackBar1.Position;
    SetVolume(vol);}
     
  3. M@T$

    M@T$ Гость

    Переделал эти функции под свои нужды.......


    вот что получилось....:::

    Код (Text):
    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, MMSystem, StdCtrls, ExtCtrls;

    type
    TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    function GetVolume: DWord;
    var
    Woc: TWAVEOUTCAPS;
    Volume : DWord;
    begin
    Result:=0;
    if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) = MMSYSERR_NOERROR then
    if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
    begin
    WaveOutGetVolume(WAVE_MAPPER, @Volume);
    Result := Volume;
    end;
    end;



    procedure TForm1.FormCreate(Sender: TObject);
    var
    vol: longint;

    begin
    vol:=GetVolume;
    Label1.Caption:=IntToStr(vol shr 16);
    end;

    end.




    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ExtCtrls, MMSystem;

    type
    TForm1 = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.FormCreate(Sender: TObject);
    var
    i: integer;
    cap: TWaveInCaps;
    begin
    for i := 0 to waveInGetNumDevs do
    begin
    waveInGetDevCaps(i, Addr(cap), SizeOf(cap));
    ListBox1.Items.Add(cap.szPname )
    end;
    end;



    procedure TForm1.Button1Click(Sender: TObject);
    var
    vol : longint;

    begin
    waveOutGetVolume( ListBox1.ItemIndex, @Vol);
    Label1.Caption:=IntToStr(vol shr 16);
    end;

    end.



    И тот и тот работают только когда я залажу сюда:

    Мастер проверки аудиоустройств=>Проверка динамиков
     
  4. M@T$

    M@T$ Гость

    Больше ниначто не реагируют(нинакакие другие изменения)


    Подскажите как сделать чтобы программа определяла уровень громкости сигнала, который подаётся на вход аудикарты
     
  5. Chernobyl

    Chernobyl Гость

    Не с аудио картой не ко мне!
    А этот код я исползовал для своего проигрывателя(*.mp3,*.wav,*.mid,*.ogg).
    Когда Winamp заглююююююююючил.
     
Загрузка...
Похожие Темы - звук
  1. paxac
    Ответов:
    4
    Просмотров:
    67
  2. Devil
    Ответов:
    4
    Просмотров:
    353
  3. diod_
    Ответов:
    8
    Просмотров:
    3.694
  4. vovapupkin
    Ответов:
    0
    Просмотров:
    1.248
  5. adam-mospan
    Ответов:
    3
    Просмотров:
    3.365
Статус темы:
Закрыта.

Поделиться этой страницей