Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Error MCI con multimedia (https://www.clubdelphi.com/foros/showthread.php?t=28636)

Jorghino reyes 27-12-2005 07:00:51

Error MCI con multimedia
 
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] 27-12-2005 13:46:55

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. ;-)


La franja horaria es GMT +2. Ahora son las 22:29:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi