Visual Basic FAQ

Как переписать заголовок WAV файла

Option Explicit

Enum LEN_FORMAT
    frmSeconds = 0
    frmSamples = 1
End Enum
Type RIFF_HEAD
    riffFmt As String * 4
    lenOfFileData As Long
End Type
Type WAVE_HEAD
    waveFmt As String * 8
    lenOfThunk As Long
    format As Integer
    channels As Integer
    samplesPerSecond As Long
    avgBytesPerSecond As Long
    blockAlign As Integer
    bitsPerSample As Integer
End Type
Type DATA_HEAD
    dataStr As String * 4
    lenOfThunk As Long
End Type 

Public Function WriteNewWaveHeader(ByVal fileName As String, ByRef riffHead As RIFF_HEAD, ByRef waveHead As WAVE_HEAD, ByRef dataHead As DATA_HEAD) As Boolean
    On Error GoTo ERRH
    Dim freeNum As Long
    freeNum = FreeFile
    Open fileName For Binary As #freeNum
        Put #freeNum, , riffHead
        Put #freeNum, , waveHead
        Put #freeNum, , dataHead
    Close #freeNum
    WriteNewWaveHeader = True
    Exit Function
ERRH:
    WriteNewWaveHeader = False
End Function

Запись опубликована on 07.11.2009 at 9:00 и размещена в рубрике: Мультимедиа. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.