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]

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

[delphi.com.ar]

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

Código Delphi [-]
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

[delphi.com.ar]

Empezado por ramphi

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

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

[ramphi]

Empezado por delphi.com.ar

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

bueno tiemes rason 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

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