Imprimir Página - Archivos Binarios

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.

Código:

 
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

Código:

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??

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: TheGhost(Z) en 21 Agosto 2010, 16:24 pm