[poli-smen]

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

Это я понимаю, я про процедуру записи. Там стоит NumSamples:=1079; (просто так выбрал число). Что туда присваивать, что бы было так же как 1079, но уже само менялось, в зависимости от файла.

Как что? То что прочиталось в процедуре чтения здесь:

Код:

...
NumSamples := wChankSize div (SampleSize * Header.wChannels);
...

[Dmitry_DM]

Сообщение от poli-smen

Как что? То что прочиталось в процедуре чтения здесь:

Код:

...
NumSamples := wChankSize div (SampleSize * Header.wChannels);
...

Вот процедура чтения:

Код:

procedure WriteWav(const FileName: String);
type
  TChunkID = packed array [0..3] of Char;
  THeader = packed record
    ChunkID       : TChunkID;
    ChunkSize     : Longword;
    Format        : TChunkID;
    Subchunk1ID   : TChunkID;
    Subchunk1Size : Longword;
    AudioFormat   : Word;
    NumChannels   : Word;
    SampleRate    : Longword;
    ByteRate      : Longword;
    BlockAlign    : Word;
    BitsPerSample : Word;
    Subchunk2ID   : TChunkID;
    Subchunk2Size : Longword;
    wChannels     : WORD;
  end;
var
  Header: THeader;
  NumSamples, BytsPerSample, Sample, I, J: Longword;
  fs: TFileStream;
  wChankSize    : Cardinal;

begin
  NumSamples := wChankSize div (SampleSize * Header.wChannels);
  BytsPerSample := 2;

  Header.ChunkID       := 'RIFF';
  Header.ChunkSize     := StrToInt(Form1.Memo2.Lines[1]);
  Header.Format        := 'WAVE';
  Header.Subchunk1ID   := 'fmt ';
  Header.Subchunk1Size := StrToInt(Form1.Memo2.Lines[4]);
  Header.AudioFormat   := $0001;
  Header.NumChannels   := StrToInt(Form1.Memo2.Lines[6]);
  Header.SampleRate    := StrToInt(Form1.Memo2.Lines[7]);
  Header.ByteRate      := StrToInt(Form1.Memo2.Lines[8]);
  Header.BlockAlign    := StrToInt(Form1.Memo2.Lines[9]);
  Header.BitsPerSample := StrToInt(Form1.Memo2.Lines[10]);
  Header.Subchunk2ID   := 'data';
  Header.Subchunk2Size := StrToInt(Form1.Memo2.Lines[12]);
  fs := TFileStream.Create('New File.wav',fmCreate);
  try
    fs.WriteBuffer(Header, SizeOf(Header));
      for I := 1 to NumSamples do
    begin
      for J := 1 to Header.NumChannels do
      begin
        Sample := 1111;
        fs.WriteBuffer(Sample, BytsPerSample);
      end;
    end;
  finally
    fs.Free;
  end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
  if SaveDialog2.Execute then
  begin
    WriteWav(SaveDialog2.FileName);
  end;
  end;
end.

Выдает ошибку "Division by zero". Что делать?

[poli-smen]

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

Вот процедура чтения:
...
Выдает ошибку "Division by zero". Что делать?

Нет. Это я процитировал строчку из функции чтения:

Код:

...
NumSamples := wChankSize div (SampleSize * Header.wChannels);
...

Теперь значение NumSamples нужно просто передать функции записи.

[Dmitry_DM]

Сообщение от poli-smen

Нет. Это я процитировал строчку из функции чтения:

Код:

...
NumSamples := wChankSize div (SampleSize * Header.wChannels);
...

Теперь значение NumSamples нужно просто передать функции записи.

Каким образом?

[poli-smen]

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

Каким образом?

А каким образом обычно в функции и процедуры передаются параметры?

[Dmitry_DM]

Сообщение от poli-smen

А каким образом обычно в функции и процедуры передаются параметры?

В скобках, но хотелось бы по конкретнее, что бы правильно было.

[poli-smen]

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

В скобках, но хотелось бы по конкретнее, что бы правильно было.

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

[Dmitry_DM]

Сообщение от poli-smen

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

Хорошо. Если Sample записывается так:

Код:

begin
Sample := 1111;
fs.WriteBuffer(Sample, BytsPerSample);
end;

Значит NumSamples надо записывать так?:

Код:

begin
fs.WriteBuffer(NumSamples);

Правильно?

[poli-smen]

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

Хорошо. Если Sample записывается так:

Код:

begin
Sample := 1111;
fs.WriteBuffer(Sample, BytsPerSample);
end;

А почему "Sample записывается так"? Там что, звук состоит из одного и того же значения сэмпла? Тогда можно и не читать ничего.

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

Значит NumSamples надо записывать так?:

Код:

begin
fs.WriteBuffer(NumSamples);

Правильно?

А зачем NumSamples записывать в выходной wav-файл? Я так понял, что NumSamples нужно передать в функцию записи, чтобы она знала сколько сэмплов нужно записывать?

[Dmitry_DM]

Сообщение от poli-smen

А почему "Sample записывается так"? Там что, звук состоит из одного и того же значения сэмпла? Тогда можно и не читать ничего.

А зачем NumSamples записывать в выходной wav-файл? Я так понял, что NumSamples нужно передать в функцию записи, чтобы она знала сколько сэмплов нужно записывать?

Именно! Как это сделать? Чему присвоить NumSamples?

Код:

NumSamples := ???????

[Dmitry_DM]

Сообщение от poli-smen

А почему "Sample записывается так"? Там что, звук состоит из одного и того же значения сэмпла? Тогда можно и не читать ничего.

То я для примера. А как сделать, что присвоить семплам? Я не знаю. Что я не пытался - ошибки компилятора, или огромные файлы на выходе.

[poli-smen]

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

Именно! Как это сделать? Чему присвоить NumSamples?

Код:

NumSamples := ???????

А зачем её присваивать? Её нужно передать как параметр в процедуру WriteWav.

[Dmitry_DM]

Сообщение от poli-smen

А зачем её присваивать? Её нужно передать как параметр в процедуру WriteWav.

Передал.. Вроде работает, но значения не те: выводит D174, NumSampl'ное количество раз.
Стоп! Что-то я не то сделал. Я убрал Sample:= 1111, и стало по вышеописанному, а что, NumSamples передать уже третьим в процедуру WriteWav?
Там уже и так

Код:

fs.WriteBuffer(Sample, BytsPerSample);

[poli-smen]

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

Передал.. Вроде работает, но значения не те: выводит D174, NumSampl'ное количество раз.

Значит нужно вместо константы, записывать реально прочитанные данные.

[Dmitry_DM]

Сообщение от poli-smen

Значит нужно вместо константы, записывать реально прочитанные данные.

Это как? Как сделать?