IT SOLUTIONS
Your full service technology partner! 
-Collapse +Expand
Paradox
Search Paradox Group:

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

Prestwood eMagazine

March 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 = P1226A1
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
6102
Since 4/2/2008
-
   Contact Us!
 
Have a question? Need our services? Contact us now.
--Mike Prestwood

Call: 916-726-5675

email: info@prestwood.com


Go ahead!   Use Us! Call: 916-726-5675 


©1995-2019 Prestwood IT Solutions.   [Security & Privacy]