Ayuda con objetos OLE en Fox

[Karlitoz]

Aqui recurriendo a los master de Fox, tengo este problema:

Tengo un formulario con un ole de sonido, este se reproduce cuando se carga el form, el problema es que cuando libero el form, el ole queda reproduciendose, entonces lo que necesito es como hacer para que el ole se detenga cuando libere el form? 

Agradecere toda la ayuda que me puedan ofrecer.   

[NoeL]

Bueno esta algo cañon para hacer lo que queres por que basicamente lo que sucede cuando insertas un objeto OLE de Sonido este se reproduce en el Reproductor que tengas predeterminado entonces es bien facil mandarle una instruccion a tu reproductor para que reproduzca el sonido pero cuando cerras el formulario como que esta dificil decirle al mismo reproductor que detenga la reproduccion por lo tanto tendrias que hacerlo manualmente

Pero Yo te Propongo la Siguiente Solucion:

El unico detallito es que te lo he programado pero con un archivo tipo WAV espero te sirva


1.   En el menú  Herramientas en  Opciones, hace clic en la pestaña  Controles,  controles ActiveX Click, desplazate en la lista y  selecciona  Microsoft Multimedia Control version 6 y a continuación, hace clic en  Aceptar.

2.   Crea un nuevo formulario.
3.   En la barra Control de formulario, hace clic en el botón Ver clases y a continuación, selecciona controles ActiveX.
4.   Hace clic en el control Multimedia y agregalo al formulario.
5.   Selecciona el control Multimedia y cambia a MCI la propiedad Name. Cambia la propiedad Visible hasta . Falso
6.   Abri el evento Init del control Multimedia y agregale el código siguiente:

Código: [Seleccionar]

* Set properties needed by MCI to open.
THISFORM.MCI.NOTIFY = .T. && Pause
THISFORM.MCI.WAIT = .T.
THISFORM.MCI.Shareable = .F.
THISFORM.MCI.DeviceType = "WaveAudio"
THISFORM.MCI.RecordEnabled = .T.
THISFORM.MCI.RecordMode = 0
THISFORM.MCI.StopEnabled = .T.
THISFORM.MCI.FileName = GETFILE("wav")

* Open the MCI WaveAudio device.
THISFORM.MCI.COMMAND = "Open"
THISFORM.MCI.COMMAND = "Play"
7.   Agregale un botón  Command y cambia el título a  Detener.
8.   En el evento Click del botón Stop, agrega este código:

Código: [Seleccionar]

IF THIS.CAPTION="Stop"
THISFORM.MCI.COMMAND = "Stop"
THIS.CAPTION="Restart"
ELSE
THISFORM.MCI.COMMAND = "Play"
THIS.CAPTION="Stop"
ENDIF
En el evento Destroy del formulario, agrega este código:

Código: [Seleccionar]

THISFORM.MCI.COMMAND = "Close"
10.   Agrega otro botón  Command y cambia el título a  Rebobinar.

11.   En el evento Click del botón  Rebobinar, agrega este código:

Código: [Seleccionar]

HISFORM.MCI.COMMAND = "Seek"
THISFORM.MCI.COMMAND = "Play"
Esto es sólo mostrar cómo podes reproducir el archivo de formato WAV

Ejecuta el formulario. Si tenes un archivo de formaWAV, escribi la ruta y el nombre en la propiedad Thisform.MCI.FileName en el evento Init del control en lugar de utilizar la función GETFILE(). Hace clic en el botón Stop para detener el archivo de forma de onda entonces hace clic en el botón Reiniciar para reanudar reproducir el archivo en la misma posición.


Cualquier duda ya sabes planteala por aqui....me parece que habia una forma para reproducir formatos mp3 pero no la recuerdo asi que estamos pendientes

[Karlitoz]

Gracias por la ayuda Noel, me llevo la page y hoy lo pruebo, te cuento la proxima vez que venga como me fue.   

[NoeL]

Gracias por la ayuda Noel, me llevo la page y hoy lo pruebo, te cuento la proxima vez que venga como me fue.

Ya sabes men para eso estamos....suerte

[Karlitoz]

Esta Vivo!!!

Mi proyecto funciona con unarchivo wav. Ahora, si no es mucha molestia, tal vez me ayudas con un archivo incrustado en el form, aunque si no con el otro codigo ya trabaja, pero me quedo la incertidumbre 

Yo incrusto los ole con el control estandar, y el sonido queda interno en el form, y no como archivo, lo modifico al dar clic derecho en la opcion modificar, entonces aparece la (Arcaica) grabadora de sonidos. Aqui es el problema, no admite comandos como mci, como le hago para detener este sonido? Gracias de antemano