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

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

Delphi控件源码

开发平台：

Delphi

vfwold.pas：源码内容
  1. unit vfw;
  3. interface
  5. uses
  6.   Windows, MMSystem, Messages;
  12. const
  13. // ------------------------------------------------------------------
  14. //  Window Messages  WM_CAP... which can be sent to an AVICAP window
  15. // ------------------------------------------------------------------
  17. // Defines start of the message range
  18. WM_CAP_START                    = WM_USER;
  20. WM_CAP_GET_CAPSTREAMPTR         = (WM_CAP_START+  1);
  21. WM_CAP_SET_CALLBACK_ERROR       = (WM_CAP_START+  2);
  22. WM_CAP_SET_CALLBACK_STATUS      = (WM_CAP_START+  3);
  23. WM_CAP_SET_CALLBACK_YIELD       = (WM_CAP_START+  4);
  24. WM_CAP_SET_CALLBACK_FRAME       = (WM_CAP_START+  5);
  25. WM_CAP_SET_CALLBACK_VIDEOSTREAM = (WM_CAP_START+  6);
  26. WM_CAP_SET_CALLBACK_WAVESTREAM  = (WM_CAP_START+  7);
  27. WM_CAP_GET_USER_DATA            = (WM_CAP_START+  8);
  28. WM_CAP_SET_USER_DATA            = (WM_CAP_START+  9);
  30. WM_CAP_DRIVER_CONNECT           = (WM_CAP_START+  10);
  31. WM_CAP_DRIVER_DISCONNECT        = (WM_CAP_START+  11);
  32. WM_CAP_DRIVER_GET_NAME          = (WM_CAP_START+  12);
  33. WM_CAP_DRIVER_GET_VERSION       = (WM_CAP_START+  13);
  34. WM_CAP_DRIVER_GET_CAPS          = (WM_CAP_START+  14);
  36. WM_CAP_FILE_SET_CAPTURE_FILE    = (WM_CAP_START+  20);
  37. WM_CAP_FILE_GET_CAPTURE_FILE    = (WM_CAP_START+  21);
  38. WM_CAP_FILE_ALLOCATE            = (WM_CAP_START+  22);
  39. WM_CAP_FILE_SAVEAS              = (WM_CAP_START+  23);
  40. WM_CAP_FILE_SET_INFOCHUNK       = (WM_CAP_START+  24);
  41. WM_CAP_FILE_SAVEDIB             = (WM_CAP_START+  25);
  43. WM_CAP_EDIT_COPY                = (WM_CAP_START+  30);
  45. WM_CAP_SET_AUDIOFORMAT          = (WM_CAP_START+  35);
  46. WM_CAP_GET_AUDIOFORMAT          = (WM_CAP_START+  36);
  48. WM_CAP_DLG_VIDEOFORMAT          = (WM_CAP_START+  41);
  49. WM_CAP_DLG_VIDEOSOURCE          = (WM_CAP_START+  42);
  50. WM_CAP_DLG_VIDEODISPLAY         = (WM_CAP_START+  43);
  51. WM_CAP_GET_VIDEOFORMAT          = (WM_CAP_START+  44);
  52. WM_CAP_SET_VIDEOFORMAT          = (WM_CAP_START+  45);
  53. WM_CAP_DLG_VIDEOCOMPRESSION     = (WM_CAP_START+  46);
  55. WM_CAP_SET_PREVIEW              = (WM_CAP_START+  50);
  56. WM_CAP_SET_OVERLAY              = (WM_CAP_START+  51);
  57. WM_CAP_SET_PREVIEWRATE          = (WM_CAP_START+  52);
  58. WM_CAP_SET_SCALE                = (WM_CAP_START+  53);
  59. WM_CAP_GET_STATUS               = (WM_CAP_START+  54);
  60. WM_CAP_SET_SCROLL               = (WM_CAP_START+  55);
  62. WM_CAP_GRAB_FRAME               = (WM_CAP_START+  60);
  63. WM_CAP_GRAB_FRAME_NOSTOP        = (WM_CAP_START+  61);
  65. WM_CAP_SEQUENCE                 = (WM_CAP_START+  62);
  66. WM_CAP_SEQUENCE_NOFILE          = (WM_CAP_START+  63);
  67. WM_CAP_SET_SEQUENCE_SETUP       = (WM_CAP_START+  64);
  68. WM_CAP_GET_SEQUENCE_SETUP       = (WM_CAP_START+  65);
  69. WM_CAP_SET_MCI_DEVICE           = (WM_CAP_START+  66);
  70. WM_CAP_GET_MCI_DEVICE           = (WM_CAP_START+  67);
  71. WM_CAP_STOP                     = (WM_CAP_START+  68);
  72. WM_CAP_ABORT                    = (WM_CAP_START+  69);
  74. WM_CAP_SINGLE_FRAME_OPEN        = (WM_CAP_START+  70);
  75. WM_CAP_SINGLE_FRAME_CLOSE       = (WM_CAP_START+  71);
  76. WM_CAP_SINGLE_FRAME             = (WM_CAP_START+  72);
  78. WM_CAP_PAL_OPEN                 = (WM_CAP_START+  80);
  79. WM_CAP_PAL_SAVE                 = (WM_CAP_START+  81);
  80. WM_CAP_PAL_PASTE                = (WM_CAP_START+  82);
  81. WM_CAP_PAL_AUTOCREATE           = (WM_CAP_START+  83);
  82. WM_CAP_PAL_MANUALCREATE         = (WM_CAP_START+  84);
  84. // Following added post VFW 1.1
  85. WM_CAP_SET_CALLBACK_CAPCONTROL  = (WM_CAP_START+  85);
  87. // Defines end of the message range
  88. WM_CAP_END                      = WM_CAP_SET_CALLBACK_CAPCONTROL;
  90. // dwFlags field of TVIDEOHDR
  91. VHDR_DONE =      $00000001;  // Done bit */
  92. VHDR_PREPARED=   $00000002;  // Set if this header has been prepared */
  93. VHDR_INQUEUE =   $00000004;  // Reserved for driver */
  94. VHDR_KEYFRAME=   $00000008;  // Key Frame */
  96. // ------------------------------------------------------------------
  97. //  Structures
  98. // ------------------------------------------------------------------
  101. type
  102.  PCapDriverCaps = ^TCapDriverCaps;
  103.  TCapDriverCaps = record
  104.     wDeviceIndex            :WORD;           // Driver index in system.ini
  105.     fHasOverlay             :BOOL;           // Can device overlay?
  106.     fHasDlgVideoSource      :BOOL;           // Has Video source dlg?
  107.     fHasDlgVideoFormat      :BOOL;           // Has Format dlg?
  108.     fHasDlgVideoDisplay     :BOOL;           // Has External out dlg?
  109.     fCaptureInitialized     :BOOL;           // Driver ready to capture?
  110.     fDriverSuppliesPalettes :BOOL;           // Can driver make palettes?
  111.     hVideoIn                :THANDLE;        // Driver In channel
  112.     hVideoOut               :THANDLE;        // Driver Out channel
  113.     hVideoExtIn             :THANDLE;        // Driver Ext In channel
  114.     hVideoExtOut            :THANDLE;        // Driver Ext Out channel
  115. end;
  117.   pCapStatus = ^TCapStatus;
  118.   TCapStatus = record
  119.     uiImageWidth                :UINT;      // Width of the image
  120.     uiImageHeight               :UINT;      // Height of the image
  121.     fLiveWindow                 :BOOL;      // Now Previewing video?
  122.     fOverlayWindow              :BOOL;      // Now Overlaying video?
  123.     fScale                      :BOOL;      // Scale image to client?
  124.     ptScroll                    :TPOINT;    // Scroll position
  125.     fUsingDefaultPalette        :BOOL;      // Using default driver palette?
  126.     fAudioHardware              :BOOL;      // Audio hardware present?
  127.     fCapFileExists              :BOOL;      // Does capture file exist?
  128.     dwCurrentVideoFrame         :DWORD;     // # of video frames cap'td
  129.     dwCurrentVideoFramesDropped :DWORD;     // # of video frames dropped
  130.     dwCurrentWaveSamples        :DWORD;     // # of wave samples cap'td
  131.     dwCurrentTimeElapsedMS      :DWORD;     // Elapsed capture duration
  132.     hPalCurrent                 :HPALETTE;  // Current palette in use
  133.     fCapturingNow               :BOOL;      // Capture in progress?
  134.     dwReturn                    :DWORD;     // Error value after any operation
  135.     wNumVideoAllocated          :UINT;      // Actual number of video buffers
  136.     wNumAudioAllocated          :UINT;      // Actual number of audio buffers
  137.  end;
  140. pCaptureParms = ^TCaptureParms;
  141.  TCaptureParms = record                    // Default values in parenthesis
  142.    dwRequestMicroSecPerFrame  :DWORD;      // Requested capture rate
  143.    fMakeUserHitOKToCapture    :BOOL;       // Show "Hit OK to cap" dlg?
  144.    wPercentDropForError       :UINT;       // Give error msg if > (10%)
  145.    fYield                     :BOOL;       // Capture via background task?
  146.    dwIndexSize                :DWORD;      // Max index size in frames (32K)
  147.    wChunkGranularity          :UINT;       // Junk chunk granularity (2K)
  148.    fUsingDOSMemory            :BOOL;       // Use DOS buffers?
  149.    wNumVideoRequested         :UINT;       // # video buffers, If 0, autocalc
  150.    fCaptureAudio              :BOOL;       // Capture audio?
  151.    wNumAudioRequested         :UINT;       // # audio buffers, If 0, autocalc
  152.    vKeyAbort                  :UINT;       // Virtual key causing abort
  153.    fAbortLeftMouse            :BOOL;       // Abort on left mouse?
  154.    fAbortRightMouse           :BOOL;       // Abort on right mouse?
  155.    fLimitEnabled              :BOOL;       // Use wTimeLimit?
  156.    wTimeLimit                 :UINT;       // Seconds to capture
  157.    fMCIControl                :BOOL;       // Use MCI video source?
  158.    fStepMCIDevice             :BOOL;       // Step MCI device?
  159.    dwMCIStartTime             :DWORD;      // Time to start in MS
  160.    dwMCIStopTime              :DWORD;     // Time to stop in MS
  161.    fStepCaptureAt2x           :BOOL;      // Perform spatial averaging 2x
  162.    wStepCaptureAverageFrames  :UINT;      // Temporal average n Frames
  163.    dwAudioBufferSize          :DWORD;     // Size of audio bufs (0 = default)
  164.    fDisableWriteCache         :BOOL;     // Attempt to disable write cache
  165.    AVStreamMaster             :UINT;     // Which stream controls length?
  166. end;
  168.  PCapInfoChunk = ^TCapInfoChunk;
  169.  TCapInfoChunk = record
  170.     fccInfoID :FOURCC;  // Chunk ID, "ICOP" for copyright
  171.     lpData    :Pointer;  // pointer to data
  172.     cbData    :LongInt;         // size of lpData
  173. end;
  175. PVIDEOHDR = ^TVIDEOHDR;
  176. TVIDEOHDR = record
  177.     lpData:pByte;                 // pointer to locked data buffer
  178.     dwBufferLength:DWORD;         // Length of data buffer
  179.     dwBytesUsed:DWORD;            // Bytes actually used
  180.     dwTimeCaptured:DWORD;         // Milliseconds from start of stream
  181.     dwUser:DWORD;                 // for client's use
  182.     dwFlags:DWORD;                // assorted flags (see defines)
  183.     dwReserved: array [0..4] of DWORD;    // reserved for driver
  184. end;
  188. // ------------------------------------------------------------------
  189. //  Callback Definitions
  190. // ------------------------------------------------------------------
  191. type
  192. TCAPSTATUSCALLBACK  = function(hWnd:HWND; nID:Integer; lpsz:PChar):LongInt; stdcall;
  193. TCAPYIELDCALLBACK   = function(hWnd:HWND):LongInt; stdcall;
  194. TCAPERRORCALLBACK   = function(hWnd:HWND; nID:Integer; lpsz:Pchar):LongInt; stdcall;
  195. TCAPVIDEOSTREAMCALLBACK = function(hWnd:HWND; lpVHdr:PVIDEOHDR):LongInt; stdcall;
  196. TCAPWAVESTREAMCALLBACK   = function(hWnd:HWND; lpWHdr:PWAVEHDR):LongInt; stdcall;
  197. TCAPCONTROLCALLBACK = function(hWnd:HWND; nState:Integer):LongInt; stdcall;
  198. // ------------------------------------------------------------------
  199. //  CapControlCallback states
  200. // ------------------------------------------------------------------
  201. Const
  202. CONTROLCALLBACK_PREROLL         = 1; // Waiting to start capture
  203. CONTROLCALLBACK_CAPTURING       = 2;  // Now capturing
  209. // ------------------------------------------------------------------
  210. //  Message crackers for above
  211. // ------------------------------------------------------------------
  212. function capSetCallbackOnError (hwnd : THandle; fpProc:TCAPERRORCALLBACK):LongInt;
  213. function capSetCallbackOnStatus(hwnd : THandle; fpProc:TCAPSTATUSCALLBACK):LongInt;
  214. function capSetCallbackOnYield (hwnd : THandle; fpProc:TCAPYIELDCALLBACK):LongInt;
  215. function capSetCallbackOnFrame (hwnd : THandle; fpProc:TCAPVIDEOSTREAMCALLBACK):LongInt;  // Hier ist der Type der Callbackfunktion nicht klar !
  216. function capSetCallbackOnVideoStream(hwnd:THandle; fpProc:TCAPVIDEOSTREAMCALLBACK):LongInt;
  217. function capSetCallbackOnWaveStream (hwnd:THandle; fpProc: TCAPWAVESTREAMCALLBACK):LongInt;
  218. function capSetCallbackOnCapControl (hwnd:THandle; fpProc:TCAPCONTROLCALLBACK):LongInt;
  221. function capSetUserData(hwnd:THandle; lUser:LongInt):LongInt;
  222. function capGetUserData(hwnd:THandle):LongInt;
  224. function capDriverConnect(hwnd:THandle; I: Word) : boolean;
  225. function capDriverDisconnect(hwnd:THandle):boolean;
  227. function capDriverGetName(hwnd:THandle; szName:PChar; wSize:Word):boolean;
  228. function capDriverGetVersion(hwnd:THandle; szVer:PChar; wSize:Word):Boolean;
  229. function capDriverGetCaps(hwnd:THandle; s:PCapDriverCaps; wSize:Word):boolean;
  231. function capFileSetCaptureFile(hwnd:THandle; szName:PChar):boolean;
  232. function capFileGetCaptureFile(hwnd:THandle; szName:PChar; wSize:Word):boolean;
  233. function capFileAlloc(hwnd:THandle; dwSize:DWORD):boolean;
  234. function capFileSaveAs(hwnd:THandle; szName:Pchar):boolean;
  235. function capFileSetInfoChunk(hwnd:THandle; lpInfoChunk:pCapInfoChunk):boolean ;
  236. function capFileSaveDIB(hwnd:THandle; szName:Pchar):boolean;
  238. function capEditCopy(hwnd : THandle):boolean;
  240. function capSetAudioFormat(hwnd:THandle; s:PWaveFormatEx; wSize:Word):Boolean;
  241. function capGetAudioFormat(hwnd:THandle; s:PWaveFormatEx; wSize:Word):DWORD;
  242. function capGetAudioFormatSize(hwnd:THandle):DWORD;
  244. function capDlgVideoFormat(hwnd:THandle):boolean;
  245. function capDlgVideoSource(hwnd:THandle):boolean;
  246. function capDlgVideoDisplay(hwnd:THandle):boolean;
  247. function capDlgVideoCompression(hwnd:THandle):boolean;
  249. function capGetVideoFormat(hwnd:THandle; s:pBitmapInfo; wSize:Word):DWord;
  250. function capGetVideoFormatSize(hwnd:THandle):DWORD;
  252. function capSetVideoFormat(hwnd:THandle; s:pBitmapInfo; wSize:Word):boolean;
  254. function capPreview(hwnd:THandle; f:boolean):boolean;
  255. function capPreviewRate(hwnd:THandle; wMS:Word):boolean;
  256. function capOverlay(hwnd:THandle; f:boolean):boolean;
  257. function capPreviewScale(hwnd:THandle; f:boolean):boolean;
  258. function capGetStatus(hwnd:THandle; s:pCapStatus; wSize:Word):boolean;
  259. function capSetScrollPos(hwnd:THandle; lpP:pPoint):boolean;
  261. function capGrabFrame(hwnd:THandle):boolean;
  262. function capGrabFrameNoStop(hwnd:THandle):boolean;
  264. function capCaptureSequence(hwnd:THandle):Boolean;
  265. function capCaptureSequenceNoFile(hwnd:THandle):Boolean;
  266. function capCaptureStop(hwnd:THandle):boolean;
  267. function capCaptureAbort(hwnd:THandle):boolean;
  269. function capCaptureSingleFrameOpen(hwnd:THandle):boolean;
  270. function capCaptureSingleFrameClose(hwnd:THandle):boolean;
  271. function capCaptureSingleFrame(hwnd:THandle):boolean;
  273. function capCaptureGetSetup(hwnd:THandle; s:pCaptureParms; wSize:Word):boolean;
  274. function capCaptureSetSetup(hwnd:THandle; s:pCaptureParms; wSize:Word):boolean;
  276. function capSetMCIDeviceName(hwnd:THandle; szName:PChar):boolean;
  277. function capGetMCIDeviceName(hwnd:THandle; szName:PChar; wSize:Word):boolean;
  279. function capPaletteOpen(hwnd:THandle; szName:PChar):boolean;
  280. function capPaletteSave(hwnd:THandle; szName:PChar):boolean;
  281. function capPalettePaste(hwnd:THandle):Boolean;
  282. function capPaletteAuto(hwnd:THandle; iFrames:Word; iColors:word):boolean;
  283. function capPaletteManual(hwnd:THandle; fGrab:Word; iColors:word):boolean;
  290. // ------------------------------------------------------------------
  291. //  The only exported functions from AVICAP.DLL
  292. // ------------------------------------------------------------------
  293.   function capCreateCaptureWindow (
  294.          lpszWindowName  : PChar;
  295.                       dwStyle         : DWord;
  296.                x, y            : Integer;
  297.       nWidth, nHeight : Integer;
  298.            hwndParent      : THandle;
  299.                nID             : Integer ) : THandle; stdcall;
  301.  function capGetDriverDescription (
  302.         wDriverIndex : DWord;
  303.         lpszName     : PChar;
  304.         cbName       : Integer;
  305.         lpszVer      : PChar;
  306.         cbVer        : Integer ) : Boolean; stdcall;
  308. // ------------------------------------------------------------------
  309. // New Information chunk IDs
  310. // ------------------------------------------------------------------
  311. (*
  312. infotypeDIGITIZATION_TIME  = mmioStringToFOURCC(PChar('IDIT'), MMIO_TOUPPER);
  313. infotypeSMPTE_TIME         = mmioStringToFOURCC(PChar('ISMP'), MMIO_TOUPPER);
  314. *)
  316. // ------------------------------------------------------------------
  317. // String IDs from status and error callbacks
  318. // ------------------------------------------------------------------
  319. Const
  320. IDS_CAP_BEGIN               = 300; (* "Capture Start" *)
  321. IDS_CAP_END                 = 301; (* "Capture End" *)
  323. IDS_CAP_INFO                = 401; (* "%s" *)
  324. IDS_CAP_OUTOFMEM            = 402; (* "Out of memory" *)
  325. IDS_CAP_FILEEXISTS          = 403; (* "File '%s' exists -- overwrite it?" *)
  326. IDS_CAP_ERRORPALOPEN        = 404; (* "Error opening palette '%s'" *)
  327. IDS_CAP_ERRORPALSAVE        = 405; (* "Error saving palette '%s'" *)
  328. IDS_CAP_ERRORDIBSAVE        = 406; (* "Error saving frame '%s'" *)
  329. IDS_CAP_DEFAVIEXT           = 407; (* "avi" *)
  330. IDS_CAP_DEFPALEXT           = 408; (* "pal" *)
  331. IDS_CAP_CANTOPEN            = 409; (* "Cannot open '%s'" *)
  332. IDS_CAP_SEQ_MSGSTART        = 410; (* "Select OK to start capturenof video sequencento %s." *)
  333. IDS_CAP_SEQ_MSGSTOP         = 411; (* "Hit ESCAPE or click to end capture" *)
  335. IDS_CAP_VIDEDITERR          = 412; (* "An error occurred while trying to run VidEdit." *)
  336. IDS_CAP_READONLYFILE        = 413; (* "The file '%s' is a read-only file." *)
  337. IDS_CAP_WRITEERROR          = 414; (* "Unable to write to file '%s'.nDisk may be full." *)
  338. IDS_CAP_NODISKSPACE         = 415; (* "There is no space to create a capture file on the specified device." *)
  339. IDS_CAP_SETFILESIZE         = 416; (* "Set File Size" *)
  340. IDS_CAP_SAVEASPERCENT       = 417; (* "SaveAs: %2ld%%  Hit Escape to abort." *)
  342. IDS_CAP_DRIVER_ERROR        = 418; (* Driver specific error message *)
  344. IDS_CAP_WAVE_OPEN_ERROR     = 419; (* "Error: Cannot open the wave input device.nCheck sample size, frequency, and channels." *)
  345. IDS_CAP_WAVE_ALLOC_ERROR    = 420; (* "Error: Out of memory for wave buffers." *)
  346. IDS_CAP_WAVE_PREPARE_ERROR  = 421; (* "Error: Cannot prepare wave buffers." *)
  347. IDS_CAP_WAVE_ADD_ERROR      = 422; (* "Error: Cannot add wave buffers." *)
  348. IDS_CAP_WAVE_SIZE_ERROR     = 423; (* "Error: Bad wave size." *)
  350. IDS_CAP_VIDEO_OPEN_ERROR    = 424; (* "Error: Cannot open the video input device." *)
  351. IDS_CAP_VIDEO_ALLOC_ERROR   = 425; (* "Error: Out of memory for video buffers." *)
  352. IDS_CAP_VIDEO_PREPARE_ERROR = 426; (* "Error: Cannot prepare video buffers." *)
  353. IDS_CAP_VIDEO_ADD_ERROR     = 427; (* "Error: Cannot add video buffers." *)
  354. IDS_CAP_VIDEO_SIZE_ERROR    = 428; (* "Error: Bad video size." *)
  356. IDS_CAP_FILE_OPEN_ERROR     = 429; (* "Error: Cannot open capture file." *)
  357. IDS_CAP_FILE_WRITE_ERROR    = 430; (* "Error: Cannot write to capture file.  Disk may be full." *)
  358. IDS_CAP_RECORDING_ERROR     = 431; (* "Error: Cannot write to capture file.  Data rate too high or disk full." *)
  359. IDS_CAP_RECORDING_ERROR2    = 432; (* "Error while recording" *)
  360. IDS_CAP_AVI_INIT_ERROR      = 433; (* "Error: Unable to initialize for capture." *)
  361. IDS_CAP_NO_FRAME_CAP_ERROR  = 434; (* "Warning: No frames captured.nConfirm that vertical sync interruptsnare configured and enabled." *)
  362. IDS_CAP_NO_PALETTE_WARN     = 435; (* "Warning: Using default palette." *)
  363. IDS_CAP_MCI_CONTROL_ERROR   = 436; (* "Error: Unable to access MCI device." *)
  364. IDS_CAP_MCI_CANT_STEP_ERROR = 437; (* "Error: Unable to step MCI device." *)
  365. IDS_CAP_NO_AUDIO_CAP_ERROR  = 438; (* "Error: No audio data captured.nCheck audio card settings." *)
  366. IDS_CAP_AVI_DRAWDIB_ERROR   = 439; (* "Error: Unable to draw this data format." *)
  367. IDS_CAP_COMPRESSOR_ERROR    = 440; (* "Error: Unable to initialize compressor." *)
  368. IDS_CAP_AUDIO_DROP_ERROR    = 441; (* "Error: Audio data was lost during capture, reduce capture rate." *)
  370.   (* status string IDs *)
  371. IDS_CAP_STAT_LIVE_MODE      = 500; (* "Live window" *)
  372. IDS_CAP_STAT_OVERLAY_MODE   = 501; (* "Overlay window" *)
  373. IDS_CAP_STAT_CAP_INIT       = 502; (* "Setting up for capture - Please wait" *)
  374. IDS_CAP_STAT_CAP_FINI       = 503; (* "Finished capture, now writing frame %ld" *)
  375. IDS_CAP_STAT_PALETTE_BUILD  = 504; (* "Building palette map" *)
  376. IDS_CAP_STAT_OPTPAL_BUILD   = 505; (* "Computing optimal palette" *)
  377. IDS_CAP_STAT_I_FRAMES       = 506; (* "%d frames" *)
  378. IDS_CAP_STAT_L_FRAMES       = 507; (* "%ld frames" *)
  379. IDS_CAP_STAT_CAP_L_FRAMES   = 508; (* "Captured %ld frames" *)
  380. IDS_CAP_STAT_CAP_AUDIO      = 509; (* "Capturing audio" *)
  381. IDS_CAP_STAT_VIDEOCURRENT   = 510; (* "Captured %ld frames (%ld dropped) %d.%03d sec." *)
  382. IDS_CAP_STAT_VIDEOAUDIO     = 511; (* "Captured %d.%03d sec.  %ld frames (%ld dropped) (%d.%03d fps).  %ld audio bytes (%d,%03d sps)" *)
  383. IDS_CAP_STAT_VIDEOONLY      = 512; (* "Captured %d.%03d sec.  %ld frames (%ld dropped) (%d.%03d fps)" *)
  384. IDS_CAP_STAT_FRAMESDROPPED  = 513; (* "Dropped %ld of %ld frames (%d.%02d%%) during capture." *)
  388.   {== DRAWDIB - Routines for drawing to the display ============================}
  390. type
  391.     HDRAWDIB                    = THandle;  // hdd
  394. { == DrawDib Flags ============================================================}
  396. const
  397.     DDF_UPDATE                  = $0002;    // re-draw the last DIB
  398.     DDF_SAME_HDC                = $0004;    // HDC same as last call (all setup)
  399.     DDF_SAME_DRAW               = $0008;    // draw params are the same
  400.     DDF_DONTDRAW                = $0010;    // dont draw frame, just decompress
  401.     DDF_ANIMATE                 = $0020;    // allow palette animation
  402.     DDF_BUFFER                  = $0040;    // always buffer image
  403.     DDF_JUSTDRAWIT              = $0080;    // just draw it with GDI
  404.     DDF_FULLSCREEN              = $0100;    // use DisplayDib
  405.     DDF_BACKGROUNDPAL           = $0200;    // Realize palette in background
  406.     DDF_NOTKEYFRAME             = $0400;    // this is a partial frame update, hint
  407.     DDF_HURRYUP                 = $0800;    // hurry up please!
  408.     DDF_HALFTONE                = $1000;    // always halftone
  410.     DDF_PREROLL                 = DDF_DONTDRAW; // Builing up a non-keyframe
  411.     DDF_SAME_DIB                = DDF_SAME_DRAW;
  412.     DDF_SAME_SIZE               = DDF_SAME_DRAW;
  414. {== DrawDib functions ========================================================}
  416. {-- DrawDibOpen() ------------------------------------------------------------}
  418. function    DrawDibOpen: HDRAWDIB; stdcall;
  420. {-- DrawDibClose() -----------------------------------------------------------}
  422. function    DrawDibClose(hdd: HDRAWDIB): BOOL; stdcall;
  424. {-- DrawDibGetBuffer() -------------------------------------------------------}
  426. function    DrawDibGetBuffer(hdd: HDRAWDIB; lpbi: PBITMAPINFOHEADER; dwSize: DWORD; dwFlags: DWORD): Pointer;stdcall;
  428. {-- DrawDibGetPalette() - get the palette used for drawing DIBs --------------}
  430. function    DrawDibGetPalette(hdd: HDRAWDIB): HPALETTE; stdcall;
  432. {-- DrawDibSetPalette() - set the palette used for drawing DIBs --------------}
  434. function    DrawDibSetPalette(hdd: HDRAWDIB; hpal: HPALETTE): BOOL; stdcall;
  436. {-- DrawDibChangePalette() ---------------------------------------------------}
  438. function    DrawDibChangePalette(hdd: HDRAWDIB; iStart, iLen: integer; lppe: PPALETTEENTRY): BOOL; stdcall;
  440. {-- DrawDibRealize() - realize the palette in a HDD --------------------------}
  442. function    DrawDibRealize(hdd: HDRAWDIB; hdc: HDC; fBackground: BOOL): UINT; stdcall;
  444. {-- DrawDibStart() - start of streaming playback -----------------------------}
  446. function    DrawDibStart(hdd: HDRAWDIB; rate: DWORD): BOOL; stdcall;
  448. {-- DrawDibStop() - start of streaming playback ------------------------------}
  450. function    DrawDibStop(hdd: HDRAWDIB): BOOL; stdcall;
  452. {-- DrawDibBegin() - prepare to draw -----------------------------------------}
  454. function    DrawDibBegin(
  455.     hdd         : HDRAWDIB;
  456.     hdc         : HDC;
  457.     dxDst       : integer;
  458.     dyDst       : integer;
  459.     lpbi        : PBITMAPINFOHEADER;
  460.     dxSrc       : integer;
  461.     dySrc       : integer;
  462.     wFlags      : UINT
  463.     ): BOOL; stdcall;
  465. {-- DrawDibDraw() - actually draw a DIB to the screen ------------------------}
  467. function    DrawDibDraw(
  468.     hdd         : HDRAWDIB;
  469.     hdc         : HDC;
  470.     xDst        : integer;
  471.     yDst        : integer;
  472.     dxDst       : integer;
  473.     dyDst       : integer;
  474.     lpbi        : PBITMAPINFOHEADER;
  475.     lpBits      : Pointer;
  476.     xSrc        : integer;
  477.     ySrc        : integer;
  478.     dxSrc       : integer;
  479.     dySrc       : integer;
  480.     wFlags      : UINT
  481.     ): BOOL; stdcall;
  483. {-- DrawDibUpdate() - redraw last image (may only be valid with DDF_BUFFER) --}
  485. //function    DrawDibUpdate(hdd: HDRAWDIB; hdc: HDC; x, y: integer): BOOL;stdcall;
  487. {-- DrawDibEnd() -------------------------------------------------------------}
  489. function    DrawDibEnd(hdd: HDRAWDIB): BOOL; stdcall;
  491. {-- DrawDibTime() - for debugging purposes only ------------------------------}
  493. type
  494.     PDRAWDIBTIME        = ^TDRAWDIBTIME;
  495.     TDRAWDIBTIME        = record
  496.         timeCount       : DWORD;
  497.         timeDraw        : DWORD;
  498.         timeDecompress  : DWORD;
  499.         timeDither      : DWORD;
  500.         timeStretch     : DWORD;
  501.         timeBlt         : DWORD;
  502.         timeSetDIBits   : DWORD;
  503.     end;
  505. function    DrawDibTime(hdd: HDRAWDIB; lpddtime: PDRAWDIBTIME): BOOL; stdcall;
  507. {-- Display profiling --------------------------------------------------------}
  509. const
  510.     PD_CAN_DRAW_DIB             = $0001;    // if you can draw at all
  511.     PD_CAN_STRETCHDIB           = $0002;    // basicly RC_STRETCHDIB
  512.     PD_STRETCHDIB_1_1_OK        = $0004;    // is it fast?
  513.     PD_STRETCHDIB_1_2_OK        = $0008;    // ...
  514.     PD_STRETCHDIB_1_N_OK        = $0010;    // ...
  516. function    DrawDibProfileDisplay(lpbi: PBITMAPINFOHEADER): DWORD; stdcall;
  518. // Helper fucntion for FOURCC
  520. function MKFOURCC(ch0, ch1, ch2, ch3: Char): FOURCC;
  522. {== COMPMAN - Installable Compression Manager ================================}
  524. const
  525.     ICVERSION                   = $0104 ;
  527. type
  528.     HIC                         = THandle;  // Handle to an Installable Compressor
  530. //
  531. // this code in biCompression means the DIB must be accesed via
  532. // 48 bit pointers! using *ONLY* the selector given.
  533. //
  534. const
  535.     BI_1632                     = $32333631;    // '1632'
  537. function    mmioFOURCC(ch0, ch1, ch2, ch3: Char): FOURCC;
  539. type
  540.     TWOCC                       = Word;
  542. function    aviTWOCC(ch0, ch1: Char): TWOCC;
  544. const
  545.     ICTYPE_VIDEO                = $63646976; // mmioFOURCC('v', 'i', 'd', 'c')
  546.     ICTYPE_AUDIO                = $63647561; // mmioFOURCC('a', 'u', 'd', 'c')
  548. const
  549.     ICERR_OK                    = 0 ;
  550.     ICERR_DONTDRAW              = 1 ;
  551.     ICERR_NEWPALETTE            = 2 ;
  552.     ICERR_GOTOKEYFRAME          = 3 ;
  553.     ICERR_STOPDRAWING           = 4 ;
  555.     ICERR_UNSUPPORTED           = -1 ;
  556.     ICERR_BADFORMAT             = -2 ;
  557.     ICERR_MEMORY                = -3 ;
  558.     ICERR_INTERNAL              = -4 ;
  559.     ICERR_BADFLAGS              = -5 ;
  560.     ICERR_BADPARAM              = -6 ;
  561.     ICERR_BADSIZE               = -7 ;
  562.     ICERR_BADHANDLE             = -8 ;
  563.     ICERR_CANTUPDATE            = -9 ;
  564.     ICERR_ABORT                 = -10 ;
  565.     ICERR_ERROR                 = -100 ;
  566.     ICERR_BADBITDEPTH           = -200 ;
  567.     ICERR_BADIMAGESIZE          = -201 ;
  569.     ICERR_CUSTOM                = -400 ;    // errors less than ICERR_CUSTOM...
  571. {-- Values for dwFlags of ICOpen() -------------------------------------------}
  573.     ICMODE_COMPRESS             = 1 ;
  574.     ICMODE_DECOMPRESS           = 2 ;
  575.     ICMODE_FASTDECOMPRESS       = 3 ;
  576.     ICMODE_QUERY                = 4 ;
  577.     ICMODE_FASTCOMPRESS         = 5 ;
  578.     ICMODE_DRAW                 = 8 ;
  580. {-- Flags for AVI file index -------------------------------------------------}
  582.     AVIIF_LIST                  = $00000001 ;
  583.     AVIIF_TWOCC                 = $00000002 ;
  584.     AVIIF_KEYFRAME              = $00000010 ;
  586. {-- quality flags ------------------------------------------------------------}
  588.     ICQUALITY_LOW               = 0 ;
  589.     ICQUALITY_HIGH              = 10000 ;
  590.     ICQUALITY_DEFAULT           = -1 ;
  592. {-----------------------------------------------------------------------------}
  594.     ICM_USER                    = (DRV_USER+$0000) ;
  596.     ICM_RESERVED_LOW            = (DRV_USER+$1000) ;
  597.     ICM_RESERVED_HIGH           = (DRV_USER+$2000) ;
  598.     ICM_RESERVED                = ICM_RESERVED_LOW ;
  600. {-- Messages -----------------------------------------------------------------}
  602.     ICM_GETSTATE                = (ICM_RESERVED+0) ;    // Get compressor state
  603.     ICM_SETSTATE                = (ICM_RESERVED+1) ;    // Set compressor state
  604.     ICM_GETINFO                 = (ICM_RESERVED+2) ;    // Query info about the compressor
  606.     ICM_CONFIGURE               = (ICM_RESERVED+10);    // show the configure dialog
  607.     ICM_ABOUT                   = (ICM_RESERVED+11);    // show the about box
  609.     ICM_GETDEFAULTQUALITY       = (ICM_RESERVED+30);    // get the default value for quality
  610.     ICM_GETQUALITY              = (ICM_RESERVED+31);    // get the current value for quality
  611.     ICM_SETQUALITY              = (ICM_RESERVED+32);    // set the default value for quality
  613.     ICM_SET                     = (ICM_RESERVED+40);    // Tell the driver something
  614.     ICM_GET                     = (ICM_RESERVED+41);    // Ask the driver something
  616. {-- Constants for ICM_SET: ---------------------------------------------------}
  618.     ICM_FRAMERATE               = $526D7246; // mmioFOURCC('F','r','m','R')
  619.     ICM_KEYFRAMERATE            = $5279654B; // mmioFOURCC('K','e','y','R')
  621. {-- ICM specific messages ----------------------------------------------------}
  623.     ICM_COMPRESS_GET_FORMAT     = (ICM_USER+4)  ;   // get compress format or size
  624.     ICM_COMPRESS_GET_SIZE       = (ICM_USER+5)  ;   // get output size
  625.     ICM_COMPRESS_QUERY          = (ICM_USER+6)  ;   // query support for compress
  626.     ICM_COMPRESS_BEGIN          = (ICM_USER+7)  ;   // begin a series of compress calls.
  627.     ICM_COMPRESS                = (ICM_USER+8)  ;   // compress a frame
  628.     ICM_COMPRESS_END            = (ICM_USER+9)  ;   // end of a series of compress calls.
  630.     ICM_DECOMPRESS_GET_FORMAT   = (ICM_USER+10) ;   // get decompress format or size
  631.     ICM_DECOMPRESS_QUERY        = (ICM_USER+11) ;   // query support for dempress
  632.     ICM_DECOMPRESS_BEGIN        = (ICM_USER+12) ;   // start a series of decompress calls
  633.     ICM_DECOMPRESS              = (ICM_USER+13) ;   // decompress a frame
  634.     ICM_DECOMPRESS_END          = (ICM_USER+14) ;   // end a series of decompress calls
  635.     ICM_DECOMPRESS_SET_PALETTE  = (ICM_USER+29) ;   // fill in the DIB color table
  636.     ICM_DECOMPRESS_GET_PALETTE  = (ICM_USER+30) ;   // fill in the DIB color table
  638.     ICM_DRAW_QUERY              = (ICM_USER+31) ;   // query support for dempress
  639.     ICM_DRAW_BEGIN              = (ICM_USER+15) ;   // start a series of draw calls
  640.     ICM_DRAW_GET_PALETTE        = (ICM_USER+16) ;   // get the palette needed for drawing
  641.     ICM_DRAW_START              = (ICM_USER+18) ;   // start decompress clock
  642.     ICM_DRAW_STOP               = (ICM_USER+19) ;   // stop decompress clock
  643.     ICM_DRAW_END                = (ICM_USER+21) ;   // end a series of draw calls
  644.     ICM_DRAW_GETTIME            = (ICM_USER+32) ;   // get value of decompress clock
  645.     ICM_DRAW                    = (ICM_USER+33) ;   // generalized "render" message
  646.     ICM_DRAW_WINDOW             = (ICM_USER+34) ;   // drawing window has moved or hidden
  647.     ICM_DRAW_SETTIME            = (ICM_USER+35) ;   // set correct value for decompress clock
  648.     ICM_DRAW_REALIZE            = (ICM_USER+36) ;   // realize palette for drawing
  649.     ICM_DRAW_FLUSH              = (ICM_USER+37) ;   // clear out buffered frames
  650.     ICM_DRAW_RENDERBUFFER       = (ICM_USER+38) ;   // draw undrawn things in queue
  652.     ICM_DRAW_START_PLAY         = (ICM_USER+39) ;   // start of a play
  653.     ICM_DRAW_STOP_PLAY          = (ICM_USER+40) ;   // end of a play
  655.     ICM_DRAW_SUGGESTFORMAT      = (ICM_USER+50) ;   // Like ICGetDisplayFormat
  656.     ICM_DRAW_CHANGEPALETTE      = (ICM_USER+51) ;   // for animating palette
  658.     ICM_GETBUFFERSWANTED        = (ICM_USER+41) ;   // ask about prebuffering
  660.     ICM_GETDEFAULTKEYFRAMERATE  = (ICM_USER+42) ;   // get the default value for key frames
  662.     ICM_DECOMPRESSEX_BEGIN      = (ICM_USER+60) ;   // start a series of decompress calls
  663.     ICM_DECOMPRESSEX_QUERY      = (ICM_USER+61) ;   // start a series of decompress calls
  664.     ICM_DECOMPRESSEX            = (ICM_USER+62) ;   // decompress a frame
  665.     ICM_DECOMPRESSEX_END        = (ICM_USER+63) ;   // end a series of decompress calls
  667.     ICM_COMPRESS_FRAMES_INFO    = (ICM_USER+70) ;   // tell about compress to come
  668.     ICM_SET_STATUS_PROC         = (ICM_USER+72) ;   // set status callback
  670. {-----------------------------------------------------------------------------}
  672. type
  673.     PICOPEN                     = ^TICOPEN;
  674.     TICOPEN                     = record
  675.         dwSize                  : DWORD   ; // sizeof(TICOPEN)
  676.         fccType                 : DWORD   ; // 'vidc'
  677.         fccHandler              : DWORD   ; //
  678.         dwVersion               : DWORD   ; // version of compman opening you
  679.         dwFlags                 : DWORD   ; // LOWORD is type specific
  680.         dwError                 : DWORD   ; // error return.
  681.         pV1Reserved             : Pointer   ; // Reserved
  682.         pV2Reserved             : Pointer   ; // Reserved
  683.         dnDevNode               : DWORD   ; // Devnode for PnP devices
  684.     end;
  686. {-----------------------------------------------------------------------------}
  688.     PICINFO                     = ^TICINFO ;
  689.     TICINFO                     = record
  690.         dwSize                  : DWORD;    // sizeof(TICINFO)
  691.         fccType                 : DWORD;    // compressor type     'vidc' 'audc'
  692.         fccHandler              : DWORD;    // compressor sub-type 'rle ' 'jpeg' 'pcm '
  693.         dwFlags                 : DWORD;    // flags LOWORD is type specific
  694.         dwVersion               : DWORD;    // version of the driver
  695.         dwVersionICM            : DWORD;    // version of the ICM used
  696.         //
  697.         // under Win32, the driver always returns UNICODE strings.
  698.         //
  699.         szName                  : array[0..15] of WideChar  ; // short name
  700.         szDescription           : array[0..127] of WideChar ; // DWORD name
  701.         szDriver                : array[0..127] of WideChar ; // driver that contains compressor
  702.     end;
  704. {-- Flags for the <dwFlags> field of the <ICINFO> structure. -----------------}
  706. const
  707.     VIDCF_QUALITY               = $0001 ;  // supports quality
  708.     VIDCF_CRUNCH                = $0002 ;  // supports crunching to a frame size
  709.     VIDCF_TEMPORAL              = $0004 ;  // supports inter-frame compress
  710.     VIDCF_COMPRESSFRAMES        = $0008 ;  // wants the compress all frames message
  711.     VIDCF_DRAW                  = $0010 ;  // supports drawing
  712.     VIDCF_FASTTEMPORALC         = $0020 ;  // does not need prev frame on compress
  713.     VIDCF_FASTTEMPORALD         = $0080 ;  // does not need prev frame on decompress
  714.     //VIDCF_QUALITYTIME         = $0040 ;  // supports temporal quality
  716.     //VIDCF_FASTTEMPORAL        = (VIDCF_FASTTEMPORALC or VIDCF_FASTTEMPORALD)
  718. {-----------------------------------------------------------------------------}
  720.     ICCOMPRESS_KEYFRAME         = $00000001;
  722. type
  723.     PICCOMPRESS                 = ^TICCOMPRESS;
  724.     TICCOMPRESS                 = record
  725.         dwFlags                 : DWORD;                // flags
  727.         lpbiOutput              : PBITMAPINFOHEADER ;   // output format
  728.         lpOutput                : Pointer ;               // output data
  730.         lpbiInput               : PBITMAPINFOHEADER ;   // format of frame to compress
  731.         lpInput                 : Pointer ;               // frame data to compress
  733.         lpckid                  : PDWORD ;              // ckid for data in AVI file
  734.         lpdwFlags               : PDWORD;               // flags in the AVI index.
  735.         lFrameNum               : DWORD ;                // frame number of seq.
  736.         dwFrameSize             : DWORD ;               // reqested size in bytes. (if non zero)
  738.         dwQuality               : DWORD ;               // quality
  740.         // these are new fields
  742.         lpbiPrev                : PBITMAPINFOHEADER ;   // format of previous frame
  743.         lpPrev                  : Pointer ;              // previous frame
  744.     end;
  746. {-----------------------------------------------------------------------------}
  748. const
  749.     ICCOMPRESSFRAMES_PADDING    = $00000001 ;
  751. type
  752.     TICCompressProc             = function(lInput: LPARAM; lFrame: DWORD; lpBits: Pointer; len: DWORD): DWORD; stdcall;
  754.     PICCOMPRESSFRAMES           = ^TICCOMPRESSFRAMES;
  755.     TICCOMPRESSFRAMES           = record
  756.         dwFlags                 : DWORD ;               // flags
  758.         lpbiOutput              : PBITMAPINFOHEADER ;   // output format
  759.         lOutput                 : LPARAM ;              // output identifier
  761.         lpbiInput               : PBITMAPINFOHEADER ;   // format of frame to compress
  762.         lInput                  : LPARAM ;              // input identifier
  764.         lStartFrame             : DWORD ;                // start frame
  765.         lFrameCount             : DWORD ;                // # of frames
  767.         lQuality                : DWORD ;                // quality
  768.         lDataRate               : DWORD ;                // data rate
  769.         lKeyRate                : DWORD ;                // key frame rate
  771.         dwRate                  : DWORD ;               // frame rate, as always
  772.         dwScale                 : DWORD ;
  774.         dwOverheadPerFrame      : DWORD ;
  775.         dwReserved2             : DWORD ;
  777.         GetData                 : TICCompressProc;
  778.         PutData                 : TICCompressProc;
  779.     end;
  781. {-- Messages for Status callback ---------------------------------------------}
  783. const
  784.     ICSTATUS_START              = 0 ;
  785.     ICSTATUS_STATUS             = 1 ;   // l = % done
  786.     ICSTATUS_END                = 2 ;
  787.     ICSTATUS_ERROR              = 3 ;   // l = error string (LPSTR)
  788.     ICSTATUS_YIELD              = 4 ;
  790. type    
  791.     // return nonzero means abort operation in progress
  792.     TICStatusProc               = function(lParam: LPARAM; message: UINT; l: DWORD): DWORD; stdcall;
  794.     PICSETSTATUSPROC            = ^TICSETSTATUSPROC;
  795.     TICSETSTATUSPROC            = record
  796.         dwFlags                 : DWORD ;
  797.         lParam                  : LPARAM ;
  798.         Status                  : TICStatusProc;
  799.     end;
  801. {-----------------------------------------------------------------------------}
  803. const
  804.     ICDECOMPRESS_HURRYUP        = $80000000 ;   // don't draw just buffer (hurry up!)
  805.     ICDECOMPRESS_UPDATE         = $40000000 ;   // don't draw just update screen
  806.     ICDECOMPRESS_PREROLL        = $20000000 ;   // this frame is before real start
  807.     ICDECOMPRESS_NULLFRAME      = $10000000 ;   // repeat last frame
  808.     ICDECOMPRESS_NOTKEYFRAME    = $08000000 ;   // this frame is not a key frame
  810. type
  811.     PICDECOMPRESS               = ^TICDECOMPRESS;
  812.     TICDECOMPRESS               = record
  813.         dwFlags                 : DWORD ;               // flags (from AVI index...)
  814.         lpbiInput               : PBITMAPINFOHEADER ;   // BITMAPINFO of compressed data
  815.                                                         // biSizeImage has the chunk size
  816.         lpInput                 : Pointer ;               // compressed data
  817.         lpbiOutput              : PBITMAPINFOHEADER ;   // DIB to decompress to
  818.         lpOutput                : Pointer ;
  819.         ckid                    : DWORD ;               // ckid from AVI file
  820.     end;
  822.     PICDECOMPRESSEX             = ^TICDECOMPRESSEX;
  823.     TICDECOMPRESSEX             = record
  825.         //
  826.         // same as ICM_DECOMPRESS
  827.         //
  829.         dwFlags                 : DWORD;
  830.         lpbiSrc                 : PBITMAPINFOHEADER;    // BITMAPINFO of compressed data
  831.         lpSrc                   : Pointer;                // compressed data
  832.         lpbiDst                 : PBITMAPINFOHEADER;    // DIB to decompress to
  833.         lpDst                   : Pointer;                // output data
  835.         //
  836.         // new for ICM_DECOMPRESSEX
  837.         //
  839.         xDst                    : integer ; // destination rectangle
  840.         yDst                    : integer ;
  841.         dxDst                   : integer ;
  842.         dyDst                   : integer ;
  844.         xSrc                    : integer ; // source rectangle
  845.         ySrc                    : integer ;
  846.         dxSrc                   : integer ;
  847.         dySrc                   : integer ;
  848.     end;
  850. {-----------------------------------------------------------------------------}
  852. const
  853.     ICDRAW_QUERY                = $00000001 ; // test for support
  854.     ICDRAW_FULLSCREEN           = $00000002 ; // draw to full screen
  855.     ICDRAW_HDC                  = $00000004 ; // draw to a HDC/HWND
  856.     ICDRAW_ANIMATE              = $00000008 ;   // expect palette animation
  857.     ICDRAW_CONTINUE             = $00000010 ;   // draw is a continuation of previous draw
  858.     ICDRAW_MEMORYDC             = $00000020 ;   // DC is offscreen, by the way
  859.     ICDRAW_UPDATING             = $00000040 ;   // We're updating, as opposed to playing
  860.     ICDRAW_RENDER               = $00000080 ; // used to render data not draw it
  861.     ICDRAW_BUFFER               = $00000100 ; // please buffer this data offscreen, we will need to update it
  863. type
  864.     PICDRAWBEGIN                = ^TICDRAWBEGIN;
  865.     TICDRAWBEGIN                = record
  866.         dwFlags                 : DWORD ;       // flags
  868.         hpal                    : HPALETTE ;    // palette to draw with
  869.         hwnd                    : HWND ;        // window to draw to
  870.         hdc                     : HDC ;         // HDC to draw to
  872.         xDst                    : integer ;         // destination rectangle
  873.         yDst                    : integer ;
  874.         dxDst                   : integer ;
  875.         dyDst                   : integer ;
  877.         lpbi                    : PBITMAPINFOHEADER ;
  878.                                                 // format of frame to draw
  880.         xSrc                    : integer ;         // source rectangle
  881.         ySrc                    : integer ;
  882.         dxSrc                   : integer ;
  883.         dySrc                   : integer ;
  885.         dwRate                  : DWORD ;       // frames/second = (dwRate/dwScale)
  886.         dwScale                 : DWORD ;
  887.     end;
  889. {-----------------------------------------------------------------------------}
  891. const
  892.     ICDRAW_HURRYUP              = $80000000 ;   // don't draw just buffer (hurry up!)
  893.     ICDRAW_UPDATE               = $40000000 ;   // don't draw just update screen
  894.     ICDRAW_PREROLL              = $20000000 ;   // this frame is before real start
  895.     ICDRAW_NULLFRAME            = $10000000 ;   // repeat last frame
  896.     ICDRAW_NOTKEYFRAME          = $08000000 ;   // this frame is not a key frame
  898. type
  899.     PICDRAW                     = ^TICDRAW;
  900.     TICDRAW                     = record
  901.         dwFlags                 : DWORD ;   // flags
  902.         lpFormat                : Pointer ;   // format of frame to decompress
  903.         lpData                  : Pointer ;   // frame data to decompress
  904.         cbData                  : DWORD ;
  905.         lTime                   : DWORD  ;   // time in drawbegin units (see dwRate and dwScale)
  906.     end;
  908.     PICDRAWSUGGEST              = ^TICDRAWSUGGEST;
  909.     TICDRAWSUGGEST              = record
  910.         lpbiIn                  : PBITMAPINFOHEADER ;   // format to be drawn
  911.         lpbiSuggest             : PBITMAPINFOHEADER ;   // location for suggested format (or NULL to get size)
  912.         dxSrc                   : integer ;                 // source extent or 0
  913.         dySrc                   : integer ;
  914.         dxDst                   : integer ;                 // dest extent or 0
  915.         dyDst                   : integer ;
  916.         hicDecompressor         : HIC ;                 // decompressor you can talk to
  917.     end;
  919. {-----------------------------------------------------------------------------}
  921.     PICPALETTE                  = ^TICPALETTE;
  922.     TICPALETTE                  = record
  923.         dwFlags                 : DWORD ;           // flags (from AVI index...)
  924.         iStart                  : integer ;             // first palette to change
  925.         iLen                    : integer ;             // count of entries to change.
  926.         lppe                    : PPALETTEENTRY ;   // palette
  927.     end;
  929. {-- ICM function declarations ------------------------------------------------}
  931. function    ICInfo(fccType, fccHandler: DWORD; lpicinfo: PICINFO) : BOOL ; stdcall ;
  932. function    ICInstall(fccType, fccHandler: DWORD; lParam: LPARAM; szDesc: LPSTR; wFlags: UINT) : BOOL ; stdcall ;
  933. function    ICRemove(fccType, fccHandler: DWORD; wFlags: UINT) : BOOL ; stdcall ;
  934. function    ICGetInfo(hic: HIC; picinfo: PICINFO; cb: DWORD) : DWORD ; stdcall ;
  936. function    ICOpen(fccType, fccHandler: DWORD; wMode: UINT) : HIC ; stdcall ;
  937. function    ICOpenFunction(fccType, fccHandler: DWORD; wMode: UINT; lpfnHandler: TFarProc) : HIC ; stdcall ;
  938. function    ICClose(hic: HIC) : DWORD; stdcall ;
  940. function    ICSendMessage(hic: HIC; msg: UINT; dw1, dw2: integer) : DWORD ; stdcall ;
  942. {-- Values for wFlags of ICInstall -------------------------------------------}
  944. const
  945.     ICINSTALL_UNICODE           = $8000 ;
  947.     ICINSTALL_FUNCTION          = $0001 ; // lParam is a DriverProc (function ptr)
  948.     ICINSTALL_DRIVER            = $0002 ; // lParam is a driver name (string)
  949.     ICINSTALL_HDRV              = $0004 ; // lParam is a HDRVR (driver handle)
  951.     ICINSTALL_DRIVERW           = $8002 ; // lParam is a unicode driver name
  953. {-- Query macros -------------------------------------------------------------}
  955.     ICMF_CONFIGURE_QUERY        = $00000001 ;
  956.     ICMF_ABOUT_QUERY            = $00000001 ;
  958. function    ICQueryAbout(hic: HIC): BOOL;
  959. function    ICAbout(hic: HIC; hwnd: HWND): DWORD;
  960. function    ICQueryConfigure(hic: HIC): BOOL;
  961. function    ICConfigure(hic: HIC; hwnd: HWND): DWORD;
  963. {-- Get/Set state macros -----------------------------------------------------}
  965. function    ICGetState(hic: HIC; pv: Pointer; cb: DWORD): DWORD;
  966. function    ICSetState(hic: HIC; pv: Pointer; cb: DWORD): DWORD;
  967. function    ICGetStateSize(hic: HIC): DWORD;
  969. {-- Get value macros ---------------------------------------------------------}
  971. function    ICGetDefaultQuality(hic: HIC): DWORD;
  972. function    ICGetDefaultKeyFrameRate(hic: HIC): DWORD;
  974. {-- Draw window macro --------------------------------------------------------}
  976. function    ICDrawWindow(hic: HIC; prc: PRECT): DWORD;
  978. {== Compression functions ====================================================}
  980. {-- ICCompress() - compress a single frame -----------------------------------}
  982. function    ICCompress(
  983.     hic             : HIC;
  984.     dwFlags         : DWORD;                // flags
  985.     lpbiOutput      : PBITMAPINFOHEADER;    // output format
  986.     lpData          : Pointer;                // output data
  987.     lpbiInput       : PBITMAPINFOHEADER;    // format of frame to compress
  988.     lpBits          : Pointer;                // frame data to compress
  989.     lpckid          : PDWORD;               // ckid for data in AVI file
  990.     lpdwFlags       : PDWORD;               // flags in the AVI index.
  991.     lFrameNum       : DWORD;                 // frame number of seq.
  992.     dwFrameSize     : DWORD;                // reqested size in bytes. (if non zero)
  993.     dwQuality       : DWORD;                // quality within one frame
  994.     lpbiPrev        : PBITMAPINFOHEADER;    // format of previous frame
  995.     lpPrev          : Pointer                 // previous frame
  996.     ) : DWORD; cdecl;
  998. {-- ICCompressBegin() - start compression from a source fmt to a dest fmt ----}
  1000. function    ICCompressBegin(hic: HIC; lpbiInput: PBITMAPINFOHEADER; lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1002. {-- ICCompressQuery() - determines if compression from src to dst is supp ----}
  1004. function    ICCompressQuery(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1006. {-- ICCompressGetFormat() - get the output format (fmt of compressed) --------}
  1008. // if lpbiOutput is nil return the size in bytes needed for format.
  1010. function    ICCompressGetFormat(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1011. function    ICCompressGetFormatSize(hic: HIC; lpbi: PBITMAPINFOHEADER): DWORD;
  1013. {-- ICCompressSize() - return the maximal size of a compressed frame ---------}
  1015. function    ICCompressGetSize(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1016. function    ICCompressEnd(hic: HIC): DWORD;
  1018. {== Decompression functions ==================================================}
  1020. {-- ICDecompress() - decompress a single frame -------------------------------}
  1022. function    ICDecompress(
  1023.     hic             : HIC;
  1024.     dwFlags         : DWORD;                // flags (from AVI index...)
  1025.     lpbiFormat      : PBITMAPINFOHEADER;    // BITMAPINFO of compressed data
  1026.                                             // biSizeImage has the chunk size
  1027.     lpData          : Pointer;                // data
  1028.     lpbi            : PBITMAPINFOHEADER;    // DIB to decompress to
  1029.     lpBits          : Pointer
  1030.     ): DWORD; cdecl;
  1032. {-- ICDecompressBegin() - start compression from src fmt to a dest fmt -------}
  1034. function    ICDecompressBegin(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1036. {-- ICDecompressQuery() - determines if compression is supported -------------}
  1038. function    ICDecompressQuery(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1040. {-- ICDecompressGetFormat - get the output fmt (fmt of uncompressed data) ----}
  1042. // if lpbiOutput is NULL return the size in bytes needed for format.
  1044. function    ICDecompressGetFormat(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1045. function    ICDecompressGetFormatSize(hic: HIC; lpbi: PBITMAPINFOHEADER): DWORD;
  1047. {-- ICDecompressGetPalette() - get the output palette ------------------------}
  1049. function    ICDecompressGetPalette(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1050. function    ICDecompressSetPalette(hic: HIC; lpbiPalette: PBITMAPINFOHEADER): DWORD;
  1052. function    ICDecompressEnd(hic: HIC): DWORD;
  1054. {== Decompression(ex) functions ==============================================}
  1056. //
  1057. // on Win16 these functions are macros that call ICMessage. ICMessage will
  1058. // not work on NT. rather than add new entrypoints we have given
  1059. // them as static inline functions
  1060. //
  1062. {-- ICDecompressEx() - decompress a single frame -----------------------------}
  1064. function    ICDecompressEx(
  1065.     hic         : HIC;
  1066.     dwFlags     : DWORD;
  1067.     lpbiSrc     : PBITMAPINFOHEADER;
  1068.     lpSrc       : Pointer;
  1069.     xSrc        : integer;
  1070.     ySrc        : integer;
  1071.     dxSrc       : integer;
  1072.     dySrc       : integer;
  1073.     lpbiDst     : PBITMAPINFOHEADER;
  1074.     lpDst       : Pointer;
  1075.     xDst        : integer;
  1076.     yDst        : integer;
  1077.     dxDst       : integer;
  1078.     dyDst       : integer
  1079.     ): DWORD; stdcall;
  1081. {-- ICDecompressExBegin() - start compression from a src fmt to a dest fmt ---}
  1083. function    ICDecompressExBegin(
  1084.     hic         : HIC;
  1085.     dwFlags     : DWORD;
  1086.     lpbiSrc     : PBITMAPINFOHEADER;
  1087.     lpSrc       : Pointer;
  1088.     xSrc        : integer;
  1089.     ySrc        : integer;
  1090.     dxSrc       : integer;
  1091.     dySrc       : integer;
  1092.     lpbiDst     : PBITMAPINFOHEADER;
  1093.     lpDst       : Pointer;
  1094.     xDst        : integer;
  1095.     yDst        : integer;
  1096.     dxDst       : integer;
  1097.     dyDst       : integer
  1098.     ): DWORD; stdcall;
  1100. {-- ICDecompressExQuery() ----------------------------------------------------}
  1102. function    ICDecompressExQuery(
  1103.     hic         : HIC;
  1104.     dwFlags     : DWORD;
  1105.     lpbiSrc     : PBITMAPINFOHEADER;
  1106.     lpSrc       : Pointer;
  1107.     xSrc        : integer;
  1108.     ySrc        : integer;
  1109.     dxSrc       : integer;
  1110.     dySrc       : integer;
  1111.     lpbiDst     : PBITMAPINFOHEADER;
  1112.     lpDst       : Pointer;
  1113.     xDst        : integer;
  1114.     yDst        : integer;
  1115.     dxDst       : integer;
  1116.     dyDst       : integer
  1117.     ): DWORD; stdcall;
  1119. function    ICDecompressExEnd(hic: HIC): DWORD;
  1121. {== Drawing functions ========================================================}
  1123. {-- ICDrawBegin() - start decompressing data with fmt directly to screen -----}
  1125. // return zero if the decompressor supports drawing.
  1127. function    ICDrawBegin(
  1128.     hic         : HIC;
  1129.     dwFlags     : DWORD;                // flags
  1130.     hpal        : HPALETTE;             // palette to draw with
  1131.     hwnd        : HWND;                 // window to draw to
  1132.     hdc         : HDC;                  // HDC to draw to
  1133.     xDst        : integer;                  // destination rectangle
  1134.     yDst        : integer;
  1135.     dxDst       : integer;
  1136.     dyDst       : integer;
  1137.     lpbi        : PBITMAPINFOHEADER;    // format of frame to draw
  1138.     xSrc        : integer;                  // source rectangle
  1139.     ySrc        : integer;
  1140.     dxSrc       : integer;
  1141.     dySrc       : integer;
  1142.     dwRate      : DWORD;                // frames/second = (dwRate/dwScale)
  1143.     dwScale     : DWORD
  1144.     ): DWORD; cdecl;
  1146. {-- ICDraw() - decompress data directly to the screen ------------------------}
  1148. function    ICDraw(
  1149.     hic         : HIC;
  1150.     dwFlags     : DWORD;                // flags
  1151.     lpFormat    : Pointer;                // format of frame to decompress
  1152.     lpData      : Pointer;                // frame data to decompress
  1153.     cbData      : DWORD;                // size of data
  1154.     lTime       : DWORD                  // time to draw this frame
  1155.     ): DWORD; cdecl;
  1157. // ICMessage is not supported on Win32, so provide a static inline function
  1158. // to do the same job
  1160. function    ICDrawSuggestFormat(
  1161.     hic         : HIC;
  1162.     lpbiIn      : PBITMAPINFOHEADER;
  1163.     lpbiOut     : PBITMAPINFOHEADER;
  1164.     dxSrc       : integer;
  1165.     dySrc       : integer;
  1166.     dxDst       : integer;
  1167.     dyDst       : integer;
  1168.     hicDecomp   : HIC
  1169.     ): DWORD; stdcall;
  1171. {-- ICDrawQuery() - determines if the compressor is willing to render fmt ----}
  1173. function    ICDrawQuery(hic: HIC; lpbiInput: PBITMAPINFOHEADER): DWORD;
  1174. function    ICDrawChangePalette(hic: HIC; lpbiInput: PBITMAPINFOHEADER): DWORD;
  1175. function    ICGetBuffersWanted(hic: HIC; lpdwBuffers: PDWORD): DWORD;
  1176. function    ICDrawEnd(hic: HIC): DWORD;
  1177. function    ICDrawStart(hic: HIC): DWORD;
  1178. function    ICDrawStartPlay(hic: HIC; lFrom, lTo: DWORD): DWORD;
  1179. function    ICDrawStop(hic: HIC): DWORD;
  1180. function    ICDrawStopPlay(hic: HIC): DWORD;
  1181. function    ICDrawGetTime(hic: HIC; lplTime: PDWORD): DWORD;
  1182. function    ICDrawSetTime(hic: HIC; lTime: DWORD): DWORD;
  1183. function    ICDrawRealize(hic: HIC; hdc: HDC; fBackground: BOOL): DWORD;
  1184. function    ICDrawFlush(hic: HIC): DWORD;
  1185. function    ICDrawRenderBuffer(hic: HIC): DWORD;
  1187. {== Status callback functions ================================================}
  1189. {-- ICSetStatusProc() - Set the status callback function ---------------------}
  1191. // ICMessage is not supported on NT
  1193. function    ICSetStatusProc(
  1194.     hic         : HIC;
  1195.     dwFlags     : DWORD;
  1196.     lParam      : DWORD;
  1197.     fpfnStatus  : TICStatusProc
  1198.     ): DWORD; stdcall;
  1200. {== Helper routines for DrawDib and MCIAVI... ================================}
  1202. function    ICLocate(fccType, fccHandler: DWORD; lpbiIn, lpbiOut: PBITMAPINFOHEADER; wFlags: WORD): HIC; stdcall;
  1203. function    ICGetDisplayFormat(hic: HIC; lpbiIn, lpbiOut: PBITMAPINFOHEADER; BitDepth: integer; dx, dy: integer): HIC; stdcall;
  1205. function    ICDecompressOpen(fccType, fccHandler: DWORD; lpbiIn, lpbiOut: PBITMAPINFOHEADER): HIC;
  1206. function    ICDrawOpen(fccType, fccHandler: DWORD; lpbiIn: PBITMAPINFOHEADER): HIC;
  1208. {== Higher level functions ===================================================}
  1210. function    ICImageCompress(
  1211.     hic         : HIC;                  // compressor to use
  1212.     uiFlags     : UINT;                 // flags (none yet)
  1213.     lpbiIn      : PBITMAPINFO;          // format to compress from
  1214.     lpBits      : Pointer;                // data to compress
  1215.     lpbiOut     : PBITMAPINFO;          // compress to this (NULL ==> default)
  1216.     lQuality    : DWORD;                 // quality to use
  1217.     plSize      : PDWORD                 // compress to this size (0=whatever)
  1218.     ): THANDLE; stdcall;
  1220. function    ICImageDecompress(
  1221.     hic         : HIC;                  // compressor to use
  1222.     uiFlags     : UINT;                 // flags (none yet)
  1223.     lpbiIn      : PBITMAPINFO;          // format to decompress from
  1224.     lpBits      : Pointer;                // data to decompress
  1225.     lpbiOut     : PBITMAPINFO           // decompress to this (NULL ==> default)
  1226.     ): THANDLE; stdcall;
  1228. {-- TCompVars ----------------------------------------------------------------}
  1229.     
  1230. //
  1231. // Structure used by ICSeqCompressFrame and ICCompressorChoose routines
  1232. // Make sure this matches the autodoc in icm.c!
  1233. //
  1235. type
  1236.     PCOMPVARS       = ^TCOMPVARS;
  1237.     TCOMPVARS       = record
  1238.         cbSize      : DWORD;             // set to sizeof(COMPVARS) before
  1239.                                         // calling ICCompressorChoose
  1240.         dwFlags     : DWORD;            // see below...
  1241.         hic         : HIC;              // HIC of chosen compressor
  1242.         fccType     : DWORD;            // basically ICTYPE_VIDEO
  1243.         fccHandler  : DWORD;            // handler of chosen compressor or
  1244.                                         // "" or "DIB "
  1245.         lpbiIn      : PBITMAPINFO;      // input format
  1246.         lpbiOut     : PBITMAPINFO;      // output format - will compress to this
  1247.         lpBitsOut   : Pointer;
  1248.         lpBitsPrev  : Pointer;
  1249.         lFrame      : DWORD;
  1250.         lKey        : DWORD;             // key frames how often?
  1251.         lDataRate   : DWORD;             // desired data rate KB/Sec
  1252.         lQ          : DWORD;             // desired quality
  1253.         lKeyCount   : DWORD;
  1254.         lpState     : Pointer;            // state of compressor
  1255.         cbState     : DWORD;             // size of the state
  1256.     end;
  1258. // FLAGS for dwFlags element of COMPVARS structure:
  1259. // set this flag if you initialize COMPVARS before calling ICCompressorChoose
  1261. const
  1262.     ICMF_COMPVARS_VALID         = $00000001;    // COMPVARS contains valid data
  1264. {-- ICCompressorChoose() - allows user to choose compressor, quality etc... --}
  1266. function    ICCompressorChoose(
  1267.     hwnd        : HWND;                     // parent window for dialog
  1268.     uiFlags     : UINT;                     // flags
  1269.     pvIn        : Pointer;                    // input format (optional)
  1270.     lpData      : Pointer;                    // input data (optional)
  1271.     pc          : PCOMPVARS;                // data about the compressor/dlg
  1272.     lpszTitle   : LPSTR                     // dialog title (optional)
  1273.     ): BOOL; stdcall;
  1275. // defines for uiFlags
  1277. const
  1278.     ICMF_CHOOSE_KEYFRAME        = $0001;    // show KeyFrame Every box
  1279.     ICMF_CHOOSE_DATARATE        = $0002;    // show DataRate box
  1280.     ICMF_CHOOSE_PREVIEW         = $0004;    // allow expanded preview dialog
  1281.     ICMF_CHOOSE_ALLCOMPRESSORS  = $0008;    // don't only show those that
  1282.                                             // can handle the input format
  1283.                                             // or input data
  1285. function    ICSeqCompressFrameStart(pc: PCOMPVARS; lpbiIn: PBITMAPINFO): BOOL; stdcall;
  1286. procedure   ICSeqCompressFrameEnd(pc: PCOMPVARS); stdcall;
  1288. function    ICSeqCompressFrame(
  1289.     pc          : PCOMPVARS;                // set by ICCompressorChoose
  1290.     uiFlags     : UINT;                     // flags
  1291.     lpBits      : Pointer;                    // input DIB bits
  1292.     pfKey       : PBOOL;                    // did it end up being a key frame?
  1293.     plSize      : PDWORD                     // size to compress to/of returned image
  1294.     ): Pointer; stdcall;
  1296. procedure   ICCompressorFree(pc: PCOMPVARS); stdcall;
  1320. implementation
  1322. // Dlls
  1324. const
  1325.   AVICAP32      = 'AVICAP32.dll';
  1326.   VFWDLL        = 'MSVFW32.DLL';
  1331. (* Externals from AVICAP.DLL *)
  1332. function capGetDriverDescription; external AVICAP32 name 'capGetDriverDescriptionA';
  1333. function capCreateCaptureWindow;  external AVICAP32 name 'capCreateCaptureWindowA';
  1336. (* Message crackers for above *)
  1337. function capSetCallbackOnError(hwnd : THandle; fpProc:TCAPERRORCALLBACK) : LongInt;
  1338. begin
  1339. Result := SendMessage(hwnd, WM_CAP_SET_CALLBACK_ERROR, 0,LPARAM(@fpProc));
  1340. end;
  1342. function capSetCallbackOnStatus(hwnd : THandle; fpProc:TCAPSTATUSCALLBACK):LongInt;
  1343. begin
  1344. Result := SendMessage(hwnd, WM_CAP_SET_CALLBACK_STATUS, 0, LPARAM(@fpProc));
  1345. end;
  1347. function capSetCallbackOnYield (hwnd : THandle; fpProc:TCAPYIELDCALLBACK):LongInt;
  1348. begin
  1349. Result := SendMessage(hwnd, WM_CAP_SET_CALLBACK_YIELD, 0, LPARAM(@fpProc));
  1350. end;
  1352. function capSetCallbackOnFrame (hwnd : THandle; fpProc:TCAPVIDEOSTREAMCALLBACK):LongInt;
  1353. begin
  1354. Result := SendMessage(hwnd, WM_CAP_SET_CALLBACK_FRAME, 0,LPARAM( @fpProc));
  1355. end;
  1357. function capSetCallbackOnVideoStream(hwnd:THandle; fpProc:TCAPVIDEOSTREAMCALLBACK):LongInt;
  1358. begin
  1359. Result := SendMessage(hwnd, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, LPARAM(@fpProc));
  1360. end;
  1362. function capSetCallbackOnWaveStream (hwnd:THandle; fpProc:TCAPWAVESTREAMCALLBACK):LongInt;
  1363. begin
  1364. Result := SendMessage(hwnd, WM_CAP_SET_CALLBACK_WAVESTREAM, 0, LPARAM(@fpProc));
  1365. end;
  1367. function capSetCallbackOnCapControl (hwnd:THandle; fpProc:TCAPCONTROLCALLBACK):longint;
  1368. begin
  1369. Result := SendMessage(hwnd, WM_CAP_SET_CALLBACK_CAPCONTROL, 0, LPARAM(@fpProc));
  1370. end;
  1372. function capSetUserData(hwnd:THandle; lUser:LongInt):LongInt;
  1373. begin
  1374. Result := SendMessage(hwnd, WM_CAP_SET_USER_DATA, 0, lUser);
  1375. end;
  1377. function capGetUserData(hwnd:THandle):LongInt;
  1378. begin
  1379. Result := SendMessage(hwnd, WM_CAP_GET_USER_DATA, 0, 0);
  1380. end;
  1382. function capDriverConnect(hwnd:THandle; I: Word) : boolean;
  1383. begin
  1384. Result :=boolean( SendMessage(hwnd, WM_CAP_DRIVER_CONNECT, WPARAM(I), 0));
  1385. end;
  1387. function capDriverDisconnect(hwnd:THandle):Boolean;
  1388. begin
  1389. Result := boolean(SendMessage(hwnd, WM_CAP_DRIVER_DISCONNECT, 0, 0));
  1390. end;
  1392. function capDriverGetName(hwnd:THandle; szName:PChar; wSize:Word):boolean;
  1393. begin
  1394. Result :=boolean( SendMessage(hwnd, WM_CAP_DRIVER_GET_NAME, WPARAM(wSize), LPARAM( szName)));
  1395. end;
  1397. function capDriverGetVersion(hwnd:THandle; szVer:PChar; wSize:Word):boolean;
  1398. begin
  1399. Result :=boolean( SendMessage(hwnd, WM_CAP_DRIVER_GET_VERSION, WPARAM(wSize),LPARAM( szVer)));
  1400. end;
  1402. function capDriverGetCaps(hwnd:THandle; s:pCapDriverCaps; wSize:Word):boolean;
  1403. begin
  1404. Result := boolean(SendMessage(hwnd, WM_CAP_DRIVER_GET_CAPS, WPARAM(wSize),LPARAM(s)));
  1405. end;
  1407. function capFileSetCaptureFile(hwnd:THandle; szName:PChar):boolean;
  1408. begin
  1409. Result := Boolean(SendMessage(hwnd, WM_CAP_FILE_SET_CAPTURE_FILE, 0, LPARAM(szName)));
  1410. end;
  1412. function capFileGetCaptureFile(hwnd:THandle; szName:PChar; wSize:Word):Boolean;
  1413. begin
  1414. Result := Boolean(SendMessage(hwnd, WM_CAP_FILE_GET_CAPTURE_FILE, wSize, LPARAM(szName)));
  1415. end;
  1417. function capFileAlloc(hwnd:THandle; dwSize:DWord):boolean;
  1418. begin
  1419. Result := Boolean(SendMessage(hwnd, WM_CAP_FILE_ALLOCATE, 0, LPARAM(dwSize)));
  1420. end;
  1422. function capFileSaveAs(hwnd:THandle; szName:Pchar):Boolean;
  1423. begin
  1424. Result := Boolean(SendMessage(hwnd, WM_CAP_FILE_SAVEAS, 0,LPARAM(szName)));
  1425. end;
  1427. function capFileSetInfoChunk(hwnd:THandle; lpInfoChunk:pCapInfoChunk):boolean;
  1428. begin
  1429. Result := Boolean(SendMessage(hwnd, WM_CAP_FILE_SET_INFOCHUNK, 0, LPARAM(lpInfoChunk)));
  1430. end;
  1432. function capFileSaveDIB(hwnd:THandle; szName:Pchar):Boolean;
  1433. begin
  1434. Result :=Boolean(SendMessage(hwnd, WM_CAP_FILE_SAVEDIB, 0,LPARAM(szName)));
  1435. end;
  1437. function capEditCopy(hwnd : THandle):Boolean;
  1438. begin
  1439. Result := Boolean(SendMessage(hwnd, WM_CAP_EDIT_COPY, 0, 0));
  1440. end;
  1442. function capSetAudioFormat(hwnd:THandle; s:PWaveFormatEx; wSize:Word):boolean;
  1443. begin
  1444. Result := Boolean(SendMessage(hwnd, WM_CAP_SET_AUDIOFORMAT, WPARAM(wSize),LPARAM(s)));
  1445. end;
  1447. function capGetAudioFormat(hwnd:THandle; s:PWaveFormatEx; wSize:Word):DWORD;
  1448. begin
  1449. Result :=DWORD( SendMessage(hwnd, WM_CAP_GET_AUDIOFORMAT, WPARAM(wSize),LPARAM(s)));
  1450. end;
  1452. function capGetAudioFormatSize(hwnd:THandle):DWORD;
  1453. begin
  1454. Result := DWORD(SendMessage(hwnd, WM_CAP_GET_AUDIOFORMAT, 0, 0));
  1455. end;
  1457. function capDlgVideoFormat(hwnd:THandle):boolean;
  1458. begin
  1459. Result :=boolean(SendMessage(hwnd, WM_CAP_DLG_VIDEOFORMAT, 0, 0));
  1460. end;
  1462. function capDlgVideoSource(hwnd:THandle):boolean;
  1463. begin
  1464. Result :=boolean (SendMessage(hwnd, WM_CAP_DLG_VIDEOSOURCE, 0, 0));
  1465. end;
  1467. function capDlgVideoDisplay(hwnd:THandle):boolean;
  1468. begin
  1469. Result := boolean(SendMessage(hwnd, WM_CAP_DLG_VIDEODISPLAY, 0, 0));
  1470. end;
  1472. function capDlgVideoCompression(hwnd:THandle):boolean;
  1473. begin
  1474. Result := boolean(SendMessage(hwnd, WM_CAP_DLG_VIDEOCOMPRESSION, 0, 0));
  1475. end;
  1477. function capGetVideoFormat(hwnd:THandle; s:pBitmapInfo; wSize:Word):DWord;
  1478. begin
  1479. Result := DWord(SendMessage(hwnd, WM_CAP_GET_VIDEOFORMAT, Wparam(wSize), LPARAM(s)));
  1480. end;
  1482. function capGetVideoFormatSize(hwnd:THandle):DWord;
  1483. begin
  1484. Result := DWord(SendMessage(hwnd, WM_CAP_GET_VIDEOFORMAT, 0, 0));
  1485. end;
  1487. function capSetVideoFormat(hwnd:THandle; s:PBitmapInfo; wSize:Word):Boolean;
  1488. begin
  1489. Result := Boolean(SendMessage(hwnd, WM_CAP_SET_VIDEOFORMAT, WPARAM(wSize), LPARAM(s)));
  1490. end;
  1492. function capPreview(hwnd:THandle; f:boolean):boolean;
  1493. begin
  1494. Result := Boolean(SendMessage(hwnd, WM_CAP_SET_PREVIEW, WPARAM(f), 0));
  1495. end;
  1497. function capPreviewRate(hwnd:THandle; wMS:Word):boolean;
  1498. begin
  1499. Result := Boolean(SendMessage(hwnd, WM_CAP_SET_PREVIEWRATE, WPARAM(wMS), 0));
  1500. end;
  1502. function capOverlay(hwnd:THandle; f:boolean):boolean;
  1503. begin
  1504. Result := Boolean(SendMessage(hwnd, WM_CAP_SET_OVERLAY, WPARAM(f), 0));
  1505. end;
  1507. function capPreviewScale(hwnd:THandle; f:boolean):Boolean;
  1508. begin
  1509. Result := Boolean(SendMessage(hwnd, WM_CAP_SET_SCALE,WPARAM(f), 0));
  1510. end;
  1512. function capGetStatus(hwnd:THandle; s:PCapStatus; wSize:Word):boolean;
  1513. begin
  1514. Result := Boolean(SendMessage(hwnd, WM_CAP_GET_STATUS, WPARAM(wSize),LPARAM(s)));
  1515. end;
  1517. function capSetScrollPos(hwnd:THandle; lpP:pPoint):Boolean;
  1518. begin
  1519. Result := Boolean(SendMessage(hwnd, WM_CAP_SET_SCROLL, 0, LParam(lpP)));
  1520. end;
  1522. function capGrabFrame(hwnd:THandle):boolean;
  1523. begin
  1524.      Result := Boolean(SendMessage(hwnd, WM_CAP_GRAB_FRAME, 0, 0));
  1525. end;
  1527. function capGrabFrameNoStop(hwnd:THandle):boolean;
  1528. begin
  1529. Result := Boolean(SendMessage(hwnd, WM_CAP_GRAB_FRAME_NOSTOP, 0, 0));
  1530. end;
  1532. function capCaptureSequence(hwnd:THandle):boolean;
  1533. begin
  1534. Result := Boolean(SendMessage(hwnd, WM_CAP_SEQUENCE, 0, 0));
  1535. end;
  1537. function capCaptureSequenceNoFile(hwnd:THandle):boolean;
  1538. begin
  1539. Result :=Boolean(SendMessage(hwnd, WM_CAP_SEQUENCE_NOFILE, 0, 0));
  1540. end;
  1542. function capCaptureStop(hwnd:THandle):boolean;
  1543. begin
  1544. Result := Boolean(SendMessage(hwnd, WM_CAP_STOP, 0, 0));
  1545. end;
  1547. function capCaptureAbort(hwnd:THandle):Boolean;
  1548. begin
  1549. Result := Boolean(SendMessage(hwnd, WM_CAP_ABORT, 0, 0));
  1550. end;
  1552. function capCaptureSingleFrameOpen(hwnd:THandle):boolean;
  1553. begin
  1554. Result := Boolean(SendMessage(hwnd, WM_CAP_SINGLE_FRAME_OPEN, 0, 0));
  1555. end;
  1557. function capCaptureSingleFrameClose(hwnd:THandle):boolean ;
  1558. begin
  1559. Result := Boolean(SendMessage(hwnd, WM_CAP_SINGLE_FRAME_CLOSE, 0, 0));
  1560. end;
  1562. function capCaptureSingleFrame(hwnd:THandle):boolean;
  1563. begin
  1564. Result :=Boolean(SendMessage(hwnd, WM_CAP_SINGLE_FRAME, 0, 0));
  1565. end;
  1567. function capCaptureGetSetup(hwnd:THandle; s:pCaptureParms; wSize:Word):boolean;
  1568. begin
  1569. Result :=Boolean( SendMessage(hwnd, WM_CAP_GET_SEQUENCE_SETUP, WPARAM(wSize),LPARAM(s)));
  1570. end;
  1572. function capCaptureSetSetup(hwnd:THandle; s:pCaptureParms; wSize:Word):boolean;
  1573. begin
  1574. Result := Boolean (SendMessage(hwnd, WM_CAP_SET_SEQUENCE_SETUP, WParam(wSize),LParam(s)));
  1575. end;
  1577. function capSetMCIDeviceName(hwnd:THandle; szName:Pchar):Boolean;
  1578. begin
  1579. Result :=Boolean( SendMessage(hwnd, WM_CAP_SET_MCI_DEVICE, 0, LParam(szName)));
  1580. end;
  1582. function capGetMCIDeviceName(hwnd:THandle; szName:Pchar; wSize:Word):Boolean;
  1583. begin
  1584. Result := Boolean(SendMessage(hwnd, WM_CAP_GET_MCI_DEVICE, Wparam(wSize), LPARAM(szName)));
  1585. end;
  1587. function capPaletteOpen(hwnd:THandle; szName:PChar):Boolean;
  1588. begin
  1589. Result := Boolean(SendMessage(hwnd, WM_CAP_PAL_OPEN, 0, LParam(szName)));
  1590. end;
  1592. function capPaletteSave(hwnd:THandle; szName:PChar):boolean;
  1593. begin
  1594. Result := Boolean(SendMessage(hwnd, WM_CAP_PAL_SAVE, 0,LParam(szName)));
  1595. end;
  1597. function capPalettePaste(hwnd:THandle):Boolean;
  1598. begin
  1599. Result :=Boolean( SendMessage(hwnd, WM_CAP_PAL_PASTE, 0, 0));
  1600. end;
  1602. function capPaletteAuto(hwnd:THandle; iFrames:Word; iColors:word):Boolean;
  1603. begin
  1604. Result :=Boolean( SendMessage(hwnd, WM_CAP_PAL_AUTOCREATE, WPARAM(iFrames),LPARAM(iColors)));
  1605. end;
  1607. function capPaletteManual(hwnd:THandle; fGrab:Word; iColors:word):Boolean;
  1608. begin
  1609. Result := Boolean(SendMessage(hwnd, WM_CAP_PAL_MANUALCREATE, WPARAM(fGrab),LPARAM(iColors)));
  1610. end;
  1613. {== DrawDib functions ========================================================}
  1615. {-- DrawDibOpen() ------------------------------------------------------------}
  1617. function    DrawDibOpen: HDRAWDIB; stdcall; external VFWDLL;
  1619. {-- DrawDibClose() -----------------------------------------------------------}
  1621. function    DrawDibClose(hdd: HDRAWDIB): BOOL; stdcall; external VFWDLL;
  1623. {-- DrawDibGetBuffer() -------------------------------------------------------}
  1625. function    DrawDibGetBuffer(hdd: HDRAWDIB; lpbi: PBITMAPINFOHEADER; dwSize: DWORD; dwFlags: DWORD): Pointer; stdcall; external VFWDLL;
  1627. {-- DrawDibGetPalette() - get the palette used for drawing DIBs --------------}
  1629. function    DrawDibGetPalette(hdd: HDRAWDIB): HPALETTE; stdcall; external VFWDLL;
  1631. {-- DrawDibSetPalette() - set the palette used for drawing DIBs --------------}
  1633. function    DrawDibSetPalette(hdd: HDRAWDIB; hpal: HPALETTE): BOOL; stdcall; external VFWDLL;
  1635. {-- DrawDibChangePalette() ---------------------------------------------------}
  1637. function    DrawDibChangePalette(hdd: HDRAWDIB; iStart, iLen: integer; lppe: PPALETTEENTRY): BOOL; stdcall; external VFWDLL;
  1639. {-- DrawDibRealize() - realize the palette in a HDD --------------------------}
  1641. function    DrawDibRealize(hdd: HDRAWDIB; hdc: HDC; fBackground: BOOL): UINT; stdcall; external VFWDLL;
  1643. {-- DrawDibStart() - start of streaming playback -----------------------------}
  1645. function    DrawDibStart(hdd: HDRAWDIB; rate: DWORD): BOOL; stdcall; external VFWDLL;
  1647. {-- DrawDibStop() - start of streaming playback ------------------------------}
  1649. function    DrawDibStop(hdd: HDRAWDIB): BOOL; stdcall; external VFWDLL;
  1651. {-- DrawDibBegin() - prepare to draw -----------------------------------------}
  1653. function    DrawDibBegin(
  1654.     hdd         : HDRAWDIB;
  1655.     hdc         : HDC;
  1656.     dxDst       : integer;
  1657.     dyDst       : integer;
  1658.     lpbi        : PBITMAPINFOHEADER;
  1659.     dxSrc       : integer;
  1660.     dySrc       : integer;
  1661.     wFlags      : UINT
  1662.     ): BOOL; stdcall; external VFWDLL;
  1664. {-- DrawDibDraw() - actually draw a DIB to the screen ------------------------}
  1666. function    DrawDibDraw(
  1667.     hdd         : HDRAWDIB;
  1668.     hdc         : HDC;
  1669.     xDst        : integer;
  1670.     yDst        : integer;
  1671.     dxDst       : integer;
  1672.     dyDst       : integer;
  1673.     lpbi        : PBITMAPINFOHEADER;
  1674.     lpBits      : Pointer;
  1675.     xSrc        : integer;
  1676.     ySrc        : integer;
  1677.     dxSrc       : integer;
  1678.     dySrc       : integer;
  1679.     wFlags      : UINT
  1680.     ): BOOL; stdcall; external VFWDLL;
  1682. {-- DrawDibEnd() -------------------------------------------------------------}
  1684. function    DrawDibEnd(hdd: HDRAWDIB): BOOL; stdcall; external VFWDLL;
  1686. {-- DrawDibTime() - for debugging purposes only ------------------------------}
  1688. function    DrawDibTime(hdd: HDRAWDIB; lpddtime: PDRAWDIBTIME): BOOL; stdcall; external VFWDLL;
  1690. {-- Display profiling --------------------------------------------------------}
  1692. function    DrawDibProfileDisplay(lpbi: PBITMAPINFOHEADER): DWORD; stdcall; external VFWDLL;
  1697. // Installable Compression Manager
  1699. function    MKFOURCC( ch0, ch1, ch2, ch3: Char ): FOURCC;
  1700. begin
  1701.     Result := (DWord(Ord(ch0))) or
  1702.               (DWord(Ord(ch1)) shl 8) or
  1703.               (DWord(Ord(ch2)) shl 16) or
  1704.               (DWord(Ord(ch3)) shl 24);
  1705. end;
  1707. function    mmioFOURCC( ch0, ch1, ch2, ch3: Char ): FOURCC;
  1708. begin
  1709.     Result := MKFOURCC(ch0,ch1,ch2,ch3);
  1710. end;
  1712. function    aviTWOCC(ch0, ch1: Char): TWOCC;
  1713. begin
  1714.     Result := (Word(Ord(ch0))) or
  1715.               (Word(Ord(ch1)) shl 8);
  1716. end;
  1718. {-- Query macros -------------------------------------------------------------}
  1720. function    ICQueryAbout(hic: HIC): BOOL;
  1721. begin
  1722.     Result := ICSendMessage(hic, ICM_ABOUT, -1, ICMF_ABOUT_QUERY) = ICERR_OK;
  1723. end;
  1725. function    ICAbout(hic: HIC; hwnd: HWND): DWORD;
  1726. begin
  1727.     Result := ICSendMessage(hic, ICM_ABOUT, hwnd, 0);
  1728. end;
  1730. function    ICQueryConfigure(hic: HIC): BOOL;
  1731. begin
  1732.     Result := ICSendMessage(hic, ICM_CONFIGURE, -1, ICMF_CONFIGURE_QUERY) = ICERR_OK;
  1733. end;
  1735. function    ICConfigure(hic: HIC; hwnd: HWND): DWORD;
  1736. begin
  1737.     Result := ICSendMessage(hic, ICM_CONFIGURE, hwnd, 0);
  1738. end;
  1740. {-- Get/Set state macros -----------------------------------------------------}
  1742. function    ICGetState(hic: HIC; pv: Pointer; cb: DWORD): DWORD;
  1743. begin
  1744.     Result := ICSendMessage(hic, ICM_GETSTATE, DWORD(pv), cb);
  1745. end;
  1747. function    ICSetState(hic: HIC; pv: Pointer; cb: DWORD): DWORD;
  1748. begin
  1749.     Result := ICSendMessage(hic, ICM_SETSTATE, DWORD(pv), cb);
  1750. end;
  1752. function    ICGetStateSize(hic: HIC): DWORD;
  1753. begin
  1754.     Result := ICGetState(hic, nil, 0);
  1755. end;
  1757. {-- Get value macros ---------------------------------------------------------}
  1759. function    ICGetDefaultQuality(hic: HIC): DWORD;
  1760. begin
  1761.     ICSendMessage(hic, ICM_GETDEFAULTQUALITY, DWORD(@Result), sizeof(Result));
  1762. end;
  1764. function    ICGetDefaultKeyFrameRate(hic: HIC): DWORD;
  1765. begin
  1766.     ICSendMessage(hic, ICM_GETDEFAULTKEYFRAMERATE, DWORD(@Result), sizeof(Result));
  1767. end;
  1769. {-- Draw window macro --------------------------------------------------------}
  1771. function    ICDrawWindow(hic: HIC; prc: PRECT): DWORD;
  1772. begin
  1773.     Result := ICSendMessage(hic, ICM_DRAW_WINDOW, DWORD(prc), sizeof(prc^));
  1774. end;
  1776. {-- ICCompressBegin() - start compression from a source fmt to a dest fmt ----}
  1778. function    ICCompressBegin(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1779. begin
  1780.     Result := ICSendMessage(hic, ICM_COMPRESS_BEGIN, DWORD(lpbiInput), DWORD(lpbiOutput));
  1781. end;
  1783. {-- ICCompressQuery() - determines if compression from src to dst is supp ----}
  1785. function    ICCompressQuery(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1786. begin
  1787.     Result := ICSendMessage(hic, ICM_COMPRESS_QUERY, DWORD(lpbiInput), DWORD(lpbiOutput));
  1788. end;
  1790. {-- ICCompressGetFormat() - get the output format (fmt of compressed) --------}
  1792. // if lpbiOutput is nil return the size in bytes needed for format.
  1794. function    ICCompressGetFormat(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1795. begin
  1796.     Result := ICSendMessage(hic, ICM_COMPRESS_GET_FORMAT, DWORD(lpbiInput), DWORD(lpbiOutput));
  1797. end;
  1799. function    ICCompressGetFormatSize(hic: HIC; lpbi: PBITMAPINFOHEADER): DWORD;
  1800. begin
  1801.     Result := ICCompressGetFormat(hic, lpbi, nil);
  1802. end;
  1804. {-- ICCompressSize() - return the maximal size of a compressed frame ---------}
  1806. function    ICCompressGetSize(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1807. begin
  1808.     Result := ICSendMessage(hic, ICM_COMPRESS_GET_SIZE, DWORD(lpbiInput), DWORD(lpbiOutput));
  1809. end;
  1811. function    ICCompressEnd(hic: HIC): DWORD;
  1812. begin
  1813.     Result := ICSendMessage(hic, ICM_COMPRESS_END, 0, 0);
  1814. end;
  1816. {-- ICDecompressBegin() - start compression from src fmt to a dest fmt -------}
  1818. function    ICDecompressBegin(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1819. begin
  1820.     Result := ICSendMessage(hic, ICM_DECOMPRESS_BEGIN, DWORD(lpbiInput), DWORD(lpbiOutput));
  1821. end;
  1823. {-- ICDecompressQuery() - determines if compression is supported -------------}
  1825. function    ICDecompressQuery(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1826. begin
  1827.     Result := ICSendMessage(hic, ICM_DECOMPRESS_QUERY, DWORD(lpbiInput), DWORD(lpbiOutput));
  1828. end;
  1830. {-- ICDecompressGetFormat - get the output fmt (fmt of uncompressed data) ----}
  1832. // if lpbiOutput is NULL return the size in bytes needed for format.
  1834. function    ICDecompressGetFormat(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1835. begin
  1836.     Result := ICSendMessage(hic, ICM_DECOMPRESS_GET_FORMAT, DWORD(lpbiInput), DWORD(lpbiOutput));
  1837. end;
  1839. function    ICDecompressGetFormatSize(hic: HIC; lpbi: PBITMAPINFOHEADER): DWORD;
  1840. begin
  1841.     Result := ICDecompressGetFormat(hic, lpbi, nil);
  1842. end;
  1844. {-- ICDecompressGetPalette() - get the output palette ------------------------}
  1846. function    ICDecompressGetPalette(hic: HIC; lpbiInput, lpbiOutput: PBITMAPINFOHEADER): DWORD;
  1847. begin
  1848.     Result := ICSendMessage(hic, ICM_DECOMPRESS_GET_PALETTE, DWORD(lpbiInput), DWORD(lpbiOutput));
  1849. end;
  1851. function    ICDecompressSetPalette(hic: HIC; lpbiPalette: PBITMAPINFOHEADER): DWORD;
  1852. begin
  1853.     Result := ICSendMessage(hic, ICM_DECOMPRESS_SET_PALETTE, DWORD(lpbiPalette), 0);
  1854. end;
  1856. function    ICDecompressEnd(hic: HIC): DWORD;
  1857. begin
  1858.     Result := ICSendMessage(hic, ICM_DECOMPRESS_END, 0, 0);
  1859. end;
  1861. {-- ICM function declarations ------------------------------------------------}
  1863. function    ICInfo(fccType, fccHandler: DWORD; lpicinfo: PICINFO) : BOOL ; stdcall ; external VFWDLL;
  1864. function    ICInstall(fccType, fccHandler: DWORD; lParam: LPARAM; szDesc: LPSTR; wFlags: UINT) : BOOL ; stdcall ; external VFWDLL;
  1865. function    ICRemove(fccType, fccHandler: DWORD; wFlags: UINT) : BOOL ; stdcall ; external VFWDLL;
  1866. function    ICGetInfo(hic: HIC; picinfo: PICINFO; cb: DWORD) : DWORD ; stdcall ; external VFWDLL;
  1868. function    ICOpen(fccType, fccHandler: DWORD; wMode: UINT) : HIC ; stdcall ; external VFWDLL;
  1869. function    ICOpenFunction(fccType, fccHandler: DWORD; wMode: UINT; lpfnHandler: TFarProc) : HIC ; stdcall ; external VFWDLL;
  1870. function    ICClose(hic: HIC) : DWORD ; stdcall ; external VFWDLL;
  1872. function    ICSendMessage(hic: HIC; msg: UINT; dw1, dw2: integer) : DWORD ; stdcall ; external VFWDLL;
  1874. {== Compression functions ====================================================}
  1876. {-- ICCompress() - compress a single frame -----------------------------------}
  1878. function    ICCompress(
  1879.     hic             : HIC;
  1880.     dwFlags         : DWORD;                // flags
  1881.     lpbiOutput      : PBITMAPINFOHEADER;    // output format
  1882.     lpData          : Pointer;                // output data
  1883.     lpbiInput       : PBITMAPINFOHEADER;    // format of frame to compress
  1884.     lpBits          : Pointer;                // frame data to compress
  1885.     lpckid          : PDWORD;               // ckid for data in AVI file
  1886.     lpdwFlags       : PDWORD;               // flags in the AVI index.
  1887.     lFrameNum       : DWORD;                 // frame number of seq.
  1888.     dwFrameSize     : DWORD;                // reqested size in bytes. (if non zero)
  1889.     dwQuality       : DWORD;                // quality within one frame
  1890.     lpbiPrev        : PBITMAPINFOHEADER;    // format of previous frame
  1891.     lpPrev          : Pointer                 // previous frame
  1892.     ) : DWORD; cdecl; external VFWDLL;
  1894. {== Decompression functions ==================================================}
  1896. {-- ICDecompress() - decompress a single frame -------------------------------}
  1898. function    ICDecompress(
  1899.     hic             : HIC;
  1900.     dwFlags         : DWORD;                // flags (from AVI index...)
  1901.     lpbiFormat      : PBITMAPINFOHEADER;    // BITMAPINFO of compressed data
  1902.                                             // biSizeImage has the chunk size
  1903.     lpData          : Pointer;                // data
  1904.     lpbi            : PBITMAPINFOHEADER;    // DIB to decompress to
  1905.     lpBits          : Pointer
  1906.     ): DWORD; cdecl; external VFWDLL;
  1908. {== Drawing functions ========================================================}
  1910. {-- ICDrawBegin() - start decompressing data with fmt directly to screen -----}
  1912. // return zero if the decompressor supports drawing.
  1914. function    ICDrawBegin(
  1915.     hic         : HIC;
  1916.     dwFlags     : DWORD;                // flags
  1917.     hpal        : HPALETTE;             // palette to draw with
  1918.     hwnd        : HWND;                 // window to draw to
  1919.     hdc         : HDC;                  // HDC to draw to
  1920.     xDst        : integer;                  // destination rectangle
  1921.     yDst        : integer;
  1922.     dxDst       : integer;
  1923.     dyDst       : integer;
  1924.     lpbi        : PBITMAPINFOHEADER;    // format of frame to draw
  1925.     xSrc        : integer;                  // source rectangle
  1926.     ySrc        : integer;
  1927.     dxSrc       : integer;
  1928.     dySrc       : integer;
  1929.     dwRate      : DWORD;                // frames/second = (dwRate/dwScale)
  1930.     dwScale     : DWORD
  1931.     ): DWORD; cdecl; external VFWDLL;
  1933. {-- ICDraw() - decompress data directly to the screen ------------------------}
  1935. function    ICDraw(
  1936.     hic         : HIC;
  1937.     dwFlags     : DWORD;                // flags
  1938.     lpFormat    : Pointer;                // format of frame to decompress
  1939.     lpData      : Pointer;                // frame data to decompress
  1940.     cbData      : DWORD;                // size of data
  1941.     lTime       : DWORD                  // time to draw this frame
  1942.     ): DWORD; cdecl; external VFWDLL;
  1944. {== Helper routines for DrawDib and MCIAVI... ================================}
  1946. function    ICLocate(fccType, fccHandler: DWORD; lpbiIn, lpbiOut: PBITMAPINFOHEADER; wFlags: WORD): HIC; stdcall; external VFWDLL;
  1947. function    ICGetDisplayFormat(hic: HIC; lpbiIn, lpbiOut: PBITMAPINFOHEADER; BitDepth: integer; dx, dy: integer): HIC; stdcall; external VFWDLL;
  1949. {== Higher level functions ===================================================}
  1951. function    ICImageCompress(
  1952.     hic         : HIC;                  // compressor to use
  1953.     uiFlags     : UINT;                 // flags (none yet)
  1954.     lpbiIn      : PBITMAPINFO;          // format to compress from
  1955.     lpBits      : Pointer;                // data to compress
  1956.     lpbiOut     : PBITMAPINFO;          // compress to this (NULL ==> default)
  1957.     lQuality    : DWORD;                 // quality to use
  1958.     plSize      : PDWORD                 // compress to this size (0=whatever)
  1959.     ): THANDLE; stdcall; external VFWDLL;
  1961. function    ICImageDecompress(
  1962.     hic         : HIC;                  // compressor to use
  1963.     uiFlags     : UINT;                 // flags (none yet)
  1964.     lpbiIn      : PBITMAPINFO;          // format to decompress from
  1965.     lpBits      : Pointer;                // data to decompress
  1966.     lpbiOut     : PBITMAPINFO           // decompress to this (NULL ==> default)
  1967.     ): THANDLE; stdcall; external VFWDLL;
  1969. {-- ICCompressorChoose() - allows user to choose compressor, quality etc... --}
  1971. function    ICCompressorChoose(
  1972.     hwnd        : HWND;                     // parent window for dialog
  1973.     uiFlags     : UINT;                     // flags
  1974.     pvIn        : Pointer;                    // input format (optional)
  1975.     lpData      : Pointer;                    // input data (optional)
  1976.     pc          : PCOMPVARS;                // data about the compressor/dlg
  1977.     lpszTitle   : LPSTR                     // dialog title (optional)
  1978.     ): BOOL; stdcall; external VFWDLL;
  1980. function    ICSeqCompressFrameStart(pc: PCOMPVARS; lpbiIn: PBITMAPINFO): BOOL; stdcall; external VFWDLL;
  1981. procedure   ICSeqCompressFrameEnd(pc: PCOMPVARS); stdcall; external VFWDLL;
  1983. function    ICSeqCompressFrame(
  1984.     pc          : PCOMPVARS;                // set by ICCompressorChoose
  1985.     uiFlags     : UINT;                     // flags
  1986.     lpBits      : Pointer;                    // input DIB bits
  1987.     pfKey       : PBOOL;                    // did it end up being a key frame?
  1988.     plSize      : PDWORD                     // size to compress to/of returned image
  1989.     ): Pointer; stdcall; external VFWDLL;
  1991. procedure   ICCompressorFree(pc: PCOMPVARS); stdcall; external VFWDLL;
  1993. {-- ICDecompressEx() - decompress a single frame -----------------------------}
  1995. function    ICDecompressEx(
  1996.     hic     : HIC;
  1997.     dwFlags : DWORD;
  1998.     lpbiSrc : PBITMAPINFOHEADER;
  1999.     lpSrc   : Pointer;
  2000.     xSrc    : integer;
  2001.     ySrc    : integer;
  2002.     dxSrc   : integer;
  2003.     dySrc   : integer;
  2004.     lpbiDst : PBITMAPINFOHEADER;
  2005.     lpDst   : Pointer;
  2006.     xDst    : integer;
  2007.     yDst    : integer;
  2008.     dxDst   : integer;
  2009.     dyDst   : integer
  2010.     ): DWORD; stdcall;
  2011. var
  2012.     ic : TICDECOMPRESSEX;
  2013. begin
  2014.     ic.dwFlags  := dwFlags;
  2015.     ic.lpbiSrc  := lpbiSrc;
  2016.     ic.lpSrc    := lpSrc;
  2017.     ic.xSrc     := xSrc;
  2018.     ic.ySrc     := ySrc;
  2019.     ic.dxSrc    := dxSrc;
  2020.     ic.dySrc    := dySrc;
  2021.     ic.lpbiDst  := lpbiDst;
  2022.     ic.lpDst    := lpDst;
  2023.     ic.xDst     := xDst;
  2024.     ic.yDst     := yDst;
  2025.     ic.dxDst    := dxDst;
  2026.     ic.dyDst    := dyDst;
  2028.     // note that ICM swaps round the length and pointer
  2029.     // length in lparam2, pointer in lparam1
  2030.     Result := ICSendMessage(hic, ICM_DECOMPRESSEX, DWORD(@ic), sizeof(ic));
  2031. end;
  2033. {-- ICDecompressExBegin() - start compression from a src fmt to a dest fmt ---}
  2035. function    ICDecompressExBegin(
  2036.     hic     : HIC;
  2037.     dwFlags : DWORD;
  2038.     lpbiSrc : PBITMAPINFOHEADER;
  2039.     lpSrc   : Pointer;
  2040.     xSrc    : integer;
  2041.     ySrc    : integer;
  2042.     dxSrc   : integer;
  2043.     dySrc   : integer;
  2044.     lpbiDst : PBITMAPINFOHEADER;
  2045.     lpDst   : Pointer;
  2046.     xDst    : integer;
  2047.     yDst    : integer;
  2048.     dxDst   : integer;
  2049.     dyDst   : integer
  2050.     ): DWORD; stdcall;
  2051. var
  2052.     ic : TICDECOMPRESSEX ;
  2053. begin
  2054.     ic.dwFlags  := dwFlags;
  2055.     ic.lpbiSrc  := lpbiSrc;
  2056.     ic.lpSrc    := lpSrc;
  2057.     ic.xSrc     := xSrc;
  2058.     ic.ySrc     := ySrc;
  2059.     ic.dxSrc    := dxSrc;
  2060.     ic.dySrc    := dySrc;
  2061.     ic.lpbiDst  := lpbiDst;
  2062.     ic.lpDst    := lpDst;
  2063.     ic.xDst     := xDst;
  2064.     ic.yDst     := yDst;
  2065.     ic.dxDst    := dxDst;
  2066.     ic.dyDst    := dyDst;
  2068.     // note that ICM swaps round the length and pointer
  2069.     // length in lparam2, pointer in lparam1
  2070.     Result      := ICSendMessage(hic, ICM_DECOMPRESSEX_BEGIN, DWORD(@ic), sizeof(ic));
  2071. end;
  2073. {-- ICDecompressExQuery() ----------------------------------------------------}
  2075. function    ICDecompressExQuery(
  2076.     hic     : HIC;
  2077.     dwFlags : DWORD;
  2078.     lpbiSrc : PBITMAPINFOHEADER;
  2079.     lpSrc   : Pointer;
  2080.     xSrc    : integer;
  2081.     ySrc    : integer;
  2082.     dxSrc   : integer;
  2083.     dySrc   : integer;
  2084.     lpbiDst : PBITMAPINFOHEADER;
  2085.     lpDst   : Pointer;
  2086.     xDst    : integer;
  2087.     yDst    : integer;
  2088.     dxDst   : integer;
  2089.     dyDst   : integer
  2090.     ): DWORD; stdcall;
  2091. var
  2092.     ic : TICDECOMPRESSEX;
  2093. begin
  2094.     ic.dwFlags  := dwFlags;
  2095.     ic.lpbiSrc  := lpbiSrc;
  2096.     ic.lpSrc    := lpSrc;
  2097.     ic.xSrc     := xSrc;
  2098.     ic.ySrc     := ySrc;
  2099.     ic.dxSrc    := dxSrc;
  2100.     ic.dySrc    := dySrc;
  2101.     ic.lpbiDst  := lpbiDst;
  2102.     ic.lpDst    := lpDst;
  2103.     ic.xDst     := xDst;
  2104.     ic.yDst     := yDst;
  2105.     ic.dxDst    := dxDst;
  2106.     ic.dyDst    := dyDst;
  2108.     // note that ICM swaps round the length and pointer
  2109.     // length in lparam2, pointer in lparam1
  2110.     Result      := ICSendMessage(hic, ICM_DECOMPRESSEX_QUERY, DWORD(@ic), sizeof(ic));
  2111. end;
  2113. function    ICDecompressExEnd(hic: HIC): DWORD;
  2114. begin
  2115.     Result := ICSendMessage(hic, ICM_DECOMPRESSEX_END, 0, 0)
  2116. end;
  2118. function    ICDrawSuggestFormat(
  2119.     hic         : HIC;
  2120.     lpbiIn      : PBITMAPINFOHEADER;
  2121.     lpbiOut     : PBITMAPINFOHEADER;
  2122.     dxSrc       : integer;
  2123.     dySrc       : integer;
  2124.     dxDst       : integer;
  2125.     dyDst       : integer;
  2126.     hicDecomp   : HIC
  2127.     ): DWORD; stdcall;
  2128. var
  2129.     ic : TICDRAWSUGGEST;
  2130. begin
  2131.     ic.lpbiIn           := lpbiIn;
  2132.     ic.lpbiSuggest      := lpbiOut;
  2133.     ic.dxSrc            := dxSrc;
  2134.     ic.dySrc            := dySrc;
  2135.     ic.dxDst            := dxDst;
  2136.     ic.dyDst            := dyDst;
  2137.     ic.hicDecompressor  := hicDecomp;
  2139.     // note that ICM swaps round the length and pointer
  2140.     // length in lparam2, pointer in lparam1
  2141.     Result := ICSendMessage(hic, ICM_DRAW_SUGGESTFORMAT, DWORD(@ic), sizeof(ic));
  2142. end;
  2144. {-- ICDrawQuery() - determines if the compressor is willing to render fmt ----}
  2146. function    ICDrawQuery(hic: HIC; lpbiInput: PBITMAPINFOHEADER): DWORD;
  2147. begin
  2148.     Result := ICSendMessage(hic, ICM_DRAW_QUERY, DWORD(lpbiInput), 0);
  2149. end;
  2151. function    ICDrawChangePalette(hic: HIC; lpbiInput: PBITMAPINFOHEADER): DWORD;
  2152. begin
  2153.     Result := ICSendMessage(hic, ICM_DRAW_CHANGEPALETTE, DWORD(lpbiInput), 0);
  2154. end;
  2156. function    ICGetBuffersWanted(hic: HIC; lpdwBuffers: PDWORD): DWORD;
  2157. begin
  2158.     Result := ICSendMessage(hic, ICM_GETBUFFERSWANTED, DWORD(lpdwBuffers), 0);
  2159. end;
  2161. function    ICDrawEnd(hic: HIC): DWORD;
  2162. begin
  2163.     Result := ICSendMessage(hic, ICM_DRAW_END, 0, 0);
  2164. end;
  2166. function    ICDrawStart(hic: HIC): DWORD;
  2167. begin
  2168.     Result := ICSendMessage(hic, ICM_DRAW_START, 0, 0);
  2169. end;
  2171. function    ICDrawStartPlay(hic: HIC; lFrom, lTo: DWORD): DWORD;
  2172. begin
  2173.     Result := ICSendMessage(hic, ICM_DRAW_START_PLAY, lFrom, lTo);
  2174. end;
  2176. function    ICDrawStop(hic: HIC): DWORD;
  2177. begin
  2178.     Result := ICSendMessage(hic, ICM_DRAW_STOP, 0, 0);
  2179. end;
  2181. function    ICDrawStopPlay(hic: HIC): DWORD;
  2182. begin
  2183.     Result := ICSendMessage(hic, ICM_DRAW_STOP_PLAY, 0, 0);
  2184. end;
  2186. function    ICDrawGetTime(hic: HIC; lplTime: PDWORD): DWORD;
  2187. begin
  2188.     Result := ICSendMessage(hic, ICM_DRAW_GETTIME, DWORD(lplTime), 0);
  2189. end;
  2191. function    ICDrawSetTime(hic: HIC; lTime: DWORD): DWORD;
  2192. begin
  2193.     Result := ICSendMessage(hic, ICM_DRAW_SETTIME, lTime, 0);
  2194. end;
  2196. function    ICDrawRealize(hic: HIC; hdc: HDC; fBackground: BOOL): DWORD;
  2197. begin
  2198.     Result := ICSendMessage(hic, ICM_DRAW_REALIZE, DWORD(hdc), DWORD(fBackground));
  2199. end;
  2201. function    ICDrawFlush(hic: HIC): DWORD;
  2202. begin
  2203.     Result := ICSendMessage(hic, ICM_DRAW_FLUSH, 0, 0);
  2204. end;
  2206. function    ICDrawRenderBuffer(hic: HIC): DWORD;
  2207. begin
  2208.     Result := ICSendMessage(hic, ICM_DRAW_RENDERBUFFER, 0, 0);
  2209. end;
  2211. {-- ICSetStatusProc() - Set the status callback function ---------------------}
  2213. // ICMessage is not supported on NT
  2215. function    ICSetStatusProc(
  2216.     hic         : HIC;
  2217.     dwFlags     : DWORD;
  2218.     lParam      : DWORD;
  2219.     fpfnStatus  : TICStatusProc
  2220.     ): DWORD; stdcall;
  2221. var
  2222.     ic : TICSETSTATUSPROC;
  2223. begin
  2224.     ic.dwFlags  := dwFlags;
  2225.     ic.lParam   := lParam;
  2226.     ic.Status   := fpfnStatus;
  2228.     // note that ICM swaps round the length and pointer
  2229.     // length in lparam2, pointer in lparam1
  2230.     Result      := ICSendMessage(hic, ICM_SET_STATUS_PROC, DWORD(@ic), sizeof(ic));
  2231. end;
  2233. {== Helper routines for DrawDib and MCIAVI... ================================}
  2235. function    ICDecompressOpen(fccType, fccHandler: DWORD; lpbiIn, lpbiOut: PBITMAPINFOHEADER): HIC;
  2236. begin
  2237.     Result := ICLocate(fccType, fccHandler, lpbiIn, lpbiOut, ICMODE_DECOMPRESS);
  2238. end;
  2240. function    ICDrawOpen(fccType, fccHandler: DWORD; lpbiIn: PBITMAPINFOHEADER): HIC;
  2241. begin
  2242.     Result := ICLocate(fccType, fccHandler, lpbiIn, nil, ICMODE_DRAW);
  2243. end;
  2246. end.