开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
msacm.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：34k
源码类别：

Delphi控件源码

开发平台：

Delphi

msacm.pas：源码内容
  1. unit MSACM;
  3. // ----------------------------------------------------------------------
  4. //
  5. // msacm.pas
  6. // 
  7. // Description:
  8. //
  9. //   Audio Compression Manager Public Header File
  10. //
  11. //   Converted for Delphi 2.x by Armin Sander, Digital SimpleX
  12. //                               (armin@dsx.de)
  13. //
  14. //   please mail any changes and fixes!
  15. //
  16. // History:
  17. //
  18. //   1.0 - first official release (3 Feb 1997)
  19. //
  20. // Disclaimer:
  21. //
  22. //   This product is supplied as is. The author disclaims all warranties,
  23. //   expressed or implied, including, without limitation, the warranties
  24. //   of merchantability and of fitness for any purpose. The author assumes
  25. //   no liability for damages, direct or consequential, which may result
  26. //   from the use of this product.
  27. //
  28. // ----------------------------------------------------------------------
  30. interface
  31. uses Windows, MMSystem;
  33. // MMREG include
  35. const
  36. WAVE_FILTER_UNKNOWN        =  $0000;
  37. WAVE_FILTER_DEVELOPMENT    = ($FFFF);
  39. type
  40. PWAVEFILTER = ^TWAVEFILTER;
  41. TWAVEFILTER = packed record
  42. cbStruct    : DWORD   ;        // Size of the filter in bytes
  43. dwFilterTag : DWORD   ;        // filter type
  44. fdwFilter   : DWORD   ;        // Flags for the filter (Universal Dfns)
  45. dwReserved  : array [0..5] of DWORD;      // Reserved for system use
  46. end;
  48. const
  49. DRV_MAPPER_PREFERRED_INPUT_GET  = (DRV_USER + 0);
  51. const
  52. DRV_MAPPER_PREFERRED_OUTPUT_GET = (DRV_USER + 2);
  54. DRVM_MAPPER_STATUS = $2000;
  56. const
  57. WIDM_MAPPER_STATUS          = (DRVM_MAPPER_STATUS + 0);
  58. WAVEIN_MAPPER_STATUS_DEVICE = 0;
  59. WAVEIN_MAPPER_STATUS_MAPPED = 1;
  60. WAVEIN_MAPPER_STATUS_FORMAT = 2;
  62. const
  63. WODM_MAPPER_STATUS           = (DRVM_MAPPER_STATUS + 0);
  64. WAVEOUT_MAPPER_STATUS_DEVICE = 0;
  65. WAVEOUT_MAPPER_STATUS_MAPPED = 1;
  66. WAVEOUT_MAPPER_STATUS_FORMAT = 2;
  68. type
  69. HACMDRIVERID = THandle;
  70. PHACMDRIVERID = ^HACMDRIVERID;
  72. type
  73. HACMDRIVER = THandle;
  74. PHACMDRIVER = ^HACMDRIVER;
  76. type
  77. HACMSTREAM = THandle;
  78. PHACMSTREAM = ^HACMSTREAM;
  80. type
  81. HACMOBJ = THandle;
  82. PHACMOBJ = ^HACMOBJ;
  84. const
  85. ACMERR_BASE         = (512);
  86. ACMERR_NOTPOSSIBLE  = (ACMERR_BASE + 0);
  87. ACMERR_BUSY         = (ACMERR_BASE + 1);
  88. ACMERR_UNPREPARED   = (ACMERR_BASE + 2);
  89. ACMERR_CANCELED     = (ACMERR_BASE + 3);
  91. const
  92. MM_ACM_OPEN        = (MM_STREAM_OPEN);  // conversion callback messages
  93. MM_ACM_CLOSE       = (MM_STREAM_CLOSE);
  94. MM_ACM_DONE        = (MM_STREAM_DONE);
  96. function acmGetVersion : DWORD; stdcall;
  98. function acmMetrics(hao : HACMOBJ; uMetric : UINT; var pMetric) : MMRESULT; stdcall;
  100. const
  101. ACM_METRIC_COUNT_DRIVERS            = 1;
  102. ACM_METRIC_COUNT_CODECS             = 2;
  103. ACM_METRIC_COUNT_CONVERTERS         = 3;
  104. ACM_METRIC_COUNT_FILTERS            = 4;
  105. ACM_METRIC_COUNT_DISABLED           = 5;
  106. ACM_METRIC_COUNT_HARDWARE           = 6;
  107. ACM_METRIC_COUNT_LOCAL_DRIVERS      = 20;
  108. ACM_METRIC_COUNT_LOCAL_CODECS       = 21;
  109. ACM_METRIC_COUNT_LOCAL_CONVERTERS   = 22;
  110. ACM_METRIC_COUNT_LOCAL_FILTERS      = 23;
  111. ACM_METRIC_COUNT_LOCAL_DISABLED     = 24;
  112. ACM_METRIC_HARDWARE_WAVE_INPUT      = 30;
  113. ACM_METRIC_HARDWARE_WAVE_OUTPUT     = 31;
  114. ACM_METRIC_MAX_SIZE_FORMAT          = 50;
  115. ACM_METRIC_MAX_SIZE_FILTER          = 51;
  116. ACM_METRIC_DRIVER_SUPPORT           = 100;
  117. ACM_METRIC_DRIVER_PRIORITY          = 101;
  119. type
  120. ACMDRIVERENUMCB = function(hadid : HACMDRIVERID; dwInstance : DWORD; fdwSupport : DWORD) : BOOL; stdcall;
  122. function acmDriverEnum(fnCallback : ACMDRIVERENUMCB; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  124. const
  125. ACM_DRIVERENUMF_NOLOCAL     = $40000000;
  126. ACM_DRIVERENUMF_DISABLED    = $80000000;
  128. function acmDriverID(hao : HACMOBJ; var phadid : HACMDRIVERID; fdwDriverID : DWORD) : MMRESULT; stdcall;
  130. function acmDriverAddA(var phadid : HACMDRIVERID; hinstModule : THandle; lParam : LPARAM; dwPriority : DWORD; fdwAdd : DWORD) : MMRESULT; stdcall;
  132. function acmDriverAddW(var phadid : HACMDRIVERID; hinstModule : THandle; lParam : LPARAM; dwPriority : DWORD; fdwAdd : DWORD) : MMRESULT; stdcall;
  134. function acmDriverAdd(var phadid : HACMDRIVERID; hinstModule : THandle; lParam : LPARAM; dwPriority : DWORD; fdwAdd : DWORD) : MMRESULT; stdcall;
  136. const
  137. ACM_DRIVERADDF_FUNCTION     = $00000003;  // lParam is a procedure
  138. ACM_DRIVERADDF_NOTIFYHWND   = $00000004;  // lParam is notify hwnd
  139. ACM_DRIVERADDF_TYPEMASK     = $00000007;  // driver type mask
  140. ACM_DRIVERADDF_LOCAL        = $00000000;  // is local to current task
  141. ACM_DRIVERADDF_GLOBAL       = $00000008;  // is global
  143. type
  144. ACMDRIVERPROC = function(_0 : DWORD; _1 : HACMDRIVERID; _2 : UINT; _3 : LPARAM; _4 : LPARAM) : LRESULT; stdcall;
  145. LPACMDRIVERPROC = ^ACMDRIVERPROC;
  147. function acmDriverRemove(hadid : HACMDRIVERID; fdwRemove : DWORD) : MMRESULT; stdcall;
  149. function acmDriverOpen(var phad : HACMDRIVER; hadid : HACMDRIVERID; fdwOpen : DWORD) : MMRESULT; stdcall;
  151. function acmDriverClose(had : HACMDRIVER; fdwClose : DWORD) : MMRESULT; stdcall;
  153. function acmDriverMessage(had : HACMDRIVER; uMsg : UINT; lParam1 : LPARAM; lParam2 : LPARAM) : LRESULT; stdcall;
  155. const
  156. ACMDM_USER                  = (DRV_USER + $0000);
  157. ACMDM_RESERVED_LOW          = (DRV_USER + $2000);
  158. ACMDM_RESERVED_HIGH         = (DRV_USER + $2FFF);
  160. ACMDM_BASE                  = ACMDM_RESERVED_LOW;
  162. ACMDM_DRIVER_ABOUT          = (ACMDM_BASE + 11);
  164. function acmDriverPriority(hadid : HACMDRIVERID; dwPriority : DWORD; fdwPriority : DWORD) : MMRESULT; stdcall;
  166. const
  167. ACM_DRIVERPRIORITYF_ENABLE      = $00000001;
  168. ACM_DRIVERPRIORITYF_DISABLE     = $00000002;
  169. ACM_DRIVERPRIORITYF_ABLEMASK    = $00000003;
  170. ACM_DRIVERPRIORITYF_BEGIN       = $00010000;
  171. ACM_DRIVERPRIORITYF_END         = $00020000;
  172. ACM_DRIVERPRIORITYF_DEFERMASK   = $00030000;
  174. const
  175. ACMDRIVERDETAILS_SHORTNAME_CHARS    = 32;
  176. ACMDRIVERDETAILS_LONGNAME_CHARS     = 128;
  177. ACMDRIVERDETAILS_COPYRIGHT_CHARS    = 80;
  178. ACMDRIVERDETAILS_LICENSING_CHARS    = 128;
  179. ACMDRIVERDETAILS_FEATURES_CHARS     = 512;
  181. type
  182. PACMDRIVERDETAILSA = ^TACMDRIVERDETAILSA;
  183. TACMDRIVERDETAILSA = packed record
  184. cbStruct      : DWORD;              // number of valid bytes in structure
  186. fccType       : FOURCC;             // compressor type 'audc'
  187. fccComp       : FOURCC;             // sub-type (not used; reserved)
  189. wMid          : WORD;               // manufacturer id
  190. wPid          : WORD;               // product id
  192. vdwACM        : DWORD;              // version of the ACM *compiled* for
  193. vdwDriver     : DWORD;              // version of the driver
  195. fdwSupport    : DWORD;              // misc. support flags
  196. cFormatTags   : DWORD;              // total unique format tags supported
  197. cFilterTags   : DWORD;              // total unique filter tags supported
  199. hicon         : HICON;              // handle to custom icon
  201. szShortName   : array[0..ACMDRIVERDETAILS_SHORTNAME_CHARS-1] of char;
  202. szLongName    : array[0..ACMDRIVERDETAILS_LONGNAME_CHARS-1] of char;
  203. szCopyright   : array[0..ACMDRIVERDETAILS_COPYRIGHT_CHARS-1] of char;
  204. szLicensing   : array[0..ACMDRIVERDETAILS_LICENSING_CHARS-1] of char;
  205. szFeatures    : array[0..ACMDRIVERDETAILS_FEATURES_CHARS-1] of char;
  206. end;
  208. type
  209. PACMDRIVERDETAILSW = ^TACMDRIVERDETAILSW;
  210. TACMDRIVERDETAILSW = packed record
  211. cbStruct      : DWORD;              // number of valid bytes in structure
  213. fccType       : FOURCC;             // compressor type 'audc'
  214. fccComp       : FOURCC;             // sub-type (not used; reserved)
  216. wMid          : WORD;               // manufacturer id
  217. wPid          : WORD;               // product id
  219. vdwACM        : DWORD;              // version of the ACM *compiled* for
  220. vdwDriver     : DWORD;              // version of the driver
  222. fdwSupport    : DWORD;              // misc. support flags
  223. cFormatTags   : DWORD;              // total unique format tags supported
  224. cFilterTags   : DWORD;              // total unique filter tags supported
  226. hicon         : HICON;              // handle to custom icon
  228. szShortName   : array[0..ACMDRIVERDETAILS_SHORTNAME_CHARS-1] of wchar;
  229. szLongName    : array[0..ACMDRIVERDETAILS_LONGNAME_CHARS-1] of wchar;
  230. szCopyright   : array[0..ACMDRIVERDETAILS_COPYRIGHT_CHARS-1] of wchar;
  231. szLicensing   : array[0..ACMDRIVERDETAILS_LICENSING_CHARS-1] of wchar;
  232. szFeatures    : array[0..ACMDRIVERDETAILS_FEATURES_CHARS-1] of wchar;
  233. end;
  235. type
  236. TACMDRIVERDETAILS       = TACMDRIVERDETAILSA;
  237. PACMDRIVERDETAILS       = PACMDRIVERDETAILSA;
  239. const
  240. // ACMDRIVERDETAILS_FCCTYPE_AUDIOCODEC = mmioFOURCC('a', 'u', 'd', 'c');
  241. ACMDRIVERDETAILS_FCCCOMP_UNDEFINED  = 0;
  243. function ACMDRIVERDETAILS_FCCTYPE_AUDIOCODE : FOURCC;
  245. const
  246. ACMDRIVERDETAILS_SUPPORTF_CODEC     = $00000001;
  247. ACMDRIVERDETAILS_SUPPORTF_CONVERTER = $00000002;
  248. ACMDRIVERDETAILS_SUPPORTF_FILTER    = $00000004;
  249. ACMDRIVERDETAILS_SUPPORTF_HARDWARE  = $00000008;
  250. ACMDRIVERDETAILS_SUPPORTF_ASYNC     = $00000010;
  251. ACMDRIVERDETAILS_SUPPORTF_LOCAL     = $40000000;
  252. ACMDRIVERDETAILS_SUPPORTF_DISABLED  = $80000000;
  254. function acmDriverDetailsA(hadid : HACMDRIVERID; var padd : TACMDRIVERDETAILSA; fdwDetails : DWORD) : MMRESULT; stdcall;
  256. function acmDriverDetailsW(hadid : HACMDRIVERID; var padd : TACMDRIVERDETAILSW; fdwDetails : DWORD) : MMRESULT; stdcall;
  258. function acmDriverDetails(hadid : HACMDRIVERID; var padd : TACMDRIVERDETAILS; fdwDetails : DWORD) : MMRESULT; stdcall;
  260. const
  261. ACMFORMATTAGDETAILS_FORMATTAG_CHARS = 48;
  263. type
  264. PACMFORMATTAGDETAILSA = ^TACMFORMATTAGDETAILSA;
  265. TACMFORMATTAGDETAILSA = packed record
  266. cbStruct         : DWORD;
  267. dwFormatTagIndex : DWORD;
  268. dwFormatTag      : DWORD;
  269. cbFormatSize     : DWORD;
  270. fdwSupport       : DWORD;
  271. cStandardFormats : DWORD;
  272. szFormatTag      : array[0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS-1] of char;
  273. end;
  275. type
  276. PACMFORMATTAGDETAILSW = ^TACMFORMATTAGDETAILSW;
  277. TACMFORMATTAGDETAILSW = packed record
  278. cbStruct         : DWORD;
  279. dwFormatTagIndex : DWORD;
  280. dwFormatTag      : DWORD;
  281. cbFormatSize     : DWORD;
  282. fdwSupport       : DWORD;
  283. cStandardFormats : DWORD;
  284. szFormatTag      : array[0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS-1] of wchar;
  285. end;
  287. type
  288. TACMFORMATTAGDETAILS = TACMFORMATTAGDETAILSA;
  289. PACMFORMATTAGDETAILS = PACMFORMATTAGDETAILSA;
  291. function acmFormatTagDetailsA(had : HACMDRIVER; var paftd : TACMFORMATTAGDETAILSA; fdwDetails : DWORD) : MMRESULT; stdcall;
  293. function acmFormatTagDetailsW(had : HACMDRIVER; var paftd : TACMFORMATTAGDETAILSW; fdwDetails : DWORD) : MMRESULT; stdcall;
  295. function acmFormatTagDetails(had : HACMDRIVER; var paftd : TACMFORMATTAGDETAILS; fdwDetails : DWORD) : MMRESULT; stdcall;
  297. const
  298. ACM_FORMATTAGDETAILSF_INDEX         = $00000000;
  299. ACM_FORMATTAGDETAILSF_FORMATTAG     = $00000001;
  300. ACM_FORMATTAGDETAILSF_LARGESTSIZE   = $00000002;
  301. ACM_FORMATTAGDETAILSF_QUERYMASK     = $0000000F;
  303. type
  304. ACMFORMATTAGENUMCBA = function(hadid : HACMDRIVERID; const paftd : TACMFORMATTAGDETAILSA; dwInstance : DWORD; fdwSupport : DWORD) : BOOL; stdcall;
  306. function acmFormatTagEnumA(had : HACMDRIVER; var paftd : TACMFORMATTAGDETAILSA; fnCallback : ACMFORMATTAGENUMCBA; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  308. type
  309. ACMFORMATTAGENUMCBW = function(hadid : HACMDRIVERID; const paftd : TACMFORMATTAGDETAILSW; dwInstance : DWORD; fdwSupport : DWORD) : BOOL; stdcall;
  311. function acmFormatTagEnumW(had : HACMDRIVER; var paftd : TACMFORMATTAGDETAILSW; fnCallback : ACMFORMATTAGENUMCBW; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  313. type
  314. ACMFORMATTAGENUMCB = ACMFORMATTAGENUMCBA;
  316. function acmFormatTagEnum(had : HACMDRIVER; var paftd : TACMFORMATTAGDETAILS; fnCallback : ACMFORMATTAGENUMCB; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  318. const
  319. ACMFORMATDETAILS_FORMAT_CHARS   = 128;
  321. type
  322. PACMFORMATDETAILSA = ^TACMFORMATDETAILSA;
  323. TACMFORMATDETAILSA = packed record
  324. cbStruct      : DWORD;
  325. dwFormatIndex : DWORD;
  326. dwFormatTag   : DWORD;
  327. fdwSupport    : DWORD;
  328. pwfx          : PWAVEFORMATEX;
  329. cbwfx         : DWORD;
  330. szFormat      : array[0..ACMFORMATDETAILS_FORMAT_CHARS-1] of char;
  331. end;
  333. type
  334. PACMFORMATDETAILSW = ^TACMFORMATDETAILSW;
  335. TACMFORMATDETAILSW = packed record
  336. cbStruct      : DWORD;
  337. dwFormatIndex : DWORD;
  338. dwFormatTag   : DWORD;
  339. fdwSupport    : DWORD;
  340. pwfx          : PWAVEFORMATEX;
  341. cbwfx         : DWORD;
  342. szFormat      : array[0..ACMFORMATDETAILS_FORMAT_CHARS-1] of wchar;
  343. end;
  345. type
  346. PACMFORMATDETAILS = PACMFORMATDETAILSA;
  347. TACMFORMATDETAILS = TACMFORMATDETAILSA;
  349. function acmFormatDetailsA(had : HACMDRIVER; var pafd : TACMFORMATDETAILSA; fdwDetails : DWORD) : MMRESULT; stdcall;
  351. function acmFormatDetailsW(had : HACMDRIVER; var pafd : TACMFORMATDETAILSW; fdwDetails : DWORD) : MMRESULT; stdcall;
  353. function acmFormatDetails(had : HACMDRIVER; var pafd : TACMFORMATDETAILS; fdwDetails : DWORD) : MMRESULT; stdcall;
  355. const
  356. ACM_FORMATDETAILSF_INDEX        = $00000000;
  357. ACM_FORMATDETAILSF_FORMAT       = $00000001;
  358. ACM_FORMATDETAILSF_QUERYMASK    = $0000000F;
  360. type
  361. ACMFORMATENUMCBA = function(hadid : HACMDRIVERID; const pafd : TACMFORMATDETAILSA; dwInstance : DWORD; fdwSupport : DWORD) : BOOL; stdcall;
  363. function acmFormatEnumA(had : HACMDRIVER; var pafd : TACMFORMATDETAILSA; fnCallback : ACMFORMATENUMCBA; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  365. type
  366. ACMFORMATENUMCBW = function(hadid : HACMDRIVERID; const pafd : TACMFORMATDETAILSW; dwInstance : DWORD; fdwSupport : DWORD) : BOOL; stdcall;
  368. function acmFormatEnumW(had : HACMDRIVER; var pafd : TACMFORMATDETAILSW; fnCallback : ACMFORMATENUMCBW; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  370. type
  371. ACMFORMATENUMCB = ACMFORMATENUMCBA;
  373. function acmFormatEnum(had : HACMDRIVER; var pafd : TACMFORMATDETAILS; fnCallback : ACMFORMATENUMCB; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  375. const
  376. ACM_FORMATENUMF_WFORMATTAG       = $00010000;
  377. ACM_FORMATENUMF_NCHANNELS        = $00020000;
  378. ACM_FORMATENUMF_NSAMPLESPERSEC   = $00040000;
  379. ACM_FORMATENUMF_WBITSPERSAMPLE   = $00080000;
  380. ACM_FORMATENUMF_CONVERT          = $00100000;
  381. ACM_FORMATENUMF_SUGGEST          = $00200000;
  382. ACM_FORMATENUMF_HARDWARE         = $00400000;
  383. ACM_FORMATENUMF_INPUT            = $00800000;
  384. ACM_FORMATENUMF_OUTPUT           = $01000000;
  386. function acmFormatSuggest(had : HACMDRIVER; const pwfxSrc : TWAVEFORMATEX; var pwfxDst : TWAVEFORMATEX; cbwfxDst : DWORD; fdwSuggest : DWORD) : MMRESULT; stdcall;
  388. const
  389. ACM_FORMATSUGGESTF_WFORMATTAG       = $00010000;
  390. ACM_FORMATSUGGESTF_NCHANNELS        = $00020000;
  391. ACM_FORMATSUGGESTF_NSAMPLESPERSEC   = $00040000;
  392. ACM_FORMATSUGGESTF_WBITSPERSAMPLE   = $00080000;
  394. ACM_FORMATSUGGESTF_TYPEMASK         = $00FF0000;
  396. const
  397. ACMHELPMSGSTRINGA       = 'acmchoose_help';
  398. ACMHELPMSGSTRINGW       = 'acmchoose_help';
  399. ACMHELPMSGCONTEXTMENUA  = 'acmchoose_contextmenu';
  400. ACMHELPMSGCONTEXTMENUW  = 'acmchoose_contextmenu';
  401. ACMHELPMSGCONTEXTHELPA  = 'acmchoose_contexthelp';
  402. ACMHELPMSGCONTEXTHELPW  = 'acmchoose_contexthelp';
  404. const
  405. ACMHELPMSGSTRING        = ACMHELPMSGSTRINGA;
  406. ACMHELPMSGCONTEXTMENU   = ACMHELPMSGCONTEXTMENUA;
  407. ACMHELPMSGCONTEXTHELP   = ACMHELPMSGCONTEXTHELPA;
  409. const
  410. MM_ACM_FORMATCHOOSE             = ($8000);
  412. FORMATCHOOSE_MESSAGE            = 0;
  413. FORMATCHOOSE_FORMATTAG_VERIFY   = (FORMATCHOOSE_MESSAGE+0);
  414. FORMATCHOOSE_FORMAT_VERIFY      = (FORMATCHOOSE_MESSAGE+1);
  415. FORMATCHOOSE_CUSTOM_VERIFY      = (FORMATCHOOSE_MESSAGE+2);
  417. type
  418. ACMFORMATCHOOSEHOOKPROCA = function(hwnd : HWND; uMsg : UINT; wParam : WPARAM; lParam : LPARAM) : UINT; stdcall;
  420. type
  421. ACMFORMATCHOOSEHOOKPROCW = function(hwnd : HWND; uMsg : UINT; wParam : WPARAM; lParam : LPARAM) : UINT; stdcall;
  423. type
  424. ACMFORMATCHOOSEHOOKPROC = ACMFORMATCHOOSEHOOKPROCA;
  426. type
  427. PACMFORMATCHOOSEA = ^TACMFORMATCHOOSEA;
  428. TACMFORMATCHOOSEA = packed record
  429. cbStruct        : DWORD           ;            // sizeof(ACMFORMATCHOOSE)
  430. fdwStyle        : DWORD           ;            // chooser style flags
  432. hwndOwner       : HWND            ;            // caller's window handle
  434. pwfx            : PWAVEFORMATEX   ;            // ptr to wfx buf to receive choice
  435. cbwfx           : DWORD           ;            // size of mem buf for pwfx
  436. pszTitle        : LPCSTR          ;            // dialog box title bar
  438. szFormatTag     : array[0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS-1] of char;
  439. szFormat        : array[0..ACMFORMATDETAILS_FORMAT_CHARS-1] of char;
  441. pszName         : LPSTR           ;            // custom name selection
  442. cchName         : DWORD           ;            // size in chars of mem buf for pszName
  444. fdwEnum         : DWORD           ;            // format enumeration restrictions
  445. pwfxEnum        : PWAVEFORMATEX   ;            // format describing restrictions
  447. hInstance       : THandle         ;            // app instance containing dlg template
  448. pszTemplateName : LPCSTR          ;            // custom template name
  449. lCustData       : LPARAM          ;            // data passed to hook fn.
  450. pfnHook         : ACMFORMATCHOOSEHOOKPROCA ;   // ptr to hook function
  451. end;
  453. type
  454. PACMFORMATCHOOSEW = ^TACMFORMATCHOOSEW;
  455. TACMFORMATCHOOSEW = packed record
  456. cbStruct        : DWORD           ;            // sizeof(ACMFORMATCHOOSE)
  457. fdwStyle        : DWORD           ;            // chooser style flags
  459. hwndOwner       : HWND            ;            // caller's window handle
  461. pwfx            : PWAVEFORMATEX   ;            // ptr to wfx buf to receive choice
  462. cbwfx           : DWORD           ;            // size of mem buf for pwfx
  463. pszTitle        : LPCWSTR         ;            // dialog box title bar
  465. szFormatTag     : array[0..ACMFORMATTAGDETAILS_FORMATTAG_CHARS-1] of wchar;
  466. szFormat        : array[0..ACMFORMATDETAILS_FORMAT_CHARS-1] of wchar;
  468. pszName         : LPWSTR          ;            // custom name selection
  469. cchName         : DWORD           ;            // size in chars of mem buf for pszName
  471. fdwEnum         : DWORD           ;            // format enumeration restrictions
  472. pwfxEnum        : PWAVEFORMATEX   ;            // format describing restrictions
  474. hInstance       : THandle         ;            // app instance containing dlg template
  475. pszTemplateName : LPCWSTR         ;            // custom template name
  476. lCustData       : LPARAM          ;            // data passed to hook fn.
  477. pfnHook         : ACMFORMATCHOOSEHOOKPROCW ;   // ptr to hook function
  478. end;
  480. type
  481. TACMFORMATCHOOSE    = TACMFORMATCHOOSEA;
  482. PACMFORMATCHOOSE    = PACMFORMATCHOOSEA;
  484. const
  485. ACMFORMATCHOOSE_STYLEF_SHOWHELP              = $00000004;
  486. ACMFORMATCHOOSE_STYLEF_ENABLEHOOK            = $00000008;
  487. ACMFORMATCHOOSE_STYLEF_ENABLETEMPLATE        = $00000010;
  488. ACMFORMATCHOOSE_STYLEF_ENABLETEMPLATEHANDLE  = $00000020;
  489. ACMFORMATCHOOSE_STYLEF_INITTOWFXSTRUCT       = $00000040;
  490. ACMFORMATCHOOSE_STYLEF_CONTEXTHELP           = $00000080;
  492. function acmFormatChooseA(var pafmtc : TACMFORMATCHOOSEA) : MMRESULT; stdcall;
  494. function acmFormatChooseW(var pafmtc : TACMFORMATCHOOSEW) : MMRESULT; stdcall;
  496. function acmFormatChoose(var pafmtc : TACMFORMATCHOOSE) : MMRESULT; stdcall;
  498. const
  499. ACMFILTERTAGDETAILS_FILTERTAG_CHARS = 48;
  501. type
  502. PACMFILTERTAGDETAILSA = ^TACMFILTERTAGDETAILSA;
  503. TACMFILTERTAGDETAILSA = packed record
  504. cbStruct         : DWORD           ;
  505. dwFilterTagIndex : DWORD           ;
  506. dwFilterTag      : DWORD           ;
  507. cbFilterSize     : DWORD           ;
  508. fdwSupport       : DWORD           ;
  509. cStandardFilters : DWORD           ;
  510. szFilterTag      : array[0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS-1] of char;
  511. end;
  513. type
  514. PACMFILTERTAGDETAILSW = ^TACMFILTERTAGDETAILSW;
  515. TACMFILTERTAGDETAILSW = packed record
  516. cbStruct         : DWORD           ;
  517. dwFilterTagIndex : DWORD           ;
  518. dwFilterTag      : DWORD           ;
  519. cbFilterSize     : DWORD           ;
  520. fdwSupport       : DWORD           ;
  521. cStandardFilters : DWORD           ;
  522. szFilterTag      : array[0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS-1] of wchar;
  523. end;
  525. type
  526. PACMFILTERTAGDETAILS = PACMFILTERTAGDETAILSA;
  527. TACMFILTERTAGDETAILS = TACMFILTERTAGDETAILSA;
  529. function acmFilterTagDetailsA(had : HACMDRIVER; var paftd : TACMFILTERTAGDETAILSA; fdwDetails : DWORD) : MMRESULT; stdcall;
  531. function acmFilterTagDetailsW(had : HACMDRIVER; var paftd : TACMFILTERTAGDETAILSW; fdwDetails : DWORD) : MMRESULT; stdcall;
  533. function acmFilterTagDetails(had : HACMDRIVER; var paftd : TACMFILTERTAGDETAILS; fdwDetails : DWORD) : MMRESULT; stdcall;
  535. const
  536. ACM_FILTERTAGDETAILSF_INDEX         = $00000000;
  537. ACM_FILTERTAGDETAILSF_FILTERTAG     = $00000001;
  538. ACM_FILTERTAGDETAILSF_LARGESTSIZE   = $00000002;
  539. ACM_FILTERTAGDETAILSF_QUERYMASK     = $0000000F;
  541. type
  542. ACMFILTERTAGENUMCBA = function(hadid : HACMDRIVERID; const paftd : TACMFILTERTAGDETAILSA; dwInstance : DWORD; fdwSupport : DWORD) : BOOL; stdcall;
  544. function acmFilterTagEnumA(had : HACMDRIVER; var paftd : TACMFILTERTAGDETAILSA; fnCallback : ACMFILTERTAGENUMCBA; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  546. type
  547. ACMFILTERTAGENUMCBW = function(hadid : HACMDRIVERID; const paftd : TACMFILTERTAGDETAILSW; dwInstance : DWORD; fdwSupport : DWORD) : BOOL; stdcall;
  549. function acmFilterTagEnumW(had : HACMDRIVER; var paftd : TACMFILTERTAGDETAILSW; fnCallback : ACMFILTERTAGENUMCBW; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  551. type
  552. ACMFILTERTAGENUMCB = ACMFILTERTAGENUMCBA;
  554. function acmFilterTagEnum(had : HACMDRIVER; var paftd : TACMFILTERTAGDETAILS; fnCallback : ACMFILTERTAGENUMCB; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  556. const
  557. ACMFILTERDETAILS_FILTER_CHARS   = 128;
  559. type
  560. PACMFILTERDETAILSA = ^TACMFILTERDETAILSA;
  561. TACMFILTERDETAILSA = packed record
  562. cbStruct      : DWORD           ;
  563. dwFilterIndex : DWORD           ;
  564. dwFilterTag   : DWORD           ;
  565. fdwSupport    : DWORD           ;
  566. pwfltr        : PWAVEFILTER     ;
  567. cbwfltr       : DWORD           ;
  568. szFilter      : array[0..ACMFILTERDETAILS_FILTER_CHARS-1] of char;
  569. end;
  571. type
  572. PACMFILTERDETAILSW = ^TACMFILTERDETAILSW;
  573. TACMFILTERDETAILSW = packed record
  574. cbStruct      : DWORD           ;
  575. dwFilterIndex : DWORD           ;
  576. dwFilterTag   : DWORD           ;
  577. fdwSupport    : DWORD           ;
  578. pwfltr        : PWAVEFILTER     ;
  579. cbwfltr       : DWORD           ;
  580. szFilter      : array[0..ACMFILTERDETAILS_FILTER_CHARS-1] of wchar;
  581. end;
  583. type
  584. PACMFILTERDETAILS = PACMFILTERDETAILSA;
  585. TACMFILTERDETAILS = TACMFILTERDETAILSA;
  587. function acmFilterDetailsA(had : HACMDRIVER; var pafd : TACMFILTERDETAILSA; fdwDetails : DWORD) : MMRESULT; stdcall;
  589. function acmFilterDetailsW(had : HACMDRIVER; var pafd : TACMFILTERDETAILSW; fdwDetails : DWORD) : MMRESULT; stdcall;
  591. function acmFilterDetails(had : HACMDRIVER; var pafd : TACMFILTERDETAILS; fdwDetails : DWORD) : MMRESULT; stdcall;
  593. const
  594. ACM_FILTERDETAILSF_INDEX        = $00000000;
  595. ACM_FILTERDETAILSF_FILTER       = $00000001;
  596. ACM_FILTERDETAILSF_QUERYMASK    = $0000000F;
  598. type
  599. ACMFILTERENUMCBA = function(hadid : HACMDRIVERID; const pafd : TACMFILTERDETAILSA; dwInstance : DWORD; fdwSupport : DWORD) : BOOL; stdcall;
  601. function acmFilterEnumA(had : HACMDRIVER; var pafd : TACMFILTERDETAILSA; fnCallback : ACMFILTERENUMCBA; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  603. type
  604. ACMFILTERENUMCBW = function(hadid : HACMDRIVERID; const pafd : TACMFILTERDETAILSW; dwInstance : DWORD; fdwSupport : DWORD) : BOOL; stdcall;
  606. function acmFilterEnumW(had : HACMDRIVER; var pafd : TACMFILTERDETAILSW; fnCallback : ACMFILTERENUMCBW; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  608. type
  609. ACMFILTERENUMCB = ACMFILTERENUMCBA;
  611. function acmFilterEnum(had : HACMDRIVER; var pafd : TACMFILTERDETAILS; fnCallback : ACMFILTERENUMCB; dwInstance : DWORD; fdwEnum : DWORD) : MMRESULT; stdcall;
  613. const
  614. ACM_FILTERENUMF_DWFILTERTAG         = $00010000;
  616. const
  617. MM_ACM_FILTERCHOOSE             = ($8000);
  619. FILTERCHOOSE_MESSAGE            = 0;
  620. FILTERCHOOSE_FILTERTAG_VERIFY   = (FILTERCHOOSE_MESSAGE+0);
  621. FILTERCHOOSE_FILTER_VERIFY      = (FILTERCHOOSE_MESSAGE+1);
  622. FILTERCHOOSE_CUSTOM_VERIFY      = (FILTERCHOOSE_MESSAGE+2);
  624. type
  625. ACMFILTERCHOOSEHOOKPROCA = function(hwnd : HWND; uMsg : UINT; wParam : WPARAM; lParam : LPARAM) : UINT; stdcall;
  627. type
  628. ACMFILTERCHOOSEHOOKPROCW = function(hwnd : HWND; uMsg : UINT; wParam : WPARAM; lParam : LPARAM) : UINT; stdcall;
  630. type
  631. ACMFILTERCHOOSEHOOKPROC = ACMFILTERCHOOSEHOOKPROCA;
  633. type
  634. PACMFILTERCHOOSEA = ^TACMFILTERCHOOSEA;
  635. TACMFILTERCHOOSEA = packed record
  636. cbStruct        : DWORD           ;            // sizeof(ACMFILTERCHOOSE)
  637. fdwStyle        : DWORD           ;            // chooser style flags
  639. hwndOwner       : HWND            ;            // caller's window handle
  641. pwfltr          : PWAVEFILTER     ;            // ptr to wfltr buf to receive choice
  642. cbwfltr         : DWORD           ;            // size of mem buf for pwfltr
  644. pszTitle        : LPCSTR          ;
  646. szFilterTag     : array[0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS-1] of char;
  647. szFilter        : array[0..ACMFILTERDETAILS_FILTER_CHARS-1] of char;
  648. pszName         : LPSTR           ;            // custom name selection
  649. cchName         : DWORD           ;            // size in chars of mem buf for pszName
  651. fdwEnum         : DWORD           ;            // filter enumeration restrictions
  652. pwfltrEnum      : PWAVEFILTER     ;            // filter describing restrictions
  654. hInstance       : THandle         ;            // app instance containing dlg template
  655. pszTemplateName : LPCSTR          ;            // custom template name
  656. lCustData       : LPARAM          ;            // data passed to hook fn.
  657. pfnHook         : ACMFILTERCHOOSEHOOKPROCA ;   // ptr to hook function
  658. end;
  660. type
  661. PACMFILTERCHOOSEW = ^TACMFILTERCHOOSEW;
  662. TACMFILTERCHOOSEW = packed record
  663. cbStruct        : DWORD           ;            // sizeof(ACMFILTERCHOOSE)
  664. fdwStyle        : DWORD           ;            // chooser style flags
  666. hwndOwner       : HWND            ;            // caller's window handle
  668. pwfltr          : PWAVEFILTER     ;            // ptr to wfltr buf to receive choice
  669. cbwfltr         : DWORD           ;            // size of mem buf for pwfltr
  671. pszTitle        : LPCWSTR         ;
  673. szFilterTag     : array[0..ACMFILTERTAGDETAILS_FILTERTAG_CHARS-1] of wchar;
  674. szFilter        : array[0..ACMFILTERDETAILS_FILTER_CHARS-1] of wchar;
  675. pszName         : LPWSTR          ;            // custom name selection
  676. cchName         : DWORD           ;            // size in chars of mem buf for pszName
  678. fdwEnum         : DWORD           ;            // filter enumeration restrictions
  679. pwfltrEnum      : PWAVEFILTER     ;            // filter describing restrictions
  681. hInstance       : THandle         ;            // app instance containing dlg template
  682. pszTemplateName : LPCWSTR         ;            // custom template name
  683. lCustData       : LPARAM          ;            // data passed to hook fn.
  684. pfnHook         : ACMFILTERCHOOSEHOOKPROCW ;   // ptr to hook function
  685. end;
  687. type
  688. PACMFILTERCHOOSE = PACMFILTERCHOOSEA;
  689. TACMFILTERCHOOSE = TACMFILTERCHOOSEA;
  691. const
  692. ACMFILTERCHOOSE_STYLEF_SHOWHELP              = $00000004;
  693. ACMFILTERCHOOSE_STYLEF_ENABLEHOOK            = $00000008;
  694. ACMFILTERCHOOSE_STYLEF_ENABLETEMPLATE        = $00000010;
  695. ACMFILTERCHOOSE_STYLEF_ENABLETEMPLATEHANDLE  = $00000020;
  696. ACMFILTERCHOOSE_STYLEF_INITTOFILTERSTRUCT    = $00000040;
  697. ACMFILTERCHOOSE_STYLEF_CONTEXTHELP           = $00000080;
  699. function acmFilterChooseA(var pafltrc : TACMFILTERCHOOSEA) : MMRESULT; stdcall;
  701. function acmFilterChooseW(var pafltrc : TACMFILTERCHOOSEW) : MMRESULT; stdcall;
  703. function acmFilterChoose(var pafltrc : TACMFILTERCHOOSE) : MMRESULT; stdcall;
  705. type
  706. PACMSTREAMHEADER = ^TACMSTREAMHEADER;
  707. TACMSTREAMHEADER = packed record
  708. cbStruct         : DWORD           ;              // sizeof(ACMSTREAMHEADER)
  709. fdwStatus        : DWORD           ;              // ACMSTREAMHEADER_STATUSF_*
  710. dwUser           : DWORD           ;              // user instance data for hdr
  711. pbSrc            : PBYTE           ;
  712. cbSrcLength      : DWORD           ;
  713. cbSrcLengthUsed  : DWORD           ;
  714. dwSrcUser        : DWORD           ;              // user instance data for src
  715. pbDst            : PBYTE           ;
  716. cbDstLength      : DWORD           ;
  717. cbDstLengthUsed  : DWORD           ;
  718. dwDstUser        : DWORD           ;              // user instance data for dst
  719. dwReservedDriver : array [0..9] of DWORD;         // driver reserved work space
  720. end;
  722. const
  723. ACMSTREAMHEADER_STATUSF_DONE     = $00010000;
  724. ACMSTREAMHEADER_STATUSF_PREPARED = $00020000;
  725. ACMSTREAMHEADER_STATUSF_INQUEUE  = $00100000;
  727. function acmStreamOpen(phas : PHACMSTREAM; had : HACMDRIVER; const pwfxSrc : TWAVEFORMATEX; const pwfxdst : TWAVEFORMATEX; pwfltr : PWAVEFILTER; dwCallback : DWORD; dwInstance : DWORD; fdwOpen : DWORD) : MMRESULT; stdcall;
  729. const
  730. ACM_STREAMOPENF_QUERY           = $00000001;
  731. ACM_STREAMOPENF_ASYNC           = $00000002;
  732. ACM_STREAMOPENF_NONREALTIME     = $00000004;
  734. function acmStreamClose(has : HACMSTREAM; fdwClose : DWORD) : MMRESULT; stdcall;
  736. function acmStreamSize(has : HACMSTREAM; cbInput : DWORD; var pdwOutputByte : DWORD; fdwSize : DWORD) : MMRESULT; stdcall;
  738. const
  739. ACM_STREAMSIZEF_SOURCE          = $00000000;
  740. ACM_STREAMSIZEF_DESTINATION     = $00000001;
  741. ACM_STREAMSIZEF_QUERYMASK       = $0000000F;
  743. function acmStreamReset(has : HACMSTREAM; fdwReset : DWORD) : MMRESULT; stdcall;
  745. function acmStreamMessage(has : HACMSTREAM; uMsg : UINT; lParam1 : LPARAM; lParam2 : LPARAM) : MMRESULT; stdcall;
  747. function acmStreamConvert(has : HACMSTREAM; var pash : TACMSTREAMHEADER; fdwConvert : DWORD) : MMRESULT; stdcall;
  749. const
  750. ACM_STREAMCONVERTF_BLOCKALIGN   = $00000004;
  751. ACM_STREAMCONVERTF_START        = $00000010;
  752. ACM_STREAMCONVERTF_END          = $00000020;
  754. function acmStreamPrepareHeader(has : HACMSTREAM; var pash : TACMSTREAMHEADER; fdwPrepare : DWORD) : MMRESULT; stdcall;
  756. function acmStreamUnprepareHeader(has : HACMSTREAM; var pash : TACMSTREAMHEADER; fdwUnprepare : DWORD) : MMRESULT; stdcall;
  758. implementation
  760. const
  761. msacm32 = 'msacm32.dll';
  763. // acm
  765. function acmGetVersion; external msacm32 name 'acmGetVersion';
  766. function acmMetrics; external msacm32 name 'acmMetrics';
  768. // acmDriver
  770. function acmDriverEnum; external msacm32 name 'acmDriverEnum';
  771. function acmDriverID; external msacm32 name 'acmDriverID';
  773. function acmDriverAddA; external msacm32 name 'acmDriverAddA';
  774. function acmDriverAddW; external msacm32 name 'acmDriverAddW';
  775. function acmDriverAdd; external msacm32 name 'acmDriverAddA';
  777. function acmDriverRemove; external msacm32 name 'acmDriverRemove';
  778. function acmDriverOpen; external msacm32 name 'acmDriverOpen';
  779. function acmDriverClose; external msacm32 name 'acmDriverClose';
  780. function acmDriverMessage; external msacm32 name 'acmDriverMessage';
  781. function acmDriverPriority; external msacm32 name 'acmDriverPriority';
  783. function ACMDRIVERDETAILS_FCCTYPE_AUDIOCODE : FOURCC;
  784. begin
  785. Result := MMSystem.mmioStringToFOURCC('audc', 0);
  786. end;
  788. function acmDriverDetailsA; external msacm32 name 'acmDriverDetailsA';
  789. function acmDriverDetailsW; external msacm32 name 'acmDriverDetailsW';
  790. function acmDriverDetails; external msacm32 name 'acmDriverDetailsA';
  792. // acmFormat
  794. function acmFormatTagDetailsA; external msacm32 name 'acmFormatTagDetailsA';
  795. function acmFormatTagDetailsW; external msacm32 name 'acmFormatTagDetailsW';
  796. function acmFormatTagDetails; external msacm32 name 'acmFormatTagDetailsA';
  798. function acmFormatTagEnumA; external msacm32 name 'acmFormatTagEnumA';
  799. function acmFormatTagEnumW; external msacm32 name 'acmFormatTagEnumW';
  800. function acmFormatTagEnum; external msacm32 name 'acmFormatTagEnumA';
  802. function acmFormatDetailsA; external msacm32 name 'acmFormatDetailsA';
  803. function acmFormatDetailsW; external msacm32 name 'acmFormatDetailsW';
  804. function acmFormatDetails; external msacm32 name 'acmFormatDetailsA';
  806. function acmFormatEnumA; external msacm32 name 'acmFormatEnumA';
  807. function acmFormatEnumW; external msacm32 name 'acmFormatEnumW';
  808. function acmFormatEnum; external msacm32 name 'acmFormatEnumA';
  810. function acmFormatSuggest; external msacm32 name 'acmFormatSuggest';
  812. function acmFormatChooseA; external msacm32 name 'acmFormatChooseA';
  813. function acmFormatChooseW; external msacm32 name 'acmFormatChooseW';
  814. function acmFormatChoose; external msacm32 name 'acmFormatChooseA';
  816. // acmFilter
  818. function acmFilterTagDetailsA; external msacm32 name 'acmFilterTagDetailsA';
  819. function acmFilterTagDetailsW; external msacm32 name 'acmFilterTagDetailsW';
  820. function acmFilterTagDetails; external msacm32 name 'acmFilterTagDetailsA';
  822. function acmFilterTagEnumA; external msacm32 name 'acmFilterTagEnumA';
  823. function acmFilterTagEnumW; external msacm32 name 'acmFilterTagEnumW';
  824. function acmFilterTagEnum; external msacm32 name 'acmFilterTagEnumA';
  826. function acmFilterDetailsA; external msacm32 name 'acmFilterDetailsA';
  827. function acmFilterDetailsW; external msacm32 name 'acmFilterDetailsW';
  828. function acmFilterDetails; external msacm32 name 'acmFilterDetailsA';
  830. function acmFilterEnumA; external msacm32 name 'acmFilterEnumA';
  831. function acmFilterEnumW; external msacm32 name 'acmFilterEnumW';
  832. function acmFilterEnum; external msacm32 name 'acmFilterEnumA';
  834. function acmFilterChooseA; external msacm32 name 'acmFilterChooseA';
  835. function acmFilterChooseW; external msacm32 name 'acmFilterChooseW';
  836. function acmFilterChoose; external msacm32 name 'acmFilterChooseA';
  838. // acmStream
  840. function acmStreamOpen; external msacm32 name 'acmStreamOpen';
  841. function acmStreamClose; external msacm32 name 'acmStreamClose';
  842. function acmStreamSize; external msacm32 name 'acmStreamSize';
  843. function acmStreamReset; external msacm32 name 'acmStreamReset';
  844. function acmStreamMessage; external msacm32 name 'acmStreamMessage';
  845. function acmStreamConvert; external msacm32 name 'acmStreamConvert';
  846. function acmStreamPrepareHeader; external msacm32 name 'acmStreamPrepareHeader';
  847. function acmStreamUnprepareHeader; external msacm32 name 'acmStreamUnprepareHeader';
  849. end.