Отправляет email-рассылки с помощью сервиса Sendsay

Delphi для профессионалов

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Октябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
24.10.2002
15:05:04
23:21:18
25
26
27
28
29
30
31
Автор
Ведущий

Статистика

8.943 подписчиков
-22 за неделю
←   Все выпуски   →

Delphi для профессионалов - Формат WAVE-файла


Информационный Канал Subscribe.Ru
eServer.ru :: Хостинг без ограничений!
Рассылка: Delphi для профессионалов

Количество подписчиков: 12
Рассылка 'Delphi для профессионалов'

Формат WAVE-файла

 

TWaveHeader = record
  Marker1        : Array[0..3] of Char;
  BytesFollowing : LongInt;
  Marker2        : Array[0..3] of Char;
  Marker3        : Array[0..3] of Char;
  Fixed1         : LongInt;
  FormatTag      : Word;
  Channels       : Word;
  SampleRate     : LongInt;
  BytesPerSecond : LongInt;
  BytesPerSample : Word;
  BitsPerSample  : Word;
  Marker4        : Array[0..3] of Char;
  DataBytes      : LongInt;
end;

Для создания собственного WAV-файла сделайте следующее:

  DataBytes := Channels;
  DataBytes := DataBytes * SampleRate;
  DataBytes := DataBytes * Resolution;
  DataBytes := DataBytes div 8;
  DataBytes := DataBytes * Duration;
  DataBytes := DataBytes div 1000;

  WaveHeader.Marker1 := 'RIFF';
  WaveHeader.BytesFollowing := DataBytes + 36;
  WaveHeader.Marker2 := 'WAVE';
  WaveHeader.Marker3 := 'fmt ';
  WaveHeader.Fixed1 := 16;
  WaveHeader.FormatTag := 1;
  WaveHeader.SampleRate := SampleRate;
  WaveHeader.Channels := Channels;
  WaveHeader.BytesPerSecond := Channels;
  WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * SampleRate;
  WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond * Resolution;
  WaveHeader.BytesPerSecond := WaveHeader.BytesPerSecond div 8;
  WaveHeader.BytesPerSample := Channels * Resolution div 8;
  WaveHeader.BitsPerSample := Resolution;
  WaveHeader.Marker4 := 'data';
  WaveHeader.DataBytes
:= DataBytes;

Остальная часть файлы является звуковыми данными. Порядок следования: верхний уровень для левого канала, верхний уровень для правого канала и так далее. Для моно или 8-битных файлов сделайте соответствующие изменения.

Все вопросы присылайте по адресу: delphi-ask@igp.org.ua
Все ответы присылайте по адресу: delphi-reply@igp.org.ua
Все подсказки присылайте по адресу: delphi-hint@igp.org.ua
Со всем списком советов можно познакомиться по адресу: http://igp.org.ua/delphine/.
Наш проект Delphine можно найти по следующей ссылке: http://igp.org.ua/products/delphine/.

Заходите в наш форум: Форум Delphi-профессионалов. Адрес: http://igp.org.ua/cgi-bin/yabb/yabb.pl.
Здесь Вы найдете ответы на все Ваши вопросы!
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное