Power Builder - Leer tag de archivo mp3

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.

Sólo quiero obtener el autor, titulo, genero, etc del archivo de musica MP3 ... tan complicado puede ser ???

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!)

Gracias amigo voy a probar... aunque me lo hayas dejado de mala gana.

Saludos

Excelente Aporte amigo, gracias por la info, yo necesitaba lo mismo y me funcionó al 100% ;)