wav

← →
3d[Power] (2002-04-10 23:07) [0]

Мне нужно загрузить в мою прогу wav файл. Переконвертировать в 8bit mono\stereo. Kак это сделать посредством дельфи?

← →
3d[Power] (2002-04-14 01:34) [1]

ну мож кто знает а? хотябы ссылку на материал

← →
Ketmar (2002-04-14 15:05) [2]

какой .wav?

Satanas Nobiscum!
14/04/XXXVII A.S.

← →
3d[Power] (2002-04-15 03:14) [3]

хм, обычный.

← →
Ketmar (2002-04-15 21:01) [4]

обычный - это PCM, ADPCM, MP3, ..., ..., ..., 8 bit, 16 bit, ... mono, stereo, ...... и ты ды.
так вот, продолжим: какой .wav?

Satanas Nobiscum!
14/04/XXXVII A.S.

← →
3d[Power] (2002-04-15 21:24) [5]

PCM 16bit stereo

← →
RomanSE (2002-04-16 17:21) [6]

создаешь новый файл береш PCM заголовок из старого - меняешь соотв. поля, читаешь по 16 бит - пишешь по 8.

← →
3d[Power] (2002-04-16 18:43) [7]

а пример?

← →
RomanSE (2002-04-16 21:24) [8]

поищи в инете просто описание заголовка или в исходниках - под рукой нет :-))

← →
3d[Power] (2002-04-17 00:14) [9]

типичный ответ который получаешь на мастаке :(

← →
RomanSE (2002-04-23 19:49) [10]

TWavHdrPCM ={packed }record
rId :array [0..3] of char; {"RIFF"}
rLen :LongInt; {длинна файла, начиная со след. байта =44-8+dLen (3
6+dLen)}
{________________rData__________________________________}
wId :array [0..3] of char; {"WAVE"}
{________________rFormat________________________________}
fId :array [0..3] of char; {"fmt "}
fLen :LongInt; {длинна rFormat, начиная со след. байта =16 (10h)}
fTag :word; {Тип оцифровки}
fChannels :word; {Число каналов}
fSamplesPerSec :Longint; {Частота оцифровки}
fAvgBytesPerSec :Longint; {Скорость передачи байт\сек}
fBlockAlign :Word; {Число байт на выборку}
fBitsPerSample :Word; {Число бит на отсчет}
{________________Data___________________________________}
dId :array [0..3] of char; {"data"}
dLen :LongInt; {длинна файла, начиная со след. байта}
// Dumb :array [0..13] of byte;
end;

← →
3d[Power] (2002-04-24 01:43) [11]

ну и чего? хидер. круто. я понятия не имею что делать дальше. бесят меня такие ответы. если знаешь то скажи. если не понял, то еще раз перечитай мой вопрос.

← →
Владимир Васильев (2002-04-24 12:02) [12]

Попробуй поюзать
http://www.stuckindoors.com/delphi/index.html
Давно скачал,но времени на разбор нет. Но это то, что тебе нужно.

Если разберёшся с конвертацией, плиз. поделиться.

wav Найти похожие ветки