31.08.2012, 11:42
|
Активный
|
|
Регистрация: 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;
|