медиа плеер

[Весёлый]

помагите пожалуйста
както можно в медиа плеере регулировать громкость и положение воспроизведения не могу ни как найти
в книгах только обшие свединья.

[DemonicAlligator]

в каком именно медиа плеере? их туева хуча

[Весёлый]

TMediaPlayer

[DemonicAlligator]

Код:

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.

[Весёлый]

можно ли как-то вывести в Progresbar уровень записи в данный момент?

[DemonicAlligator]

GetMPVolume выдаёт текущую громкость (0..1000), ставишь для прогрессбара мин=0, макс=1000 и рулишь позицией

[Весёлый]

когда я пишу: progressbar1.Position:=getmpvolume;
он мне выводит ОШИБКУ undeclared imdentifier 'getmpvolume'!
ЧТО ДЕЛАЮ НЕ ПРАВИЛЬНО, МОЖЕТ ЧТОТО НЕ ОБЪЯВИЛ?

[DemonicAlligator]

Камлать надо правильно, с правильными мухоморами
Эта процедура в том юните, что я выше привёл

[Весёлый]

нет это не то я имел ввыду чтобы отображалось как в винапе где по частотам разбиты
во время звучания музыки они прыгают, можно ли осушествить это в делфи?
спасибо за регулятор громкости работает супер!!!

[DemonicAlligator]

это называеца спектр сигнала. можно. для этого тебе надо всего-лишь анализировать выходной звуковой сигнал с помошью FFT

[Весёлый]

с помошью FFT?! я не понял! я еше новичек в этом деле .

[DemonicAlligator]

FFT = Fast Fourier Transformation, Быстрое Преобразование Фурье = разложение сигнала по уровням

[Весёлый]

а где это описать?
это отдельная процедура?
как это сделать?

[RXL]

Весёлый, кратко о FFT: семплированный сигнал представляет из себя вектор значений амплитуды по времени, а FFT переводит его в вектор комплексных величин по частоте.

Комплексная величина состоит из значений синуса и косинуса для начальной фазы сигнала в семпле на данной частоте. Из этих комплексных величин можно получить начальную фазу и амплитуду каждой частоты. Из этого результата можно потом назад собрать исходный сигнал.

Если FFT выполняется по N исходных значений семпла, то на выходе получаем значения для N/2 частот и еще одно значение для постоянной состовляющей.

Прочесть о цифровой обработке сигналов можно тут: http://www.dspguide.com/

Если попроще, то найди какую-нибудь бтблиотеку, реализующую FFT.


Для более простых условий, когда не нужно разкладывать сигнал на спектр, нужно лишь получить амплитуду на  небольшом наборе частот, существует алгоритм Goertzel.

[Весёлый]

Привет. объясните как в delphi подключать библиотеки и как с нимим работать?

[RXL]

Посредством use.
А чтоб с ними работать, нужно читать документацию.