Archivos Binarios

Iniciado por TheGhost(Z), 21 Agosto 2010, 16:24 PM

0 Miembros y 1 Visitante están viendo este tema.

TheGhost(Z)

Hola tengo un lío. bueno más claro no entiendo. Estoy leyendo el ID3 "La información de Titulo, Autor, etc" que viene en los MP3. Pues resulta que encontré un código que extrae los último 128 bytes del MP3, que es donde se guarda los TAG's.


Dim sFile As String
Dim sCadena As String
sFile = App.Path & "Wow.mp3"

Open sFile For Binary As 1#
    Get 1#, LOF(1) - 127, sCadena
Close 1#

MsgBox sCadena



con el código anterior estoy suponiendo que coje los ulitmos 128 bytes y lo almacena en sCadena. Una vez almacenado pensaba extraer los datos usando MID, pero al mostrar sCadena no muestra nada. Sin enbargo, cuádo a sCadena lo declaro como Type recién muestra  el TAG

Private Type TAG
    Header As String * 3
    Titulo As String * 30
    Artista  As String * 30
    Album  As String * 30
    Ano  As String * 4
    Comentario As String * 30
    Genero  As Byte
End Type

Dim sFile As TAG
Dim sCadena As String
sFile = App.Path & "Wow.mp3"

Open sFile For Binary As 1#
    Get 1#, LOF(1) - 127, sCadena
Close 1#

MsgBox sCadena.Titulo


Alguién me podría explicar porque al declarar sCadena como String no devuelve nada y al declararla como Type sí??  :-[ :-[

O será que los binarios no soportan String??