[poli-smen]

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

Это очень даже неплохо! Должно работать, но есть некие вопросы: для начала хочу спросить чего не хватает, чтобы файл создавался сохранением через SaveDialog2, который я кинул на форму, а SaveDialog2 вызывался нажатием Button4Click, которую я тоже кинул на форму? Ну и второй вопрос содержится в коде (строка 58)

Код:

 //fs := TFileStream.Create('Writen.wav', fmCreate);
  try
    fs.WriteBuffer(Header, SizeOf(Header));

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

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

Код:

        Sample := что сюда записать, чтобы для начала и для моего понимания, в файл шли теперешние сэмплы (не измененные)?

Так откуда же я знаю куда ты записывал "теперешние сэмплы"? Куда записывал оттуда и считывай. Я рекомендую записывать в массив, тогда считываешь так:

Код:

        Sample := Massiv[I, J];

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

Код:

if SaveDialog2.Execute then
Form1.fs.SaveToFile(Form1.SaveDialog2.FileName + '.wav');

Это уже совсем не в ту степь влезло. Делай так:

Код:

procedure TForm1.Button4Click(Sender: TObject);
begin
  if SaveDialog2.Execute then
  begin
    WriteWav(SaveDialog2.FileName);
  end;
end;

Ну и соответственно в процедуру WriteWav добавь параметр для имени файла, который будешь использовать при создании потока TFileStream.