Reproductor de audio y videos

[Khronos]

Hola.

Abro este hilo para que probeis mi programa si no es mucha molestia, se llama Phoenix. Es un reproductor de audio y video, esta hecho en CodeGear Delphi 2007.
Me gustaria que me dierais vuestra opinion del programa, se lo enseñe a mis amigos y les gusto mucho sobro todo la interface. Para mis conocimientos de programacion (llevo año y medio programando) creo que esta bien, aunque el codigo no es muy elegante.
Si ha alguien le interesa algo de codigo me lo puede decir y lo pongo.

---------------------------------------
Tambien os dejo una funcion que hice para averiguar la duracion de una cancion o video, funciona perfectamente pero queria que me dierais vuestra opinion porque al abrir mas de 20 canciones tarda unos segundos en cargarlas todas.

Código Delphi [-]
function GetTime(path: string): string;
var
mil, min, sec, hor: integer;
segundos, minutos: string;
MP: TMediaPlayer;
begin
MP:= TMediaPlayer.Create(FPrincipal);
mp.Parent:=FVideo;
mp.Left:=-1000;
mp.Top:=-2000;
mp.FileName:=path;
mp.Open;
mp.TimeFormat:=tfMilliseconds;
mil:= MP.Length;
sec:= mil div 1000;
min:= sec div 60;
hor:= min div 60;
sec:= sec mod 60;
segundos:=inttostr(sec);
minutos:=inttostr(min);
if min<10 then begin
minutos:='0' + inttostr(min);
end;
if sec<10 then begin
segundos:='0' + inttostr(sec);
end;
GetTime:= inttostr(hor) +':' +minutos + ':' + segundos;
mp.FileName:='';
mp.Close;
mp.Destroy;
end;

El enlace de descarga es este:
http://www.megaupload.com/es/?d=6ZCTPNB8

PD: No podia subirlo al clubdelphi por exceso de tamaño.

Salu2

[JXJ]

yo creo que te tarda el obtener la duracion
por que abres el archivo.

creo que se puede obtener esa informacino sin abrir el archivo.

[Khronos]

La unica propiedad que me interesa del mediaplayer que creo en ejecucion es length porque me devuelve la duracion del archivo en milisegundos.
Luego solo tienes que hacer las operaciones adecuadas.

[dec]

Hola,

Gracias, antes de nada. Parece que el archivo Zip que has enlazado está "corrupto". Debe ser una tontería. Echa un vistazo a ver.

[Khronos]

Gracias dec, ahora creo ke ya esta. Lo pase a megaupload, pero hay ke poner un codigo de seguridad y esperar 30 segundos

[dec]

Hola,

¿Treinta segundos? Qué barbaridad... Gracias a ti.

[MiguelC]

Hola, alguien me puede ayudar con lo siguiente: Estoy cargando en un CheckListBox una lista de archivos multimedia (*.avi, *.mp3,etc.) que quisiera ir reproduciendo uno a continuacion del otro, a medida de que se ecuentren checked en el CheckListBox.Para tratar de reproducir los archivos estoy usando Delphi 5 y su mediaplayer.El punto es que con la ayuda de Delphi he podido hacer lo siguiente:

For I:= 0 To CheckListBox1.Items.Count - 1 Do
Begin
If CheckListBox1.Checked[i] = True Then
Begin


MediaPlayer1.FileName:= CheckListBox1.Items.Strings[i];
MediaPlayer1.AutoOpen:= True;
MediaPlayer1.AutoRewind:= True;
MediaPlayer1.Open;

try

MediaPlayer1.Wait := True; { Waits until sounds is done playing to return }
MediaPlayer1.Play; { Play sound }
MediaPlayer1.Play; { Play again after first playing is completed }
finally
MediaPlayer1.Close; { Close media player }

end;





End;


End;

El punto es que los archivos se van ejecutando uno a seguidas de otro con la ayuda de esto : MediaPlayer1.Wait := True; pero esta parte me inhabilita cualquier otra operacion que yo quisiera hacer como por ejemplo detener la reproduccion de los arhivos como lo haria cualquier reproductor normal, o simplemente ejecutar un click sobre cualquier boton que yo tengo en el formulario. pero esto da la impresion de que se inhibe todo hasta que el mediaplayer no culmina.En resumen, para no cansarlos tanto, pregunto: Existe otra manera de yo poder simular un reproductor normal que pueda reproducir mas de un archivo con el mediaplayer y yo pode seguir teniendo el control sobre el u otro componente en mi formulario sin que parezca que mi programa esta colgado y yo poder cancelar la reproducción cuan lo desee?
Gracias de Antemano, por cualquier ayuda.