DECLARE EXTERNAL
INCLUDE "MediaServerOpx.oxh" EXTERNAL tFilePlayerSimple
EXTERNAL tFilePlayerStop
Rem change this to where your wav file is
CONST KWAVFilename$="d\Documents\Tones\arrow.wav"
CONST KPriority&=KMdaPriorityNormal&
CONST KPreference&=KMediaSMdaPriorityPrefTimeQual&
PROC Main
GLOBAL gStatus&
tFilePlayerSimple
tFilePlayerStop
PRINT "Test code complete." PRINT "Press any key" GET
ENDP
PROC tFilePlayerSimple
EXTERNAL gStatus&
LOCAL priority&,preference&
IF NOT EXIST(KWAVFilename$)
ALERT(KWAVFilename$,"not found, test abandoned."😉
RETURN
ENDIF
priority&=0
preference&=KPreference&
CreateFilePlayerSimpleA(KWAVFilename$,gStatus&😉
IOWAITSTAT32 gStatus&
PRINT " PlayFileA",KWAVFilename$
PlayFileA(gStatus&😉
IOWAITSTAT32 gStatus&
CloseFilePlayer
PRINT
ENDP
PROC tFilePlayerStop
EXTERNAL gStatus&
CreateFilePlayerA(KWAVFilename$,KPriority&,KPreference&,gStatus&😉
IOWAITSTAT32 gStatus&
PlayFileA(gStatus&😉
StopFile
CloseFilePlayer
ENDP
Does this work on UIQ phones?