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