problema en listbox

[ramphi]

hola como estan tengo problemas con una lista de reproduccion y el problema es que no puedo tocar la soguiente cancion con que comandos puedo para el mediaplayer y que se reprodusca la siguiente
:(

gracias

[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!

[ramphi]

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

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


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:)

[delphi.com.ar]

Copiaste tu código textual??.. qué versión de Delphi utilizas?? nombras propiedades inexistentes en Delphi 7, por ejemplo.

procedure TForm1.Button1Click(Sender: TObject);
var
AFileName: TFileName;
begin
mediaplayer1.stop;
listbox1.itemindex := (listbox1.ItemIndex + 1) mod listbox1.Count;
AFileName := listbox1.items[listbox1.itemindex];
if not FileExists(AFileName) then
raise Exception.CreateFmt('Archivo no encontrado: %s', [AFileName]);

mediaplayer1.FileName := AFileName;
mediaplayer1.Play;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
Dlg: string;
k: Integer;
begin
if Opendialog1.Execute = True then
for k:= 0 to opendialog1.Files.Count-1 do
begin
dlg:= opendialog1.Files[k];
listbox1.AddItem(opendialog1.Files[k], nil);
end;
end;

[ramphi]

yo uso delphi 7 estas propiedades las encontre buscando en el foro, muchas gracias por la ayuda:D :D

[delphi.com.ar]

yo uso delphi 7 estas propiedades las encontre buscando en el foro, muchas gracias por la ayuda:D :D
¿Pero te compila?.... (Sinceramente lo dudo)

[ramphi]

¿Pero te compila?.... (Sinceramente lo dudo)



bueno tiemes rason:p sin darme cuenta hise un error al copiar el codigo

donde puse dlg: opendialog;
no es asi sino es dlg: tfilename; como tu lo tenias

eso fue :D

pero otra cosa como puedo indicar al mediaplayer que cuando acabe la cancion desactive un boton u active otro ??

pues cuando la cancion acaba se queda igual!!!

y nuevamente gracias por la ayuda exelente y ademas carga mas rapido que la mia:D :D