Error MCI con multimedia

[Jorghino reyes]

Hola que tal, un saludo a todos los que hacen posible este gran lugar.

Tengo Una duda con el componente de mediaplyer.

Que puedo hacer para detectar o controlar el momento cuando un archivo ( mp3) esta dañado. Es decir me presenta un error de este tipo " NO MCI device Open"

Lo que quiero hacer es que cuando esto pase o previo a que esto pase tenga la opcion de hacer algo para que no se detenga el programa cuando lo intento reproducir.

Gracias de antemano.

[[Gunman]]

Mira en las excepciones del programa... Puede hacer:

Código Delphi [-]
try
MediaPlayer1.FileName := 'C:\mp31.mp3';
MediaPlayer1.Open;
 except 
    MediaPlayer1.FileName := 'C:\mp32.mp3';
    MediaPlayer1.Open;
 end;

Adapta esto a tu caso, por ejemplo si tienes una lista de canciones y un botón que inicia la canción seleccionada puedes hacer:

Código Delphi [-]
 procedure Play(NSong: Integer);
 try
    MediaPlayer1.FileName := ListBox1.Items[NSong];
    MediaPlayer1.Open;
 except
    Play(NSong+1);
    exit;
 end;
 end;

para llamarlo des de el botón:

Código Delphi [-]
Play(ListBox1.ItemIndex);

PD: El código lo he escrito desde la web, no sé si es correcto, pero la idea es esa. Compruebalo y modificalo a tu gusto. ;-)