INT 21h

Домашняя страница самого страшного прерывания

Delphi: Отрисовка графика wave-файла

№ 748 В разделе "Программирование" от May 20th, 2008,

Долгое время я делал различные велосипеды пока не понял, что можно было все сделать проще.


В этом нам поможет компонент TChart. Лепим его на форму, настраиваем как нравится. Далее открываем wav файл и тупо читаем с него данные в data чанке, делая вывод прямо в Chart1. Данный пример читает первые 2 килобайта и выводит эти данные в график. Думаю догнать до полного чтения дата-чанка вам не составит труда ;)

const
data_chunk_position= smallint(58);
...
...
procedure Tgraph_form.FormShow(Sender: TObject);
var
memstr:TMemoryStream;
buf:array [1..2048] of byte;
i:integer;
readed:integer;
begin
memstr:=TMemoryStream.Create;
memstr.LoadFromFile('wave\'+reabilit.id+'.wav');
memstr.Seek(data_chunk_position, soFromBeginning);
//очищаем график
Chart1.Series[0].Clear;
//читаем датачанк блоком по 2048
readed:=memstr.Read(buf,sizeof(buf));
//добавляем точки в график
i:=1;
repeat
Chart1.Series[0].Add(buf[i]);
inc(i)
until i>readed;
end;

Этот пример подходит только для 8-ми битных моно файлов. Для более большого охвата форматов читайте спецификацию для wave-файлов.

Ниже пример отрисовки осциллограммы для любого PCM файла, но я вам его просто так не дам ;) Предложите мне за него что-нибудь стоящее. Могу рассмотреть заказ на создание более комплексного решения или темы рядом стоящей. А еще могу дать платные консультации по формату PCM и способах работы. Как связаться со мной вы можете увидеть через панель навигации.

Нет комментариев »

Оставьте ваш комментарий »

Форма отправки комментария

CAPTCHA
*

Разрешенные HTML-теги:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

RSS RSS Feed только для этого поста |


Комментарии
  • Игорь: Все настроил, еще раз просмотрел видео и методом научного тыка все настроил и сохранил, все работает и обе...
  • 21h: Здравствуйте, Игорь! Я не знаю :) Думаю аналогично согласно инструкции к вашей радиостанции.
  • Игорь: Добрый день, просмотрел Ваше видео все доступно и ясно для 8 ми канальных радеек, но мне нада настроить 69...
  • Гоги: Есть инструкция к Моторолкам – она подходит к серии Motorola TLKR T4… Т8. В конце сетка частот и...
  • 21h: торчок давно уже не обновлял, как только закрыл сайт где он работал. да, это морда для opentracker. без...
  • Buter: Какова дальнейшая жизнь торчка? Он кстати веб-интерфейсом для OpenTracker выступает? Без OpenTracker работать...
  • 21h: понятия не имею. гуглите инструкцию к вашей радейке и сверяйтесь с ней.
  • Денис: хочу их подружить с uv5r
  • Денис: t-388 walkie talkie на эти шпаргалочек нет,или как приминить ваши к их настройке?
  • John: Стекла для электроник – техночас.ру