unit_dll.pas

一个关于Delphi获取摄像头视频的例子

Unit Unit_Dll;
{
This File Create By PasAnyWhere1.2
Author:[e-mail].

Use
eg: Cjt_SaveDllToFile('C:\Dll.dll');
------- 

History:
------- 

PasAnyWhere1.0(2003.10.10)
  Original Version.Only SaveToFile,Use TFileStream.

PasAnyWhere1.1(2004.01.08)
  SaveToFile,Use File Handle.

PasAnyWhere1.2(2004.01.16)
  Add SaveToStream Function.

}
interface
uses
   Windows;
type
TBuf=array[0..255] of Byte;
const

Buf256_0:TBuf=(
$4D,$5A,$50,$00,$02,$00,$00,$00,
$04,$00,$0F,$00,$FF,$FF,$00,$00,
$B8,$00,$00,$00,$00,$00,$00,$00,
$40,$00,$1A,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$01,$00,$00,
$BA,$10,$00,$0E,$1F,$B4,$09,$CD,
$21,$B8,$01,$4C,$CD,$21,$90,$90,
$54,$68,$69,$73,$20,$70,$72,$6F,
$67,$72,$61,$6D,$20,$6D,$75,$73,
$74,$20,$62,$65,$20,$72,$75,$6E,
$20,$75,$6E,$64,$65,$72,$20,$57,
$69,$6E,$33,$32,$0D,$0A,$24,$37,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00
);

Buf256_1:TBuf=(
$50,$45,$00,$00,$4C,$01,$06,$00,
$19,$5E,$42,$2A,$00,$00,$00,$00,
$00,$00,$00,$00,$E0,$00,$8E,$A1,
$0B,$01,$02,$19,$00,$1C,$01,$00,
$00,$28,$00,$00,$00,$00,$00,$00,
$88,$29,$01,$00,$00,$10,$00,$00,
$00,$30,$01,$00,$00,$00,$80,$57,
$00,$10,$00,$00,$00,$02,$00,$00,
$04,$00,$00,$00,$00,$00,$00,$00,
$04,$00,$00,$00,$00,$00,$00,$00,
$00,$80,$01,$00,$00,$04,$00,$00,
$00,$00,$00,$00,$02,$00,$01,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$10,$00,$00,$10,$00,$00,
$00,$00,$00,$00,$10,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$50,$01,$00,$F2,$09,$00,$00,
$00,$70,$01,$00,$00,$02,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$60,$01,$00,$A8,$0C,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$43,$4F,$44,$45,$00,$00,$00,$00
);

Buf256_2:TBuf=(
$14,$1A,$01,$00,$00,$10,$00,$00,
$00,$1C,$01,$00,$00,$04,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$20,$00,$00,$60,
$44,$41,$54,$41,$00,$00,$00,$00,
$A0,$0C,$00,$00,$00,$30,$01,$00,
$00,$0E,$00,$00,$00,$20,$01,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$40,$00,$00,$C0,
$42,$53,$53,$00,$00,$00,$00,$00,
$25,$07,$00,$00,$00,$40,$01,$00,
$00,$00,$00,$00,$00,$2E,$01,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$C0,
$2E,$69,$64,$61,$74,$61,$00,$00,
$F2,$09,$00,$00,$00,$50,$01,$00,
$00,$0A,$00,$00,$00,$2E,$01,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$40,$00,$00,$C0,
$2E,$72,$65,$6C,$6F,$63,$00,$00,
$A8,$0C,$00,$00,$00,$60,$01,$00,
$00,$0E,$00,$00,$00,$38,$01,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$40,$00,$00,$50,
$2E,$72,$73,$72,$63,$00,$00,$00,
$00,$02,$00,$00,$00,$70,$01,$00,
$00,$02,$00,$00,$00,$46,$01,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$40,$00,$00,$50,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$80,$01,$00,
$00,$00,$00,$00,$00,$48,$01,$00
);

Buf256_3:TBuf=(
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$40,$00,$00,$50,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00
);

