Problema con MIDIS (no suenan)

[darkphantom]

Tengo un problema con los midis (*.mid) y los Karaokes (*.Kar). Hice un minireproductor para un proyecto que estoy haciendo y al cargar los archivos los mando a un FILELIST, de ahi selecciono y los mando a reproducir, pero me manda una direccion ATRAS, asi ke le doy "tratamiento" a la direccion y cargo el archivo (eso ya lo tengo) pero al darle reproducir NO HACE NADA!!! alguien me puede ayudar??? la verdad ya no se ke hacer, talvez no sea nada pero tanto estoy con eso ke nomas no doy....lo obvio puede estar delante, y no lo voy a ver, espero alguien me pueda ayudar.

Gracias de antemano, nos vemos!!!

[[kuan-yiu]]

¿Has configurado el dispositivo de salida?
Recuerdo vagamente que fue algo que me dio problemas cuando hice el proyecto fin de carrera (MIDI, GLScene...) Según versiones y componentes eso es algo automático o manual.

[darkphantom]

pos ahi si no se komo se hace eso, pero en winamp y mediaplayer funcionan los midis, si me puedes decir ke hacer te lo agradeceria.

[darkphantom]

oye si te refieres a configurar la salida midi para todo el sistema operativo, ya esta hecho, y si lo dices para mi proyecto en si, kreo ke si necesito ayuda, porke la verdad ahi si no se ke onda, solo pongo las propiedades del TMEDIAPLAYER de tipo Sequencer, autoopen, y el filename lo manejo con un FILELISTBOX. Espero me puedan ayudar porke si lo necesito.

[darkphantom]

heyyyy asunto arreglado, ahi les va lo ke hice, estoy usando

DIRECTORYLISTBOX
FILELISTBOX
SPEEDBUTTONS (o cualquier tipo de boton)

1: Cerrar
2: Detener

primero agregamos al uses del form el MMSYSTEM;

creamos dos variables tipo String yo las llame filenameold y filenamenew

y de ahi estos codigos :

Código Delphi [-]
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
 close; 
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  MCISendString(PChar('stop ' + FileNameold), nil, 0, 0); //detienes la reproduccion con el boton.
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 form1.DirectoryListBox1.Directory:='C:\MUSICA\'; //o donde tengas el directorio).
 form1.DirectoryListBox1.visible:=false;  // lo kitamos pa ke no se vea
 filenamenew:='';  //vaciamos las variables para ke no tengan basura
 filenameold:='';   //vaciamos las variables para ke no tengan basura 
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
 filenameold:=FileNamenew;  //toma el nombre del midi anterior
 filenamenew:=form1.FileListBox1.FileName; //toma el nombre del nuevo midi
 MCISendString(PChar('stop ' + FileNameold), nil, 0, 0); //detiene el anterior
 MCISendString(PChar('play ' + FileNamenew), nil, 0, 0); //reproduce el nuevo
end;

espero le sirva a alguien mas. suerte..!!!!