Reproductor

[ramphi]

HOLA COMO ESTA
estube buscando entre los foros para agregar aun reproductor que hice una lista de reproduccion y me fije que en los foros hablan de listbox bien mi duda
es la siguiente; como parece que los que pusieron esas lineas ya sabian como agregar los archivos a ese listbox y como reproducir de el, no en contre claramente como hacer eso, y otra cosa ese componente el delphi 7 se llamara checklistbox por k no encontre el listbox en este, pues nada esa es mi duda como hago la lista de reproduccion.
gracias

[dicatek]

Tienes el listbox en la paleta Standard. Lo que no sé es cómo podrías hacerlo. Mírate la siguiente dirección que hace tiempo le eché un vistazo y creo que estaba bastante bueno! Suerte!!

http://delphi.about.com/od/multimedia/l/aa112800a.htm

[jorge1987]

En el TListBox, cargas el path de los archivos a reproducir, y cuando se termina de reprodicir uno, le decis por ejemplo, que le sume 1 al ItemIndex, y que cargue el archivo correspondiente desde el path que tiene el string del TListBox, fijate bien, tenes que tener un componente que sea un lista .

Saludos

[ramphi]

no se si me explique bien se que tengo que cargar los archivos al listbox mi pregunta es uso un opendialog para abrir los archvos de hay con que comando lo cargo a listbox
gracias

[dec]

Hola,

Luego de mostrarse el "TOpenDialog" y de que el usuario eliga archivos y pulse el botón "Aceptar", cuentas con la propiedad "Files" del "TOpenDialog", que es de tipo "TStrings", me parece, y contendrá todas las rutas de todos los archivos que eligiera el usuario en el "TOpenDialog".

A partir de ahí... puedes cargar el "TListBox" de este modo, por ejemplo:

Código Delphi [-]
ListBox.AddItems(Files);

Eso si no estoy equivocado... digo todo esto de memoria, la verdad. O sea, más o menos algo así:

Código Delphi [-]
var
  dlg: TOpenDialog;
begin
  dlg := TOpenDialog.Create(Self);
  if dlg.Execute then
  begin
    ListBox1.AddItems(dlg.Files);
  end;
  dlg.Free;
end;

[ramphi]

Empezado por dec

Hola,

Luego de mostrarse el "TOpenDialog" y de que el usuario eliga archivos y pulse el botón "Aceptar", cuentas con la propiedad "Files" del "TOpenDialog", que es de tipo "TStrings", me parece, y contendrá todas las rutas de todos los archivos que eligiera el usuario en el "TOpenDialog".

A partir de ahí... puedes cargar el "TListBox" de este modo, por ejemplo:


Código Delphi [-]
ListBox.AddItems(Files);





Eso si no estoy equivocado... digo todo esto de memoria, la verdad. O sea, más o menos algo así:


Código Delphi [-]
var
dlg: TOpenDialog;
begin
dlg := TOpenDialog.Create(Self);
if dlg.Execute then
begin
ListBox1.AddItems(dlg.Files);
end;
dlg.Free;
end;

eso me parece bien excusame que pregunte esto antes de hacer lo es que programo en casa y alla no tengo internet uso el internet del trabajo para hacer las concultas
bueno eso no biene al caso lo mio es lo siguiente uso el sifuiente codigo para abrir elarchivo

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    if Opendialog1.Execute = True then
    begin
        MediaPlayer1.FileName := OpenDialog1.FileName;   
        MediaPlayer1.Open;
        Mediaplayer1.DisplayRect := rect(0,0,OleContainer1.Width,OleContainer1.Height);
        MEdiaPlayer1.Play;
        StatusBar1.SimpleText := 'Repoduciendo Archivo: ' + OpenDialog1.FileName;
        Label3.Visible := True;
        Label4.Visible := True;
    end;
end;

lo que me indicas hacer es lo siguiente

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);var dlg: opendialog1;begin
    if Opendialog1.Execute = True then     begin      listbox1.additems(dlg.files)
        MediaPlayer1.FileName := listbox1.item.string;   
        MediaPlayer1.Open;
        Mediaplayer1.DisplayRect := rect(0,0,OleContainer1.Width,OleContainer1.Height);
        MEdiaPlayer1.Play;
        StatusBar1.SimpleText := 'Repoduciendo Archivo: ' + OpenDialog1.FileName;
        Label3.Visible := True;
        Label4.Visible := True;
    end;
end;

esalgo asi verdad

[ramphi]

hola estoy otraves ya pude resolver lo de agragar los archivos al listbox con lo siguiente

Código Delphi [-]
for k:=0 to aopendialog1.filescount-1 do
 
tempfile:= opendialog1.files[kl];
 
listbox1.additems(tempfile, opendialog1.files);
 
play:= listbox1.item.string[listbox1.itemindex+1];
 
madiaplayer1.play:= play;
...........

mi problema ahora es el siguiente no puedo hacre que se repdroduscan todas solo la primera y intente esto y no me funciona

Código Delphi [-]
//puse una variable ''j'' que vaya aumentando
j:= j +1;
//y se lo puse al itemindex de listbox
listbox1.itemindex=j
pero me sale que son formatos diferentes y quiero saber que puedo hacer en esta caso

[ramphi]

en contre la forma de hacerlo lo que nececito ahora aplicarla,
por ejemplo uso un scrollbar para saber en que parte va la cancion o el video, el problema es que cuando este llegue al final yo quiero que el mediapleyer haga li siguiente

Código Delphi [-]
 
mediaplayer1.stop;
listbox1.itemindex:= listbox1.itemindex+1;
play:= listbox1.itemindex;
mediaplayer1.filename:= play;
mediapleyer1.open;
mediplayer1.play;

y no pasa nada solo el scrollbar se queda al final

y uso las propiedades ondragend y ondragover y no hace nada
quiero saber si alguien me puede ayudar