Buf256_4:TBuf=(
$04,$10,$80,$57,$01,$08,$43,$61,
$72,$64,$69,$6E,$61,$6C,$05,$00,
$00,$00,$00,$FF,$FF,$FF,$FF,$90,
$1C,$10,$80,$57,$0A,$06,$53,$74,
$72,$69,$6E,$67,$70,$10,$80,$57,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$70,$10,$80,$57,
$04,$00,$00,$00,$00,$00,$00,$00,
$CC,$29,$80,$57,$D8,$29,$80,$57,
$DC,$29,$80,$57,$E0,$29,$80,$57,
$D4,$29,$80,$57,$D0,$28,$80,$57,
$EC,$28,$80,$57,$08,$29,$80,$57,
$07,$54,$4F,$62,$6A,$65,$63,$74,
$FF,$25,$1C,$51,$81,$57,$8B,$C0,
$FF,$25,$18,$51,$81,$57,$8B,$C0,
$FF,$25,$14,$51,$81,$57,$8B,$C0,
$FF,$25,$10,$51,$81,$57,$8B,$C0,
$FF,$25,$0C,$51,$81,$57,$8B,$C0,
$FF,$25,$08,$51,$81,$57,$8B,$C0,
$FF,$25,$28,$51,$81,$57,$8B,$C0,
$FF,$25,$04,$51,$81,$57,$8B,$C0,
$FF,$25,$00,$51,$81,$57,$8B,$C0,
$FF,$25,$FC,$50,$81,$57,$8B,$C0,
$FF,$25,$F8,$50,$81,$57,$8B,$C0,
$FF,$25,$F4,$50,$81,$57,$8B,$C0,
$FF,$25,$38,$51,$81,$57,$8B,$C0,
$FF,$25,$34,$51,$81,$57,$8B,$C0,
$FF,$25,$30,$51,$81,$57,$8B,$C0,
$FF,$25,$F0,$50,$81,$57,$8B,$C0,
$FF,$25,$44,$51,$81,$57,$8B,$C0
);

Buf256_5:TBuf=(
$FF,$25,$40,$51,$81,$57,$8B,$C0,
$FF,$25,$EC,$50,$81,$57,$8B,$C0,
$FF,$25,$E8,$50,$81,$57,$8B,$C0,
$53,$83,$C4,$BC,$BB,$0A,$00,$00,
$00,$54,$E8,$A1,$FF,$FF,$FF,$F6,
$44,$24,$2C,$01,$74,$05,$0F,$B7,
$5C,$24,$30,$8B,$C3,$83,$C4,$44,
$5B,$C3,$8B,$C0,$FF,$25,$E4,$50,
$81,$57,$8B,$C0,$FF,$25,$E0,$50,
$81,$57,$8B,$C0,$FF,$25,$DC,$50,
$81,$57,$8B,$C0,$FF,$25,$D8,$50,
$81,$57,$8B,$C0,$FF,$25,$D4,$50,
$81,$57,$8B,$C0,$FF,$25,$D0,$50,
$81,$57,$8B,$C0,$FF,$25,$CC,$50,
$81,$57,$8B,$C0,$FF,$25,$C8,$50,
$81,$57,$8B,$C0,$53,$56,$BE,$D8,
$45,$81,$57,$83,$3E,$00,$75,$3A,
$68,$44,$06,$00,$00,$6A,$00,$E8,
$A8,$FF,$FF,$FF,$8B,$C8,$85,$C9,
$75,$05,$33,$C0,$5E,$5B,$C3,$A1,
$D4,$45,$81,$57,$89,$01,$89,$0D,
$D4,$45,$81,$57,$33,$D2,$8B,$C2,
$03,$C0,$8D,$44,$C1,$04,$8B,$1E,
$89,$18,$89,$06,$42,$83,$FA,$64,
$75,$EC,$8B,$06,$8B,$10,$89,$16,
$5E,$5B,$C3,$90,$89,$00,$89,$40,
$04,$C3,$8B,$C0,$53,$56,$8B,$F2,
$8B,$D8,$E8,$9D,$FF,$FF,$FF,$85,
$C0,$75,$05,$33,$C0,$5E,$5B,$C3,
$8B,$16,$89,$50,$08,$8B,$56,$04,
$89,$50,$0C,$8B,$13,$89,$10,$89,
$58,$04,$89,$42,$04,$89,$03,$B0
);

