Respuesta!!!
ok lo primero q queria hacer era usar una ListPlayer, y Use
ListBox
* con este codigo en el evento DblClick
MediaPlayer1.Enabled := true;
i := lbx1.ItemIndex;
mediaplayer1.FileName:= lbx1.Items.Strings[i];
mediaplayer1.Open;
s := mediaplayer1.FileName;
* y este codigo en el Boton para abrir un archivo
lbx1.Items.Add(mediaplayer1.FileName);
es con repecto al ListBox
Ahora tengo un error al momento de 'Cancelar' la apertura de archivos
"No se puede determinar el tipo de dispositivo por la extencion del archivo"
yo inclui en mi Reproductor
mpg, mp3, avi y wav.
pq ese error?
este es el codigo del Boton q abre archivos 'BitBtn1'
procedure TF_mp3.BitBtn1Click(Sender: TObject);
begin
if Opendialog1.Execute = true Then
MediaPlayer1.FileName := Opendialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect :=rect(0,1,OleContainer1.Width,OleContainer1.Height);
MEdiaPlayer1.Play;
StatusBar1.SimpleText := 'Repoduciendo Archivo: ' + OpenDialog1.FileName;
Label3.Visible := True;
Label4.Visible := True;
lbx1.Items.Add(mediaplayer1.FileName);//este codigo es del ListBox1
end;
cualquier ayuda y/o comentario, sera bien recibida
gracias
|