From the July 2012 Issue of Prestwood eMag

Paradox OPAL: Language Details: Playing Sounds in 32-bit versions of Paradox By Mike Prestwood

Posted 22 years ago on 11/22/2002 and updated 6/8/2008 Take Away: In 32-bit Windows 95/98/ME/NT/2000, you use the PlaySound function in WINMM.DLL.  Tags: Paradox , ObjectPAL , play wav file , sndplaysound , mmsystem.dll KB100065

In 16-bit Windows 3.x and WFW, you used the sndPlaySound function in mmsystem.dll. In 32-bit Windows 95/98/ME/NT/2000, you use the PlaySound function in WINMM.DLL.

Click here to download a 32-bit Paradox example of how to play a wave file. Comes complete with FULL documentation.

Here is the pertinent code:

;Here is the uses prototype for the PlaySound function.
;
Uses WINMM
	 PlaySound(WavFile CPTR, handle CWORD, Flag CWORD)
endUses
;
;Now just use it, for example in a pushButton event:
;
method pushButton(var eventInfo Event)
	playSound("mywave.wav", 0, 0)
endMethod

Here is a bit more complete example that plays a file in the working directory. I have verified this works with Paradox 11 on Vista too.

;Here is the uses prototype for the PlaySound function.
;
Uses WINMM
  PlaySound(WavFile CPTR, handle CWORD, Flag CWORD) CWORD
endUses
;
;Now just use it, for example in a pushButton event:
;
method pushButton(var eventInfo Event)
var
 sSoundFile   String
 siReturnValue  SmallInt
 liMode   LongInt
endVar

const
 SND_SYNC = 0 ;See documentation for various modes. You might want to 
      ;define all of the flag constants in a library.
endConst

 ;Assign path to wave file.
 sSoundFile = getAliasPath(":work:") + "\\mywave.wav"
   msgInfo("",sSoundfile)

 ;Play wave file.
 siReturnValue = playSound(sSoundFile, 0, SND_SYNC)

 ;Evaluate result.
 if siReturnValue = 0 then
    ; Trap error here.
  msgInfo("Warning", "Sound file did not play.")
 else
  ; Sound file did play.
 endIf
endMethod

Enjoy!

Comments

KB Post Contributed By Mike Prestwood:

Mike Prestwood is a drummer, an author, and creator of the PrestwoodBoards online community. He is the President & CEO of Prestwood IT Solutions. Prestwood IT provides Coding, Website, and Computer Tech services. Mike has authored 6 computer books and over 1,200 articles. As a drummer, he maintains play-drums.com and has authored 3 drum books. If you have a project you wish to discuss with Mike, you can send him a private message through his PrestwoodBoards home page or call him 9AM to 4PM PST at 916-726-5675 x205. Visit Profile