Считывание звука с микрофона и воспроизведение его

[Aliens_wolfs]

У меня нормально работает. Выдает ошибку сразу? Я еще раз перепроверю у себя. Не хотел делать через буфер но наверное через него придется сделать. Попробуйте запустить программу через администратора возможно доступ к файлу ограничен и если вы сохраняете на диске C:\. Проверти путь сохранения у меня там D:\

[Aliens_wolfs]

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

function RecordingCallback(hChan: HRECORD; buffer: Pointer; Size, user: DWord):
 boolean; stdcall;
 var
 pPos, Postime: integer;
begin

  //Пройденное время
  pPos:= BASS_ChannelGetPosition(hChan, 0);
     if (pPos > 0) then
  begin
    Postime := Trunc(BASS_ChannelBytes2Seconds(hChan, pPos));
    Form1.Caption := (Format(' %d:%.2d', [Postime div 60, Postime mod 60]));
  end;

//Вот здесь делаем задержку на 2 сек и запись но можно поставить свое время и объявите глобальной var TimeSave: Integer 
  if Postime  > TimeSave + 2 then
  begin
  TimeSave := Postime;
  SaveWav(hChan, 'D:\1111.wav', buffer, Size);
  end;

 //Воспроизводим звук
 BASS_StreamPutData(chanPlay, Buffer, Size);
 BASS_ChannelPlay(chanPlay, false);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TimeSave:= 0;
BASS_RecordInit(-1);
chanMic:=BASS_RecordStart(8000, 2, BASS_DEVICE_8BITS, @RecordingCallback, nil);
chanPlay:= BASS_StreamCreate(8000, 2, BASS_DEVICE_8BITS, STREAMPROC_PUSH, nil);
end;

[Aliens_wolfs]

Еще можно задержку записи сделать вот здесь должно помочь с ошибкой но у меня ее и так нет.
Подправил через TMemoryStream
Изменения для кода запись сразу в файл

Код:

function RecordingCallback(hChan: HRECORD; buffer: Pointer; Size, user: DWord):
 boolean; stdcall;
 var
 pPos, Postime: integer;
begin

  //Пройденное время
  pPos:= BASS_ChannelGetPosition(hChan, 0);
     if (pPos > 0) then
  begin
    Postime := Trunc(BASS_ChannelBytes2Seconds(hChan, pPos));
    Form1.Caption := (Format(' %d:%.2d', [Postime div 60, Postime mod 60]));
  end;

//Вот здесь делаем задержку на 2 сек и запись но можно поставить свое время и объявите глобальной var TimeSave: Integer и  
//MemoryStream: TMemoryStream и создать в procedure TForm.Create
  MemoryStream.Write(buffer^, Size);
  if Postime  > TimeSave + 2 then
  begin
  TimeSave := Postime;
  MemoryStream.Position:= 0;
  SaveWav(hChan, 'D:\1111.wav', MemoryStream.Memory, MemoryStream.Size);
  MemoryStream.Clear;
  end;

 //Воспроизводим звук
 BASS_StreamPutData(chanPlay, Buffer, Size);
 BASS_ChannelPlay(chanPlay, false);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TimeSave:= 0;
BASS_RecordInit(-1);
chanMic:=BASS_RecordStart(8000, 2, BASS_DEVICE_8BITS, @RecordingCallback, nil);
chanPlay:= BASS_StreamCreate(8000, 2, BASS_DEVICE_8BITS, STREAMPROC_PUSH, nil);
end;

[lis777sergei063]

А как принять звук с MemoryStream?

[lis777sergei063]

Марина, а как принять звук с MemoryStream?

[Aliens_wolfs]

SaveWav(hChan, 'D:\1111.wav', MemoryStream.Memory, MemoryStream.Size);
смотрите пост #9 в этой же теме

[6667]

Aliens_wolfs просьба скинуть исходник программы на мыло Jonny2000@inbox.ru. Заранее благодарен

[zvygin1964]

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

просьба скинуть исходник программы

И выложить на сайт в открытом доступе !

[Aliens_wolfs]

Aliens_wolfs просьба скинуть исходник программы на мыло

Что именно хотите сделать?

Вот мой пример разбирайтесь