Programación General > Delphi

 Uso De Sonido

<< < (3/4) > >>

Enko:

--- Citar ---gracias gran enko smartass.gif

--- Fin de la cita ---
tampoco para tanto.
Respecto al metodo Next(), supongo que debe ser valido para CD y parecidos.

Podrias tener un archivo de texto que te indique los nombres de los temas, los cargas en un vector, y luego los lees reproduciendolos con el codigo anterior que te pasé.

althenna:
mmm... hace mucho (o tal vez nunca) use los vectores... pero generalmente lo hacia en c++ no recuerdo bien podrias darme un ejemplo

Enko:
Para el ejemplo de la clase, para que funcione necesitas, Un Opendialog1, MediaPlayer1.

No pude comprobar su funcionalidad porque no estoy en mi casa y no tengo delphi a mano, el ejemplo lo hice basandome en el anterior.

--- Código: Text --- TPlayList = classpublic  Index: integer;//index actual  Count: integer;//cantidad total de elementos  Item: array[1..50] of string; //lista de nombres  constructor Create;private  procedure LoadFromFile;  procedure Play;  procedure Next;end; constructor TPlayList.Create();var  i: integer;begin  Index:=0;  for i := 1 to 50 do Item[i] := 'SinAsignar';end; procedure TPlayList.LoadFromFile; //carga la playlistvar  i: integer;  f: text;  S: string;begin  AssignFile(f, 'playlist.txt');  Reset(f);  while not eof(f) do  begin    Inc(I);    ReadLn(f, Item[i]);  end;  Count := i;end; procedure TPlayList.Next; //posiciona el Index mas adelantebegin  Inc(Index);end; procedure TPlayList.Play; // reproduce  elemento actual del indexbegin   Form1.MediaPlayer1.Stop;   Form1.MediaPlayer1.FileName := Form1.OpenDialog1.FileName;   Form1.MediaPlayer1.Open;   Form1.MediaPlayer1.Play;end;  
La playlist debe ser algo como>

--- Citar ---C:\primero.mp3
C:\segundo.mp3
C:\musica\tercero.mp3

--- Fin de la cita ---

Debes crear un Boton llamado Next y otro llamado Play y en el evento onClick, colocar los metodos de la clase TPlayList Correspondientes. No olvides crear una instancia de esa clase> PlayList: TPlayList en por ej. Form1.Create;

althenna:
mmm tengo algunos problemas con el codigo...

por ejemplo

TPlayList = class *sale un error... que no eds class sino otra propiedad... pero no se cual, busque en ayuda pero no salio nada... ni siquyiera un ejemplo

constructor Create; *algo que tiene que ver con ccreate

procedure LoadFromFile;  *no recuerdo que me decia


otra pregunta
Inc(index) mueve el index adelante... pero y si lon quiero mover para atras??

ahh si en

AssignFile(f, 'playlist.txt');

puse
AssignFile(f, 'c:\playlist.txt'); *la f que significa??
gracias y perdon en serio creo que doy mucha lata

Enko:
Haciendo un par de modificaciones...... te adjunto un player funcionand, tenes que cargar una playlist, y usar los botones  "<<",  ">>",  "Load", "Play".

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior