ejecutar un video y un archivo de sonido desde pb
Publicado por amilcar (327 intervenciones) el 10/11/2003 19:25:45
hola a todos, trabajo con pb 6.5 y con pb 8.0 para algunos casos.
necesito ejecutar un video y un archivo de sonido desde mi aplicacion
en pb 6.5 intente con esto:
SndPlaySoundA( ) o WaveOutGetNumDevs()
esta funcion run un fichero WAV
Global External Function:
FUNCTION boolean SndPlaySoundA(string wavfile, uint flag) LIBRARY "WINMM.DLL"
FUNCTION uint WaveOutGetNumDevs() LIBRARY "WINMM.DLL"
Script:
uint lui_NumDevs, l_mode
string ls_file
l_mode = 0
ls_file = string(c:\windows\media\chimes.wav)
lui_NumDevs = WaveOutGetNumDevs()
IF lui_NumDevs > 0 THEN
SndPlaySoundA(ls_file, l_mode)
END IF
pero no me funciona, no me da error pero no anda, en lui_NumDevs no me almacena ningun valor.
si alguien me puede ayudar e ajecutar el video y el wav le estare muy gradecido
un saludo desde argentina
necesito ejecutar un video y un archivo de sonido desde mi aplicacion
en pb 6.5 intente con esto:
SndPlaySoundA( ) o WaveOutGetNumDevs()
esta funcion run un fichero WAV
Global External Function:
FUNCTION boolean SndPlaySoundA(string wavfile, uint flag) LIBRARY "WINMM.DLL"
FUNCTION uint WaveOutGetNumDevs() LIBRARY "WINMM.DLL"
Script:
uint lui_NumDevs, l_mode
string ls_file
l_mode = 0
ls_file = string(c:\windows\media\chimes.wav)
lui_NumDevs = WaveOutGetNumDevs()
IF lui_NumDevs > 0 THEN
SndPlaySoundA(ls_file, l_mode)
END IF
pero no me funciona, no me da error pero no anda, en lui_NumDevs no me almacena ningun valor.
si alguien me puede ayudar e ajecutar el video y el wav le estare muy gradecido
un saludo desde argentina
Valora esta pregunta
0