Buf256_6:TBuf=(
$01,$5E,$5B,$C3,$8B,$50,$04,$8B,
$08,$89,$0A,$89,$51,$04,$8B,$15,
$D8,$45,$81,$57,$89,$10,$A3,$D8,
$45,$81,$57,$C3,$53,$56,$57,$55,
$51,$8B,$F1,$89,$14,$24,$8B,$E8,
$8B,$5D,$00,$8B,$04,$24,$8B,$10,
$89,$16,$8B,$50,$04,$89,$56,$04,
$8B,$3B,$8B,$06,$8B,$53,$08,$03,
$53,$0C,$3B,$C2,$75,$14,$8B,$C3,
$E8,$B7,$FF,$FF,$FF,$8B,$43,$08,
$89,$06,$8B,$43,$0C,$01,$46,$04,
$EB,$15,$03,$46,$04,$3B,$43,$08,
$75,$0D,$8B,$C3,$E8,$9B,$FF,$FF,
$FF,$8B,$43,$0C,$01,$46,$04,$8B,
$DF,$3B,$EB,$75,$C3,$8B,$D6,$8B,
$C5,$E8,$56,$FF,$FF,$FF,$84,$C0,
$75,$04,$33,$C0,$89,$06,$5A,$5D,
$5F,$5E,$5B,$C3,$53,$56,$57,$55,
$83,$C4,$F8,$8B,$D8,$8B,$FB,$8B,
$32,$8B,$43,$08,$3B,$F0,$72,$70,
$8B,$CE,$03,$4A,$04,$8B,$E8,$03,
$6B,$0C,$3B,$CD,$77,$62,$3B,$F0,
$75,$1B,$8B,$42,$04,$01,$43,$08,
$8B,$42,$04,$29,$43,$0C,$83,$7B,
$0C,$00,$75,$48,$8B,$C3,$E8,$39,
$FF,$FF,$FF,$EB,$3F,$8B,$CE,$8B,
$7A,$04,$03,$CF,$8B,$E8,$03,$6B,
$0C,$3B,$CD,$75,$05,$29,$7B,$0C,
$EB,$2A,$8B,$0A,$03,$4A,$04,$89,
$0C,$24,$8B,$7B,$08,$03,$7B,$0C,
$2B,$F9,$89,$7C,$24,$04,$2B,$F0,
$89,$73,$0C,$8B,$D4,$8B,$C3,$E8
);

Buf256_7:TBuf=(
$D0,$FE,$FF,$FF,$84,$C0,$75,$04,
$33,$C0,$EB,$0C,$B0,$01,$EB,$08,
$8B,$1B,$3B,$FB,$75,$81,$33,$C0,
$59,$5A,$5D,$5F,$5E,$5B,$C3,$90,
$53,$56,$57,$8B,$DA,$8B,$F0,$81,
$FE,$00,$00,$10,$00,$7D,$07,$BE,
$00,$00,$10,$00,$EB,$0C,$81,$C6,
$FF,$FF,$00,$00,$81,$E6,$00,$00,
$FF,$FF,$89,$73,$04,$6A,$01,$68,
$00,$20,$00,$00,$56,$6A,$00,$E8,
$F8,$FD,$FF,$FF,$8B,$F8,$89,$3B,
$85,$FF,$74,$23,$8B,$D3,$B8,$DC,
$45,$81,$57,$E8,$6C,$FE,$FF,$FF,
$84,$C0,$75,$13,$68,$00,$80,$00,
$00,$6A,$00,$8B,$03,$50,$E8,$D9,
$FD,$FF,$FF,$33,$C0,$89,$03,$5F,
$5E,$5B,$C3,$90,$53,$56,$57,$55,
$8B,$D9,$8B,$F2,$8B,$E8,$C7,$43,
$04,$00,$00,$10,$00,$6A,$04,$68,
$00,$20,$00,$00,$68,$00,$00,$10,
$00,$55,$E8,$A5,$FD,$FF,$FF,$8B,
$F8,$89,$3B,$85,$FF,$75,$1F,$81,
$C6,$FF,$FF,$00,$00,$81,$E6,$00,
$00,$FF,$FF,$89,$73,$04,$6A,$04,
$68,$00,$20,$00,$00,$56,$55,$E8,
$80,$FD,$FF,$FF,$89,$03,$83,$3B,
$00,$74,$23,$8B,$D3,$B8,$DC,$45,
$81,$57,$E8,$F5,$FD,$FF,$FF,$84,
$C0,$75,$13,$68,$00,$80,$00,$00,
$6A,$00,$8B,$03,$50,$E8,$62,$FD,
$FF,$FF,$33,$C0,$89,$03,$5D,$5F,
$5E,$5B,$C3,$90,$53,$56,$57,$55
);

