Показать сообщение отдельно
  #20  
Старый 10.08.2012, 02:41
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от Dmitry_DM
Так я же прошу о помощи! Программу - исходник я выложил. Ну не получается у меня
Исходники программы, то я смотрел (Ну той которая в самом первом сообщении здесь прикреплена). Вот только где там попытки прочитать "sample 1, sample 2", которые не читаются и "выводиться 0"? - Нету!

Вот в твоей функции ReadWave (это ведь твоя функция?):
  1. Читаешь заголовок файла и проверяешь, что это действительно RIFF-WAVE-файл
  2. Ищешь чанк 'fmt', читаешь его и выводишь в Memo1 его содержимое
  3. Ищешь чанк 'data' и... выходишь из функции...
А зачем ты выходишь из функции? Самое время читать эти самые "sample 1, sample 2". Чтото типа:
Код:
f.ReadBuffer(sample, SampleSize);

И не забывай освобождать объект в переменной f (Вот попробуй дважды открыть один и тот же wav-файл).
Ответить с цитированием