Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Ver En Console Los Datos De Las Pistas De Un Archivo Midi
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje Ver En Console Los Datos De Las Pistas De Un Archivo Midi 
 
Hola hermanosss,

vamos de nuevo con la... MIDI-mania  

Este simple código muestra en console los datos de las pistas de un archivo Midi:
Public Sub Main()
Dim midi, s, r As String
 Dim i As Integer
 Dim b As Byte
 Dim ss As String[]
 Dim bb As Byte[]
 
  midi = "/ruta/del/archivo.mid"
 
  s = File.Load(midi)
  If IsNull(s) Then Error.Raise("File sin datos !")
  Print "Archivo Midi: "; midi
  Print "Tamaño: "; Len(s);; "byte\n\n== Datos contenidos de el archivo Midi =="
  
  i = Asc(Mid(s, 12, 1))
  If i = 0 Then Error.Raise("No hay pistas Midi !")
  
  If Left(s, 4) <> "MThd" Then Error.Raise("No es un archivo Midi standard !")
  ss = Scan(s, "Mth*" & String(i, "MTr*"))
  
  For b = 0 To ss.Max
    s = "4D 54 72 6B"
    r = "la Pista n. " & b
    If b = 0 Then
      s = "4D 54 68 64"
      r = "el bloque de encabezamiento"
    Endif
    bb = Byte[].FromString(ss[b])
    Print "\nTamaño de "; r; ":";; bb.Count + 3;; "byte"
    For i = 0 To bb.Max
      If i = 0 Then
        Print s;;
      Else
        Print Hex(bb[i], 2);;
      Endif
    Next
    Print
  Next
  
End

 



 
última edición por vuott el Sabado, 13 Junio 2015, 14:10; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario