Calcular ID de un Audio CD según Tracks

Efectivamente no todos los CDs tienen un identificador. De la Knowledge Base de Microsoft extraje la idea de obtener un ID único a base de operar con el numero y duración de las canciones. Y la verdad es que funciona !!!!. Hace tiempo hice un reproductor de CDs (primero atacando con las APIs y luego con el control MMControl). Pero por vagancia no lo acabe del todo.

Suponiendo que tenemos un MMControl en el formulario que se llama MCI:

Dim DiskID As Long
Dim Track As Integer

DiskID = MCI.Tracks
For Track = 1 To MCI.Tracks
    MCI.Track = Track
    DiskID = DiskID + MCI.TrackLength
    DiskID = DiskID + MCI.Length
Next Track

Publicado en es.comp.lenguajes.visual-basic por Josep Lluís Treig Cortés

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