Power Builder - Leer tag de archivo mp3

   
Vista:

Leer tag de archivo mp3

Publicado por Lucas (4 intervenciones) el 16/03/2009 03:49:03
Hola a todos. Quisiera saber de que forma puedo leer el TAG de un archivo MP3. Si no me equivoco hay que accesar de forma binaria al ID3 del archivo y ahi se pude obtener la información. Buscando en la web encontre un ejemplo, pero el inconveniente es que esta en Visua Basic y no tengo ni idea de como se debería hacer en PB. Ojo que no sólo quiero leerla sino también modificarla para crear algo asi como un Audio-Management. Si alguién sabe cómo se lo agradecería bastante que me puedan ayudar.

Les dejo el link del ejemplo en VB:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/145-leer-tag-mp3.htm

Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

NADIE SABE ???

Publicado por Lucas (4 intervenciones) el 17/03/2009 19:13:36
Sólo quiero obtener el autor, titulo, genero, etc del archivo de musica MP3 ... tan complicado puede ser ???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:NADIE SABE ???

Publicado por sthif (63 intervenciones) el 18/03/2009 03:44:19
Si es tan fácil, hazlo tu mismo.

string docpath, docname[]
integer i, li_cnt, li_rtn, li_filenum

li_rtn = GetFileOpenName("Select File", docpath, docname[], "MP3", "Archivos MP3 (*.MP3)", "C:", 18)

IF li_rtn < 1 THEN return

integer li_fnum
long ll_bytes, ll_ret
blob Emp_Id_Pic
string ls_dato

li_fnum = FileOpen(string(docpath), textmode!)

ll_ret = FileSeek64( li_fnum, -125, FromEnd!)
ll_bytes = FileReadEx(li_fnum, Emp_Id_Pic)
mle_selected.text = 'Título: '+string(Emp_Id_Pic,EncodingANSI!)

ll_ret = FileSeek64( li_fnum, -95, FromEnd!)
ll_bytes = FileReadEx(li_fnum, Emp_Id_Pic)
mle_selected.text += '~r~n'+'Artista: '+string(Emp_Id_Pic,EncodingANSI!)

ll_ret = FileSeek64( li_fnum, -65, FromEnd!)
ll_bytes = FileReadEx(li_fnum, Emp_Id_Pic)
mle_selected.text += '~r~n'+'Album: '+string(Emp_Id_Pic,EncodingANSI!)

ll_ret = FileSeek64( li_fnum, -35, FromEnd!)
ll_bytes = FileReadEx(li_fnum, Emp_Id_Pic)
mle_selected.text +='~r~n'+'Año: '+string(Emp_Id_Pic,EncodingANSI!)

ll_ret = FileSeek64( li_fnum, -31, FromEnd!)
ll_bytes = FileReadEx(li_fnum, Emp_Id_Pic)
mle_selected.text += '~r~n'+'Comentario: '+string(Emp_Id_Pic,EncodingANSI!)

ll_ret = FileSeek64( li_fnum, -1, FromEnd!)
ll_bytes = FileReadEx(li_fnum, Emp_Id_Pic)
mle_selected.text += '~r~n'+'Género: '+string(Emp_Id_Pic,EncodingANSI!)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:NADIE SABE ???

Publicado por Lucas (4 intervenciones) el 20/03/2009 07:53:56
Gracias amigo voy a probar... aunque me lo hayas dejado de mala gana.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:NADIE SABE ???

Publicado por Abdías (1 intervención) el 11/07/2013 18:14:03
Excelente Aporte amigo, gracias por la info, yo necesitaba lo mismo y me funcionó al 100% ;)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar