![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#18
|
|||
|
|||
|
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 |
|
|
|