Problema con MIDIS (no suenan)

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