[ProDaNTe]

Ищу компонент для записи звука с микрофона, и чтобы работал на Delphi XE5! Помогите пожалуйста, заранее благодарен!

[M.A.D.M.A.N.]

http://delphiworld.narod.ru/base/record_sound.html
можно в компонент переделать.

[ProDaNTe]

Спасибо, только как я понял мне надо отслеживать как то ProcessBuffer для реализации записи в файл, не знаю как сделать если честно)))
И

Код:

WaveRecorder := TwaveRecorder(2048, 4);
  function 477576218068StartRecord : Boolean;
  function 477576218068SetupRecord(P : PWaveRecorder) : Boolean;

Это?

Код:

WaveRecorder := TwaveRecorder.Create(2048, 4);
  function StartRecord : Boolean;
  function SetupRecord(P : PWaveRecorder) : Boolean;

Может есть что то типа NewAC, только поновее и с поддержкой XE5?

[M.A.D.M.A.N.]

NewAC полностью открытый?
Можно перевести, если он полностью открытый.

[poli-smen]

Сообщение от ProDaNTe

Спасибо, только как я понял мне надо отслеживать как то ProcessBuffer для реализации записи в файл, не знаю как сделать если честно)))

Самому отслеживать не надо. ProcessBuffer будет вызываться автоматически при заполнении буфера. Делаешь своего наследника от класса TWaveRecorder и перекрываешь в нём метод ProcessBuffer. (Или можно прямо в этом модуле в методе ProcessBuffer дописать вывод куда нужно).

Сообщение от ProDaNTe

И

Код:

WaveRecorder := TwaveRecorder(2048, 4);
  function 477576218068StartRecord : Boolean;
  function 477576218068SetupRecord(P : PWaveRecorder) : Boolean;

Это?

Код:

WaveRecorder := TwaveRecorder.Create(2048, 4);
  function StartRecord : Boolean;
  function SetupRecord(P : PWaveRecorder) : Boolean;

Нда. Эти непонятные цифры нужно убрать.

Сообщение от ProDaNTe

Может есть что то типа NewAC, только поновее и с поддержкой XE5?

Ещё есть популярная библиотека bass.dll. Бесплатная для некоммерческого использования.

[ProDaNTe]

poli-smen, спасибо только я не понял в какой переменной хранятся данные, можешь хоть строчкой кода подтолкнешь плиз?
M.A.D.M.A.N. ну вроде открытый исх в комплекте с компонентом должны быть, только на их оф сайте уже нет NewAC

[poli-smen]

Сообщение от ProDaNTe

poli-smen, спасибо только я не понял в какой переменной хранятся данные, можешь хоть строчкой кода подтолкнешь плиз?

Если речь идёт о модуле RECUNIT, то там автоматически при заполнении буфера будет вызываться этот метод:

Код:

procedure TWaveRecorder.ProcessBuffer(uMsg: Word; P : Pointer;
n: Integer);
{ Болванка процедуры, вызываемой при готовности буфера. }
begin
end;

Вот в этом методе и делай сохранение буфера сданными. Здесь параметр "P" будет указывать на буфер с данными, а параметр "n" на его размер в байтах

Сообщение от ProDaNTe

M.A.D.M.A.N. ну вроде открытый исх в комплекте с компонентом должны быть, только на их оф сайте уже нет NewAC

Да. Библиотека NewAC переехала на code.google.

[Decoding]

http://www.decoding.dax.ru/download/...und/sound.html
http://www.decoding.dax.ru/download/...ent/mm/mm.html