Buf256_8:TBuf=(
$83,$C4,$EC,$89,$4C,$24,$04,$89,
$14,$24,$C7,$44,$24,$08,$FF,$FF,
$FF,$FF,$33,$D2,$89,$54,$24,$0C,
$8B,$E8,$8B,$04,$24,$03,$C5,$89,
$44,$24,$10,$8B,$1D,$DC,$45,$81,
$57,$EB,$51,$8B,$3B,$8B,$73,$08,
$3B,$EE,$77,$46,$8B,$C6,$03,$43,
$0C,$3B,$44,$24,$10,$77,$3B,$3B,
$74,$24,$08,$73,$04,$89,$74,$24,
$08,$8B,$C6,$03,$43,$0C,$3B,$44,
$24,$0C,$76,$04,$89,$44,$24,$0C,
$68,$00,$80,$00,$00,$6A,$00,$56,
$E8,$EF,$FC,$FF,$FF,$85,$C0,$75,
$0A,$C7,$05,$B8,$45,$81,$57,$01,
$00,$00,$00,$8B,$C3,$E8,$8A,$FD,
$FF,$FF,$8B,$DF,$81,$FB,$DC,$45,
$81,$57,$75,$A7,$8B,$44,$24,$04,
$33,$D2,$89,$10,$83,$7C,$24,$0C,
$00,$74,$19,$8B,$44,$24,$04,$8B,
$54,$24,$08,$89,$10,$8B,$44,$24,
$0C,$2B,$44,$24,$08,$8B,$54,$24,
$04,$89,$42,$04,$83,$C4,$14,$5D,
$5F,$5E,$5B,$C3,$53,$56,$57,$55,
$83,$C4,$F4,$89,$4C,$24,$04,$89,
$14,$24,$8B,$D0,$8B,$EA,$81,$E5,
$00,$F0,$FF,$FF,$03,$14,$24,$81,
$C2,$FF,$0F,$00,$00,$81,$E2,$00,
$F0,$FF,$FF,$89,$54,$24,$08,$8B,
$44,$24,$04,$89,$28,$8B,$44,$24,
$08,$2B,$C5,$8B,$54,$24,$04,$89,
$42,$04,$8B,$35,$DC,$45,$81,$57,
$EB,$3C,$8B,$5E,$08,$8B,$7E,$0C
);

