[poli-smen]

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

Так я это знаю, поэтому и не трогал RIFF, WAVE, fmt , data. Вот так у меня:

Код:

  Header.ChunkID       := 'RIFF';
  Header.ChunkSize     := StrToInt(Form1.Memo2.Lines[2]);
  Header.Format        := 'WAVE';
  Header.Subchunk1ID   := 'fmt ';
  Header.Subchunk1Size := StrToInt(Form1.Memo2.Lines[5]);
  Header.AudioFormat   := $0001;
  Header.NumChannels   := StrToInt(Form1.Memo2.Lines[7]);
  Header.SampleRate    := StrToInt(Form1.Memo2.Lines[8]);
  Header.ByteRate      := StrToInt(Form1.Memo2.Lines[9]);
  Header.BlockAlign    := StrToInt(Form1.Memo2.Lines[10]);
  Header.BitsPerSample := StrToInt(Form1.Memo2.Lines[11]);
  Header.Subchunk2ID   := 'data';
  Header.Subchunk2Size := StrToInt(Form1.Memo2.Lines[12]);

Процедура записи:

Код:

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

Что теперь делать???

На вид всё нормально. Компилятор ругается?
Вы же конечно знаете, что нумерация строк в Memo начинается с нуля? Нумерация с нуля в компьютерной технике вообще нормальное явление.