Power Builder - Help nesesito reproducir un mid

*************************************** Hola a toda la gente ************************************

en el foro solo encuentro funciones para reproducir sonido pero lo k yo deseo es reproducir
archivos de sonido mid ya k son libianos.

agrades a kien me de la solucion
saludos lima-peru

Hola.

Podes utilizar un pcx, como el windows mediaplayer el cual lo
tendras instalado en todas las pcs.. o la API MciSendString
Con esta Api puedes hacer millones de cosas.
hasta tu propio y personalizado reproductor.

Saludos desde Argentina y espero te ayude.


//Declarar en LocalExternalFunctions
FUNCTION ULong MciSendString(String lpszCommand, &
ref String lpszReturnString, &
ULong cchReturn, ULong hwndCallback) &
LIBRARY "winmm.dll" &
ALIAS FOR "mciSendStringA;Ansi"

//Nota.. si utilizas version de pb inferior a la 10
no debes definir
&
ALIAS FOR "mciSendStringA;Ansi"


// declaras o local o en intances variables
String lpszReturnString
ULong cchReturn, ll_rc
String ls_Tema

//Scrip ejecutar
lpszReturnString = Space(255)
Ls_Tema ="C:\Musica\Mid\Sinfonia40.mid"

ll_rc = MciSendString("Open ~"" + ls_tema + "~" Type Sequencer Alias Midi_Device",lpszReturnString, cchReturn, 0)
ll_rc = MciSendString("play Midi_Device", lpszReturnString, cchReturn, 0)

//Scrip parar
ll_rc = MciSendString("stop Midi_Device", lpszReturnString, cchReturn, 0)

grasias por darme ese api.
te agradesco me a servido un monton

tambien deseo saber si ese api podria reproducir mp3 o nesecito otro api para poder realizar esa funcion