home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / os / mswindo / programm / misc / 4376 < prev    next >
Encoding:
Internet Message Format  |  1992-12-21  |  3.7 KB
  1. Path: sparky!uunet!pipex!bnr.co.uk!uknet!mcsun!fuug!kiae!demos!relay1!river!csoft!news-server
  2. From: dema@metal.dnepropetrovsk.ua (D.V.Uzhakov)
  3. Newsgroups: comp.os.ms-windows.programmer.misc
  4. Subject: Re:Re:Errors in TPW 1.5 'mmsystem.pas'
  5. Summary: MMSYSTEM WAVEFORM
  6. Keywords: ERROR BORLAND TURBO PASCAL FOR WINDOWS 1.5
  7. Message-ID: <AAlEECh8n5@metal.dnepropetrovsk.ua>
  8. Date: 17 Dec 92 20:31:43 GMT
  9. Sender: news-server@river.cs.kiev.ua
  10. Reply-To: dema%metal.dnepropetrovsk.ua@ussr.eu.net
  11. Organization: Dneprometal
  12. Lines: 66
  13.  
  14. In article Message-ID:          <1992Dec9.060000.10061@emr1.emr.ca>
  15. jagrant@emr1.emr.ca             writes:
  16.  
  17. >   I guess it depends on how Pascal's PHWaveOut is defined.  I suspect
  18. >   that it is a pointer to a HWaveOut and that the HWaveOut is probably
  19. >   defined in a similar fashion to the C version (i.e. a pointer to an
  20. >   unused private struct (record in Pascal?) or simply as a UINT).
  21. >   Check the include files for Pascal - I bet they are the same.
  22. >
  23. >   Does Pascal have the equivalent of STRICT?
  24. >
  25.  
  26. No ! In 'mmsystem.pas' for TPW 1.5 , writeen :
  27. ...
  28. { waveform audio data types }
  29. type
  30.   PHWave = ^HWave;
  31.   HWave = Word;
  32.  
  33.   PHWaveIn = ^HWaveIn;
  34.   HWaveIn = Word;
  35.  
  36.   PHWaveOut = ^HWaveOut;
  37.   HWaveOut = Word;
  38.  
  39. ...
  40.    I think, TPW 1.5 file 'mmsystem.pas' is error in passed parameter "HWAVE"
  41. in functions :
  42. function waveOutPause           (hWaveOut: PHWaveOut ): Word;
  43. function waveOutRestart         (hWaveOut: PHWaveOut ): Word;
  44. function waveOutReset           (hWaveOut: PHWaveOut ): Word;
  45. function waveOutBreakLoop       (hWaveOut: PHWaveOut  ): Word;
  46. function waveOutGetPosition     (hWaveOut: PHWaveOut ; lpInfo: PMMTime;  uSize: Word): Word;
  47. function waveOutGetPitch        (hWaveOut: PHWaveOut ; lpdwPitch: PLongint): Word;
  48. function waveOutSetPitch        (hWaveOut: PHWaveOut; dwPitch: Longint): Word;
  49. function waveOutGetPlaybackRate (hWaveOut: PHWaveOut;lpdwRate: PLongint): Word;
  50. function waveOutSetPlaybackRate (hWaveOut: PHWaveOut; dwRate: Longint): Word;
  51. function waveOutGetID           (hWaveOut: PHWaveOut; lpuDeviceID: PWord): Word;
  52. function waveOutMessage         (hWaveOut: PHWaveOut; uMessage: Word;  dw1, dw2: Longint): Longint;
  53.  
  54. function waveInClose            (hWaveIn: PHWaveIn): Word;
  55. function waveInPrepareHeader    (hWaveIn: PHWaveIn; lpWaveInHdr: PWaveHdr;  uSize: Word): Word;
  56. function waveInUnprepareHeader  (hWaveIn: PHWaveIn; lpWaveInHdr: PWaveHdr; uSize: Word): Word;
  57. function waveInAddBuffer        (hWaveIn: PHWaveIn; lpWaveInHdr: PWaveHdr; uSize: Word): Word;
  58. function waveInStart            (hWaveIn: PHWaveIn): Word;
  59. function waveInStop             (hWaveIn: PHWaveIn): Word;
  60. function waveInReset            (hWaveIn: PHWaveIn): Word;
  61. function waveInGetPosition      (hWaveIn: PHWaveIn; lpInfo: PMMTime; uSize: Word): Word;
  62. function waveInGetID            (hWaveIn: PHWaveIn; lpuDeviceID: PWord): Word;
  63. function waveInMessage          (hWaveIn: PHWaveIn; uMessage: Word; dw1, dw2: Longint): Longint;
  64.  
  65. Correct passed : ... ( hWaveOut: HWaveOut ;  ...     !!!
  66.  
  67. Only  this functions is correct in passed parameter "HWAVE"  :
  68.  
  69. function waveOutOpen            (lphWaveOut: PHWaveOut; uDeviceID: Word; lpFormat: PWaveFormat; dwCallback, dwInstance, dwFlags: Longint): Word;
  70. function waveInOpen             (lphWaveIn:  PHWaveIn ; uDeviceID: Word; lpFormat: PWaveFormat; dwCallback, dwInstance, dwFlags: Longint): Word;
  71.  
  72. Tray all this function in program for TPW 1.5 !
  73.  
  74.    Thanks in advance for any replies.
  75.    Dementiy.
  76. ---------------------------------------------------------------------------
  77.   Dementiy V. Uzhakov                  DNEPROMETALOOPTTORG, UKRAINE
  78.   dema@metal.dnepropetrovsk.ua         Chief Departmment Information
  79. ---------------------------------------------------------------------------
  80.