Структура:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
<StructLayout(LayoutKind.Sequential)>
Public Structure WAVEFORMATEX
Dim wFormatTag As Short ' format type
Dim nChannels As Short ' number of channels (i.e. mono, stereo, etc.)
Dim nSamplesPerSec As Integer ' sample rate
Dim nAvgBytesPerSec As Integer ' for buffer estimation
Dim nBlockAlign As Short ' block size of data
Dim wBitsPerSample As Short ' Bits Per Sample
Dim cbSize As Short ' Size Of (FACT CHUNK)
'Dim xBytes(11) As Byte '???
End Structure
Зачем нужны последние 12 байтов, сейчас не помню (в MDSN их нет, пока закомментировал),
но видимо чтоб не сглючил следующий код, который на VB6 выглядит так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Public Function GetWavFileInfo(ByVal strFile As String) As WavFileInfo
Dim WavChunkPos As ChunkInfo
Dim FF As Integer
GetWavFileInfo.is_wav = False
If Err Then Exit Function
On Error GoTo 0
' get fmt Chunk Position
WavChunkPos = GetWavChunkPos(strFile, "fmt ")
With WavChunkPos
' valid Chunk?
If .start <> 0 And .length <> 0 Then
' read Wave Format
FF = FreeFile
Open strFile For Binary As #FF
Get #FF, .start + 1, GetWavFileInfo.wavformat
Close #FF
GetWavFileInfo.is_wav = True
End If
End With
End Function
GetWavFileInfo.wavformat - это структура WAVEFORMATEX
позицию в файле, с которой читать .start (ну и .length, но он особо и не нужен)
я нашел
Понятно что пихание тупо байтов из файла аккурат в структуру это трюк
но вот как его исполнить на .Net ?
Такой "синтаксис" как в VB6 в .Net похоже не поддерживается.
Ну и еще не понятно как быть с
1.
2.
If Err Then Exit Function
On Error GoTo 0
хотя Try Catch похоже будет достаточно.
VB6-Модуль я здесь
19670843
полностью выкладывал.
