Hola =)
Bueno... mi problema es el siguiente:
Resulta que estoy ocupando la función MCISendString de Delphi para reproducir archivos MIDI (*.mid), pero no logro hacer que el tema se repita indefinidamente. El código es el siguiente:
Código Delphi
[-]uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
Const
ArchivoMIDI = 'c:\prueba.mid';
begin
MCISendString(PChar('play ' + ArchivoMIDI + ' repeat'), nil, 0, 0);
end;
No se que es lo que falta o falla, sólo resulta esta función con este código:
Código Delphi
[-]uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
Const
ArchivoMIDI = 'c:\prueba.mid';
begin
MCISendString(PChar('play ' + ArchivoMIDI), nil, 0, 0);
end;
Pero no repite el tema, sólo lo reproduce una vez. El flag repeat es para supuestamente que el tema se siga reproduciendo indefinidamente.
Sigo al pié de la letra la documentación de MSDN pero no me repite el tema. De aquí estoy sacando la info de MCISendString:
http://msdn2.microsoft.com/en-us/lib...92(VS.85).aspx
El comando Play desde aquí:
http://msdn2.microsoft.com/en-us/lib...42(VS.85).aspx
Qué estoy haciendo mal? qué me falta? Alguna sugerencia amigos =)
De antemano, gracias queridos colegas Delphimaniacos =)
Saludos.