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

Цитата:
Сообщение от poli-smen
Нет. В этом месте читается массив из переменной WavInfo и записывается в файл. А в каком месте программы в этот массив были занесены данные, чтобы их здесь можно было записать в файл?

Глобальная, но она пустая, так как в неё никто не заносит данные, а раз она пустая, то и Button4Click не может её содержимое сохранить в файл.
Тогда, может, здесь?
Код:
 for I := 1 to NumSamples do
      begin
        for J := 1 to WavInfo.WaveFormat.nChannels do
        begin
          fs.ReadBuffer(Sample, BytsPerSample);
          case BytsPerSample of
            1: Sample := Shortint(Sample);
            2: Sample := SmallInt(Sample);
          end;
      WavInfo.Samples[J - 1, I - 1] := Sample;
      if Abs(Sample) > WavInfo.MaxAmplitude then WavInfo.MaxAmplitude := Abs(Sample);
        end;
      end;
    WavInfo.NumSamples := LongInt(NumSamples);
    end;
Ответить с цитированием