Reproductor

[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