vfwpas(delphi摄像头编程vfw)

《vfwpas(delphi摄像头编程vfw)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、{*******************************************************************************Originalauthorunknown.ModifiedforDelphi3/4COMsyntaxbyTomNuydens(delphi3d@gamedeveloper.org)(www.gamedeveloper.org/delphi3d)*******************************************************************************}unitVFW;interface

2、usesWindows,MMSystem,Messages,CommDlg,ActiveX;{==General==================================================================}typePDWORD=^DWORD;PLONG=PDWORD;UDWORD=DWORD;PVOID=Pointer;int=Integer;{--ReturnsversionofVFW---------------------------------------------------}functionVideoForWindowsVersion:DW

3、ord;pascal;{--CallthesetostartstopusingVfWfromyourapp-------------------------}{TODO:Wherearethesefunctions?}//functionInitVFW:DWORD;stdcall;//functionTermVFW:DWORD;stdcall;{--Macros-------------------------------------------------------------------}functionMKFOURCC(ch0,ch1,ch2,ch3:Char):FOURCC;{==C

4、OMPMAN-InstallableCompressionManager================================}constICVERSION=$0104;typeHIC=THandle;//HandletoanInstallableCompressor////thiscodeinbiCompressionmeanstheDIBmustbeaccesedvia//48bitpointers!using*ONLY*theselectorgiven.//constBI_1632=$32333631;//'1632'functionmmioFOURCC(ch0,ch1,ch2

5、,ch3:Char):FOURCC;typeTWOCC=Word;functionaviTWOCC(ch0,ch1:Char):TWOCC;constICTYPE_VIDEO=$63646976;//mmioFOURCC('v','i','d','c')ICTYPE_AUDIO=$63647561;//mmioFOURCC('a','u','d','c')constICERR_OK=0;ICERR_DONTDRAW=1;ICERR_NEWPALETTE=2;ICERR_GOTOKEYFRAME=3;ICERR_STOPDRAWING=4;ICERR_UNSUPPORTED=-1;ICERR_B

6、ADFORMAT=-2;ICERR_MEMORY=-3;ICERR_INTERNAL=-4;ICERR_BADFLAGS=-5;ICERR_BADPARAM=-6;ICERR_BADSIZE=-7;ICERR_BADHANDLE=-8;ICERR_CANTUPDATE=-9;ICERR_ABORT=-10;ICERR_ERROR=-100;ICERR_BADBITDEPTH=-200;ICERR_BADIMAGESIZE=-201;ICERR_CUSTOM=-400;//errorslessthanICERR_CUSTOM...{--ValuesfordwFlagsofICOpen()----

7、---------------------------------------}ICMODE_COMPRESS=1;ICMODE_DECOMPRESS=2;ICMODE_FASTDECOMPRESS=3;ICMODE_QUERY=4;ICMODE_FASTCOMPRESS=5;ICMODE_DRAW=8;{--FlagsforAVIfileindex------------------------