FiveTech Software tech support forums

... based connection functions when you are going to develop an intensively work with some DLLs. See "using Windows API". Example: Calling SndPlaySound() at RunTime: #include "FiveWin.ch"function Main()   SndPlaySound( "tada.wav", 0 )returnDLL FUNCTION ...

... RESOURCE "BTN_OK" ; TEXTRIGHT ; ID 1 ; OF oDlg ; ACTION ( oDlg:End() ) aBoton[ 1 ]:lDefault := .t. ACTIVATE DIALOG oDlg CENTERED ON INIT SndPlaySound( ".\SONIDOS\ERROR.WAV" ) Return .t. Espero y te ayude Saludos Eduardo Borondón Muñiz

... < SND_ASYNC > That doesn't work because the function returns immediately after beginning the sound FOR I := 1 TO 3 // play sound 3 times SndPlaySound( "Test.wav", 1 ) // 0 works but is blocking all actions NEXT SND_SYNC The sound is played synchronously and the function does ...

... if needed nCPos := oBrw1:SelectedCol():nCreationOrder, ; // selected col IIF( nCPos = 1 .and. nKey == 13, ; // Sound on EDIT only on column 1 SndPlaySound( c_Path1 + "Alert.wav", 0 ), NIL ) ) } regards Uwe :D Thank you but I dont want to play a sound if a check or unckeck the first ...

... if needed nCPos := oBrw1:SelectedCol():nCreationOrder, ; // selected col IIF( nCPos = 1 .and. nKey == 13, ; // Sound on EDIT only on column 1 SndPlaySound( c_Path1 + "Alert.wav", 0 ), NIL ) ) } regards Uwe :D

... oTimerT Do Case Case _nInterval2=(_nMinToInterval-1)*60000 // aca se cumple el primer timer y se le avisa al usuario que solo le queda un minuto SndPlaySound( '.\Sonidos\error.wav' ) o es en otra parte que quieres que lo ponga? Gracias !

... oTimerT Do Case Case _nInterval2=(_nMinToInterval-1)*60000 // aca se cumple el primer timer y se le avisa al usuario que solo le queda un minuto SndPlaySound( '.\Sonidos\error.wav' ) _nInterval2 :=(_nMinToInterval-1)*60000+1 _oTimerTabla2:Deactivate() // se crea este dialogo donde se le pregunta ...

Hola de nuevo, no he conseguido nada con la funcion SndPlaySound. He buscado en Internet y parece ser que el Pocket no tiene tarjeta de sonido y solo es posible hacer sonar el Buzzer. Para ello es necesario tener tu propia función y en este Post he ...

... types for formal and actual parameter 1 y al final al linkar icm.obj : error LNK2019: unresolved external symbol IF referenced in function HB_FUN_SNDPLAYSOUND icm.exe : fatal error LNK1120: 1 unresolved externals No reconoce la función IF (), he copiado la función SNDPLAYSOUND tal cual me la puso ...

... "Mensaje: " + oError:Description, "Atención" ) oCfg := Nil oMsg := Nil Return ( .F. ) END oCfg := Nil oMsg := Nil Eval(bMens) SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 ) CursorArrow() if oDlg<>NIL oDlg:End() endif Return ( .T. )

... CursorArrow() Eval(bMens) MsgStop( "No se pudo enviar el e-mail") oCfg := Nil oMsg := Nil Return .t. End Try oCfg := Nil oMsg := Nil SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 ) CursorArrow() Eval(bMens) Return .t.

Joao, En principio creo que no se puede porque la función sndPlaySound() de Microsoft solo admite dos tipos de ficheros: el identificador de un sonido del sistema ó el nombre de un fichero. Es decir, no permite que se le proporcione un handle de memoria. ...

I've noticed thad wav files with format "PCM 8,000 kHz; 16 bit; Stereo" can be heard

on the contrary files wav with "CCITT A-Law 8,000 kHz; 8 bit; Stereo" not

Obviuosly with function sndplaysound()

Any hints?

... oError:SubSystem ) + CRLF + "Message: " + oError:Description ) oCfg := Nil oMsg := Nil Return Nil End Try oCfg := Nil oMsg := Nil SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 ) CursorArrow() ELSE MsgStop("No hay Destinatario"+CRLF+; "Envio CANCELADO", ...

Yes, I did it, but without any effects. It seems like it's loading or analyzing the whole file before to play it...