Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   TMediaPlayer para la reproduccion de CD (https://www.clubdelphi.com/foros/showthread.php?t=30420)

euss 05-04-2006 20:54:11

TMediaPlayer para la reproduccion de CD
 
Hola espero no estar preguntando algo que ya hayan expuesto en otro hilo, mi problema es el siguiente estoy reproduciendo mp3 utilizando un TMediaPlayer, cargo la lista de reproduccion desde un openDialog, hasta ahi todo va bien el problema ocurre cuando intento reproducir un CD ya que no me lo reproduce por pistas sino todo de corridito, entonces como puedo hacer para seleccionar las pistas y tocarlas como lo hago con la lista de Mp3, soy nueva en delphi asi que disculpen si mi pregunta es obvia.:o

madriles 06-04-2006 18:20:03

Formato de los CD
 
Hola euss
El problema esta en el formato, o mejor dicho en la forma de leerlo que tiene el media player, no lee los titulos sino como un todo y, de forma interna lo hace trocitos o tracks, pero dejemonos de royos, mira el siguiente ejemplo
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := IntToStr(MediaPlayer1.Tracks);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   MediaPlayer1.Stop;
   MediaPlayer1.Position := StrToInt(Edit2.Text);
end;

Como ves he puesto un Button1 que lo que hace es ver cuantas pistas o track tiene el ce en cuestion y lo pone en Edit1.
el Button2 lee de Edit1 el track al que queremos ir y lo carga, pulsa play y listo.
por supuesto tienes que comprobar que el numero exista por eso te he puesto como se obtiene el numero total
espero que te sirva.
seguramente si se ha preguntado en bastantes ocasiones, pero por ser la primera vez, se bienvenido@ al foro, y para la proxima busca primero
un saludo

euss 06-04-2006 22:02:33

Gracias
 
Muchas gracias madriles, son mis pininos en delphi por eso puede que la pregunta sonará demasiado obvia, busque la respueta un tiempo antes de animarme a preguntar en este foro pero creo que estaba bastante perdida asi que no encontre nada. Lo importante es que tu respuesta me ayudo de mucho, la linea que hace la magia quedo como algo asi:

Código Delphi [-]
MediaPlayer1.StartPos := MediaPlayer1.TrackPosition[3]; //Donde 3 es el Track :P



Por si le sirve a alguien mas. De nuevo muchas gracias :)


La franja horaria es GMT +2. Ahora son las 12:52:54.

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