Ecco, con questo codice leggo una parte di un file WAV. E ottengo la conferma che si tratta di un file WAV in quanto ne riconosco l'header:
Imports System.IO
Module Module1
Dim corrente As New FileStream("c:\users\antonello\desktop\voce.wav", FileMode.Open)
Dim destinazione(&H100) As Byte
Sub Main()
corrente.Read(destinazione, 0, destinazione.Length)
For n = 0 To destinazione.Length - 1
Console.Write(Chr(destinazione(n)))
Next
Console.ReadKey()
End Sub
End Module
RIFFD☻☺ WAVEfmt ► ☺ ☺ ◄+ ◄+ ☺ data ☻☺ ????⌂???????????????????⌂??????????⌂⌂⌂
????⌂???????????????????⌂??⌂???????⌂???⌂?⌂?????⌂??????⌂????????⌂⌂???????????⌂???
????????????⌂????⌂⌂???⌂?⌂???⌂??????????????????????????????????⌂???????????⌂???⌂
⌂????⌂??????⌂⌂?
Nessun commento:
Posta un commento