Obtener UPC de un Audio CD

Si quieres obtener el código UPC que llevan los discos puedes usar la función mciSendString con el comando “info cdaudio upc”, tal y como se hace en el siguiente fragmento:

Dim UPC As String * 256
mciSendString "info cdaudio upc", UPC, 255, 0

La variable UPC contendrá tras la llamada el código que quieres. Sin embargo, ten en cuenta que no todos los discos tienen dicho código. He hecho algunas pruebas y encontrado que, por ejemplo, el CD “The Piano” de “Michael Nyman” no tiene código, sin embargo “Talk On Corners” sí que lo tiene. Para evitar estos problemas lo mejor es usar el comando “info cdaudio identity”, tal y como se muestra a continuación:

Dim Identity As String * 256
mciSendString "info cdaudio identity", Identity, 255, 0

Esto siempre devolverá un código de CD distinto para cada disco, indistintamente de que éste tenga o no UPC.

Publicado en es.comp.lenguajes.visual-basic por Francisco Charte Ojeda

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s