Wav файл :(

[1]

Помогите .плз
Где можно достать VB исходники программ которые пишут данные в Wav файл

Требуются не библиотеки, а именно программы в которых запись ведется через инструкцию PUT.

Мне нужно записать звуки в wav, но у меня не выходит. Ошибка, похоже, где-то в заголовке....

[GM]

Проги нет зато есть три заголовка.

Код: Выделить всё

Type RIFF_HEAD
riffFmt As String * 4 ' Четыре буквы "RIFF"
lenOfFileData As Long ' длина файла без этого заголовка,
' т.е. FileLen(Wav) - 8
End Type

Type WAVE_HEAD
waveFmt As String * 8 ' 8 букв - "WAVEfmt "
lenOfThunk As Long ' размер этого куска (16 байт)
format As Integer ' формат WAV файла (обычно всегда 1)
channels As Integer ' кол-во каналов (1 - моно, 2 - стерео)
samplesPerSecond As Long ' зазрешение WAV файла,
' т.е. кол-во Samples'ов в сек (11025,22050,44100 и т.д.)
avgBytesPerSecond As Long ' тоже самое
blockAlign As Integer ' выравнивание блоков данных (обычно 1)
bitsPerSample As Integer ' Кол-во Битов на один сэмпл (8/16)
End Type

Type DATA_HEAD
datastr As String * 4 ' 4 буквы "data"
lenOfThunk As Long ' кол-во байт,
' отводящихся под сами WAV данные
End Type