Buf256_9:TBuf=(
$03,$FB,$3B,$EB,$76,$02,$8B,$DD,
$3B,$7C,$24,$08,$76,$04,$8B,$7C,
$24,$08,$3B,$FB,$76,$1E,$6A,$04,
$68,$00,$10,$00,$00,$2B,$FB,$57,
$53,$E8,$26,$FC,$FF,$FF,$85,$C0,
$75,$0A,$8B,$44,$24,$04,$33,$D2,
$89,$10,$EB,$0A,$8B,$36,$81,$FE,
$DC,$45,$81,$57,$75,$BC,$83,$C4,
$0C,$5D,$5F,$5E,$5B,$C3,$8B,$C0,
$53,$56,$57,$55,$51,$8B,$D8,$8B,
$F3,$81,$C6,$FF,$0F,$00,$00,$81,
$E6,$00,$F0,$FF,$FF,$89,$34,$24,
$8B,$EB,$03,$EA,$81,$E5,$00,$F0,
$FF,$FF,$8B,$04,$24,$89,$01,$8B,
$C5,$2B,$04,$24,$89,$41,$04,$8B,
$35,$DC,$45,$81,$57,$EB,$38,$8B,
$5E,$08,$8B,$7E,$0C,$03,$FB,$3B,
$1C,$24,$73,$03,$8B,$1C,$24,$3B,
$EF,$73,$02,$8B,$FD,$3B,$FB,$76,
$1C,$68,$00,$40,$00,$00,$2B,$FB,
$57,$53,$E8,$AD,$FB,$FF,$FF,$85,
$C0,$75,$0A,$C7,$05,$B8,$45,$81,
$57,$02,$00,$00,$00,$8B,$36,$81,
$FE,$DC,$45,$81,$57,$75,$C0,$5A,
$5D,$5F,$5E,$5B,$C3,$8D,$40,$00,
$53,$56,$57,$55,$83,$C4,$F8,$8B,
$F2,$8B,$F8,$BD,$EC,$45,$81,$57,
$81,$C7,$FF,$3F,$00,$00,$81,$E7,
$00,$C0,$FF,$FF,$8B,$5D,$00,$EB,
$33,$3B,$7B,$0C,$7F,$2C,$8B,$CE,
$8B,$D7,$8B,$43,$08,$E8,$BA,$FE,
$FF,$FF,$83,$3E,$00,$74,$50,$8B
);

Buf256_10:TBuf=(
$46,$04,$01,$43,$08,$8B,$46,$04,
$29,$43,$0C,$83,$7B,$0C,$00,$75,
$3E,$8B,$C3,$E8,$EC,$FB,$FF,$FF,
$EB,$35,$8B,$1B,$3B,$DD,$75,$C9,
$8B,$D6,$8B,$C7,$E8,$F7,$FC,$FF,
$FF,$83,$3E,$00,$74,$21,$8B,$CC,
$8B,$D6,$8B,$C5,$E8,$E3,$FB,$FF,
$FF,$83,$3C,$24,$00,$75,$A5,$8B,
$CC,$8B,$56,$04,$8B,$06,$E8,$B1,
$FD,$FF,$FF,$33,$C0,$89,$06,$59,
$5A,$5D,$5F,$5E,$5B,$C3,$8B,$C0,
$53,$56,$57,$55,$83,$C4,$EC,$89,
$0C,$24,$8B,$FA,$8B,$F0,$BD,$EC,
$45,$81,$57,$81,$C7,$FF,$3F,$00,
$00,$81,$E7,$00,$C0,$FF,$FF,$8B,
$5D,$00,$EB,$02,$8B,$1B,$3B,$DD,
$74,$05,$3B,$73,$08,$75,$F5,$3B,
$73,$08,$75,$57,$3B,$7B,$0C,$0F,
$8E,$96,$00,$00,$00,$8D,$4C,$24,
$04,$8B,$D7,$2B,$53,$0C,$8B,$43,
$08,$03,$43,$0C,$E8,$DB,$FC,$FF,
$FF,$83,$7C,$24,$04,$00,$74,$33,
$8D,$4C,$24,$0C,$8D,$54,$24,$04,
$8B,$C5,$E8,$5D,$FB,$FF,$FF,$83,
$7C,$24,$0C,$00,$75,$B1,$8D,$4C,
$24,$0C,$8B,$54,$24,$08,$8B,$44,
$24,$04,$E8,$25,$FD,$FF,$FF,$8B,
$04,$24,$33,$D2,$89,$10,$E9,$90,
$00,$00,$00,$8D,$4C,$24,$04,$8B,
$D7,$8B,$C6,$E8,$94,$FC,$FF,$FF,
$83,$7C,$24,$04,$00,$74,$34,$8D,
$4C,$24,$0C,$8D,$54,$24,$04,$8B
);

Buf256_11:TBuf=(
$C5,$E8,$16,$FB,$FF,$FF,$83,$7C,