home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sys / mac / programm / 22162 < prev    next >
Encoding:
Internet Message Format  |  1993-01-25  |  2.6 KB
  1. Path: sparky!uunet!ferkel.ucsb.edu!taco!gatech!swrinde!zaphod.mps.ohio-state.edu!cs.utexas.edu!qt.cs.utexas.edu!yale.edu!spool.mu.edu!olivea!apple!goofy!mumbo.apple.com!gallant.apple.com!NewsWatcher!user
  2. From: REEKES@applelink.apple.com (Jim Reekes)
  3. Newsgroups: comp.sys.mac.programmer
  4. Subject: Re: Problems with sound (again)
  5. Message-ID: <REEKES-250193130203@90.10.20.67>
  6. Date: 25 Jan 93 21:03:30 GMT
  7. References: <1993Jan24.192848.159533@zeus.calpoly.edu>
  8. Sender: news@gallant.apple.com
  9. Followup-To: comp.sys.mac.programmer
  10. Distribution: na
  11. Organization: Apple Computer, Inc.
  12. Lines: 52
  13.  
  14. In article <1993Jan24.192848.159533@zeus.calpoly.edu>,
  15. tjohnson@joule.elee.calpoly.edu (Todd Johnson) wrote:
  16. > 
  17. > Newsgroups: comp.sys.mac.programmer
  18. > Subject: Another sound problem
  19. > Summary: System 6 barfs
  20. > Followup-To: 
  21. > Distribution: na
  22. > Organization: California Polytechnic State University, San Luis Obispo
  23. > Keywords: snd, System 6
  24. > 
  25. > I use the following function to play sounds:
  26. > 
  27. > void play_sound(short res_id)
  28. > {
  29. >   SndChannelPtr  aChannel;
  30. >   OSErr          err;
  31. >   Handle         itsSound;
  32. > 
  33. >   itsSound = GetResource('snd ', res_id);
  34. >   if (itsSound != NULL)
  35. >   {
  36. >     aChannel = NULL;
  37. >     err = SndNewChannel(&aChannel, sampledSynth, initMono, NULL);
  38. >     if (err == noErr)
  39. >       SndPlay(aChannel, itsSound, FALSE);
  40. >     SndDisposeChannel(aChannel, FALSE);
  41. >     ReleaseResource(itsSound);
  42. >   }
  43. > }
  44. > 
  45. >   This works fine as long as I run it under System 7. However, when I
  46. > compile and run under System 6, it crashes the machine. Ideally, I
  47. > would like to have a function to play sounds that works under both
  48. > operating systems. What am I doing wrong?
  49.  
  50. * the 'snd ' resource may be getting purged after calling SndNewChannel
  51. * don't call SndDisposeChannel unless SndNewChannel returned noErr
  52. * don't call SndPlay with a 'snd ' resource that specifies a 'snth' ID
  53.   if you've already allocated the channel for a snth. Format 2 'snd ' is
  54.   assumed to be sampledSynth. Most format 1 'snd ' have snth information
  55.   in them as well. Try passing 0 instead of sampledSynth to SndNewChannel.
  56. * since you're playing the 'snd ' sychronously, just do this one line:
  57.  
  58. err = SndPlay(nil, GetResource('snd ', resID), false);
  59.  
  60. -----------------------------------------------------------------------
  61. Jim Reekes, Polterzeitgeist  |     Macintosh Toolbox Engineering
  62.                              |          Sound Manager Expert
  63. Apple Computer, Inc.         | "All opinions expressed are mine, and do
  64. 20525 Mariani Ave. MS: 81-KS |   not necessarily represent those of my
  65. Cupertino, CA 95014          |       employer, Apple Computer Inc."
  66.