![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() Que Tal, mi duda es como puedo reproducir una lista de archivos MP3 en delphi y que me permita seguir ejecutando otras opciones de mi programa.
Probe con Tmediaplayer pero tengo que esperar a que terminen todos los archivos MP3 que le indique en el codigo para poder seguir usando mi programa. Y lo que necesito es que reproduzca cada archivo de la lista pero que a la vez me permita seguir ejecutando otros modulos en el programa. No se si se pueda, y de antemano agradezco su ayuda. Saludos. |
#2
|
|||
|
|||
no conozco muxo ese componente, pero se me ocurre asi de repente que lo que podrias acer es tener el player como una aplicacion externa que cargas dsd otra ...asi, deberias tener un modulo central, una especie de menu, que carge los demas modulos segun se vaian necesitando
|
#3
|
|||
|
|||
![]() Creo que no entiendo perfectamente cual es tu problema.
![]() Pero se me ocurre que manejes manualmente la lista (usando una array de direcciones a reproducir) y que cuando se termine un tema recién reproduzcas el siguiente (usando el evento notify, si mal no recuerdo). ![]() De todas maneras si es que no entendí bien el problema, repreguntame, aclarando que es lo que necesitas. ![]() |
#4
|
|||
|
|||
Que tal Ricardosml , antes que nada gracias por tu contestación, y el problema es que mientras este ejecutando la lista no podre usar ningun otro modulo de la aplicacion hasta que termine, y lo que quiero es precisamente eso que se ejecute la lista y seguir usando otros modulos del programa.
La unica opcion es lo que me dice JoseQ de tener este modulo de mp3 aparte, pero no se si si pueda en la misma aplicacion junto con los otros modulos. |
#5
|
||||
|
||||
Yo sigo sin entender muy bien el problema. El MediaPlayer puede reproducir un archivo mientras se trabaja en otra cosa de la misma aplicación. ¿Cómo estás manejando la lista? ¿Qué tal que nos muestras algo de código?
// Saludos |
#6
|
|||
|
|||
Misma Duda!
![]() es pekeño mi codigo pero logra hacer eso: Dialogs, FileCtrl, StdCtrls, ExtCtrls, MPlayer; type TForm1 = class(TForm) Bevel1: TBevel; DriveComboBox1: TDriveComboBox; DirectoryListBox1: TDirectoryListBox; FileListBox1: TFileListBox; MediaPlayer1: TMediaPlayer; Panel1: TPanel; procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean); begin Panel1.Caption := Mediaplayer1.FileName; end; end. |
#7
|
|||
|
|||
ya logre eso
![]() |
#8
|
|||
|
|||
![]() bacicamente ocupas:
MediaPlayer1.Filename := FileListBox2.FileName; MediaPlayer1.DeviceType := dtAutoSelect; MediaPlayer1.open; MediaPlayer1.Play; esto es lo k llebo echo yo en 3 dias pero algien me puede decir como aser k me muestre una lista de espera en similar al reproductor de windows yak si selecciono otro me bota el anterior ???: unit freeplay; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FileCtrl, StdCtrls, ExtCtrls,jpeg, MPlayer; type TForm22 = class(TForm) FileListBox2: TFileListBox; Image1: TImage; MediaPlayer1: TMediaPlayer; cerrar: TButton; Label1: TLabel; Button1: TButton; DirectoryListBox1: TDirectoryListBox; FileListBox1: TFileListBox; Label2: TLabel; MediaPlayer2: TMediaPlayer; Button2: TButton; procedure FileListBox1DblClick(Sender: TObject); procedure DirectoryListBox1Change(Sender: TObject); procedure Button1KeyPress(Sender: TObject; var Key: Char); procedure cerrarClick(Sender: TObject); procedure FileListBox2KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form22: TForm22; a,N:integer; implementation {$R *.dfm} procedure TForm22.Button1KeyPress(Sender: TObject; var Key: Char); begin if N<=0 then N:=N+1; Label1.Caption := IntToStr(N); if N>=1 then N:=N+1; Label1.Caption := IntToStr(N-1); end; procedure TForm22.cerrarClick(Sender: TObject); begin Close; end; procedure TForm22.DirectoryListBox1Change(Sender: TObject); begin FileListBox2.Directory:=DirectoryListBox1.Directory; FileListBox1.Directory:=DirectoryListBox1.Directory; end; procedure TForm22.FileListBox1DblClick(Sender: TObject); begin label2.Caption:=FileListbox1.filename; end; procedure TForm22.FileListBox2KeyPress(Sender: TObject; var Key: Char); begin if N>=1 then N:= N-1; MediaPlayer1.Filename := FileListBox2.FileName; MediaPlayer1.DeviceType := dtAutoSelect; MediaPlayer1.open; MediaPlayer1.Play; Label1.Caption := IntToStr(N); if N=1 then Label1.Caption := IntToStr(N-1); // //MediaPlayer2.Filename := FileListBox2.FileName; //MediaPlayer2.DeviceType := dtAutoSelect; if N=0 then MediaPlayer1.pause; end; end. |
#9
|
|||
|
|||
![]() no olvides poner el codigo en el evento dobleclic o en onkey pres como lo tengo jejeje pero prueba el mio ese si funciona lo k kieres aser bueno con doble clic o al selecionar el archivo y presionar una tecla te lo reproduce yo seguire invesstigando aver k mas el agrego
![]() ![]() ![]() ![]() |
#10
|
|||
|
|||
![]() es decir tu puedes reproducir la lista entera en el reproductor pero el programa no ase otra cosa asta terminar el proceso me podrias poner el codigo??
![]() ![]() ![]() ![]() |
#11
|
|||
|
|||
![]() Disculpen mi ignorancia, trabajo con delphi 7 y no encuentro el componente MediaPlayer, me podrían orientar?
Muchas gracias. |
#12
|
||||
|
||||
Debe estar en la pestaña System.
// Saludos |
#13
|
|||
|
|||
Muchas gracias Roman
En cuanto pueda lo reviso.
|
![]() |
|
|
![]() |
|