Показать сообщение отдельно
  #48  
Старый 31.08.2012, 11:42
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

Цитата:
Сообщение от poli-smen
А в каком месте программы в переменную WavInfo были занесены данные, чтобы в Button4Click их можно было сохранить в файл?
В этом:
Код:
fs := TFileStream.Create(FileName, fmCreate);
  try
    fs.WriteBuffer(Header, SizeOf(Header));

    for I := 1 to NumSamples do
    begin
      for J := 1 to Header.NumChannels do
      begin
        fs.WriteBuffer(WavInfo.Samples[J - 1, I - 1], BytsPerSample);
      end;
    end;
Ответить с цитированием