I.T. Discussion Community!
-Collapse +Expand
Paradox
Search Paradox Group:

Advanced
-Collapse +Expand Paradox To/From
To/FromCODEGuides
-Collapse +Expand Paradox Store
PRESTWOODSTORE

Prestwood eMagazine

April Edition
Subscribe now! It's Free!
Enter your email:

   ► KBDesktop Data...Paradox & Ob...ObjectPAL Co...OPAL: Langua...   Print This     
  From the July 2012 Issue of Prestwood eMag
 
Paradox OPAL: Language Details:
Playing Sounds in 32-bit versions of Paradox
 
Posted 17 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.

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

0 Comments.
Share a thought or comment...
 
Write a Comment...
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1196A1
Enter key:
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

 KB Article #100065 Counter
6153
Since 4/2/2008
-
   Contact Us!
 
PrestwoodBoards.com was developed and is maintainted by me. Do you have a question or suggestion? Do you see a problem? Contact me now. My goal is to build an ad-free and spam-free source of I.T. information with many contributers (ok to promote your website/company in your bio). Yes, my company Prestwood IT Solutions is mentioned in my bio which shows with every post, but you can contribute and promote your pet project too!

2,913 People Online Now!!  
Sign In to see who's online now!  Not a member? Join now. It's free!
Show more stats...


©1995-2019 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech