Cita:
|
Empezado por delphi.com.ar
Me parece algo escueta la información.. ¿cómo estas obteniendo los items de la lista? ¿te esta produciendo algún error? ¿Puedes ponernos algo de código?
Saludos!
|
bueno aqui esta el codigo que uso para cargar y reproducir desde un boton
Código Delphi
[-]
Var
Dlg: Opendialog;
play:= sting;
begin
Opendialog1.Execute = True then
For k:= 0 to opendialog1.count-1 do
begin
dlg:= opendialog1.file[k];
listbox1.additems(dlg.files,opendialog1.file);
play := listbox1.item.string[listbox1.itemidex+1];
MediaPlayer1.FileName:= play;
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;
ahora
uso un scrollbar para la cancion y en el evento onenddrag puse esto
Código Delphi
[-]
var
play: string;
begin
mediaplayer1.stop
listbox1.itemindex:= listbox1.itemindex+1;
play:= listbox1.item.strings[listbox1.itemindex];
mediaplayer1.filename:= play;
mediaplayer1.play;
end;
pero el parecer no se ejecuta este ultimo y lo que quiero hacer es que el mediaplayer se pare y reprodusca la sigte.
gracias
