lvdc.bas

相机传输图像程序源代码 拜耳模式（RAW格式文件）与RGB图像数据互相转换函数库

Attribute VB_Name = "LvDc"
'
' Visual Basic module describing the DirectCapture dll interface
'

'Boolean types for use with DirectCapture
Public Const DC_TRUE As Long = 1
Public Const DC_FALSE As Long = 0


'Resize modes
Public Const RM_CLIP As Long = &H1
Public Const RM_SCALE As Long = &H2
Public Const RM_CLIPFIXED As Long = &H4
Public Const RM_SCALEFIXED As Long = &H8
Public Const RM_SOURCESIZE As Long = &H10
Public Const RM_FROMONSCREEN As Long = &H20
Public Const RM_LAST As Long = &H40

'Mirroring modes
Public Const MM_NONE As Long = &H1
Public Const MM_VERTICAL As Long = &H2
Public Const MM_HORIZONTAL As Long = &H4
Public Const MM_BOTH As Long = &H8
Public Const MM_FROMONSCREEN As Long = &H10
Public Const MM_LAST As Long = &H20

'Live actions
Public Const LA_NOACTION As Long = &H0
Public Const LA_ONTOP As Long = &H1
Public Const LA_FOCUS As Long = &H2
Public Const LA_AFTERONFREEZE As Long = &H4
Public Const LA_LAST As Long = &H8

'Freeze actions
Public Const FA_NOACTION As Long = &H0
Public Const FA_FOCUS_LOST As Long = &H1
Public Const FA_OVERLAPPED_FULLY As Long = &H2
Public Const FA_OVERLAPPED_PARTIALY As Long = &H4
Public Const FA_AFTERONLIVE As Long = &H8
Public Const FA_LAST As Long = &H10

'Off screen Notify events
Public Const ON_SIZE As Long = &H1
Public Const ON_FREEZE As Long = &H2
Public Const ON_LIVE As Long = &H4
Public Const ON_MIRROR_MODE As Long = &H8
Public Const ON_RESIZE_MODE As Long = &H10
Public Const ON_LAST As Long = &H20

'Visibility modes
Public Const VM_PARTIAL As Long = 0
Public Const VM_FULL As Long = 1
Public Const VM_LAST As Long = 2

'Live Modes
Public Const LM_HARDWARE As Long = 0
Public Const LM_SOFTWARE As Long = 1

'Window Types
Public Const WT_ONSCREEN As Long = &H0
Public Const WT_OFFSCREEN As Long = &H1
Public Const WT_BADHANDLE As Long = &HFF


Public Const DC_SY_None As Long = 0
' No Synchronization required
Public Const DC_SY_Field_0 As Long = 1
' Synchronize with the start of field 0
Public Const DC_SY_Field_1 As Long = 2
' Synchronize with the start of field 1
Public Const DC_SY_Frame As Long = 3
' Synchronize with the start of frame
Public Const DC_SY_VSync As Long = 4
' Synchronize with the vertical sync pulse

Public Const DC_Tgt_1 As Long = 5
' First target
Public Const DC_Tgt_2 As Long = 6
' Second target
Public Const DC_Tgt_3 As Long = 7
' Third target
Public Const DC_Tgt_4 As Long = 8
' Fourth target
Public Const DC_Tgt_Default As Long = 9
' Default target

Public Const DC_ColF_RGB_888a As Long = 10
' RGB Red 8 bit Green 8 bit Blue 8 bit Alpha 8 bit
Public Const DC_ColF_RGB_555a As Long = 11
' RGB Red 5 bit Green 5 bit Blue 5 bit Alpha 1 bit
Public Const DC_ColF_RGB_565 As Long = 12
' RGB Red 5 bit Green 6 bit Blue 5 bit
Public Const DC_ColF_Mono_8 As Long = 13
' Monochrome (256 grey scale)
Public Const DC_ColF_RGB_888 As Long = 14
' RGB Red 8 bit Green 8 bit Blue 8 bit
Public Const DC_ColF_YUV_422 As Long = 15
' YUV 4:2:2
Public Const DC_ColF_Last As Long = 16
' Last ROI Color Format definition
Public Const DC_VT_Mono As Long = 17
' Last ROI Color Format definition
Public Const DC_VT_RGB As Long = 18
' Last ROI Color Format definition
Public Const DC_VT_YC_Comp As Long = 19
' Last ROI Color Format definition
Public Const DC_VT_YC_Sep As Long = 20
' Last ROI Color Format definition

'
' Status message defines
'
Public Const DCT_I_NoError As Long = &H0
Public Const DCT_I_InfoMessage As Long = &H1
Public Const DCT_E_InvalidGrabber As Long = &H2
Public Const DCT_E_NotSupported As Long = &H3
Public Const DCT_E_InvalidMorrorType As Long = &H4
Public Const DCT_E_CameraNotConnected As Long = &H5
Public Const DCT_E_GrabberNotConnected As Long = &H6
Public Const DCT_E_CannotLockCamera As Long = &H7
Public Const DCT_E_CannotConnectCamera As Long = &H8
Public Const DCT_E_NotEnoughMemory As Long = &H9
Public Const DCT_E_InvalidTarget As Long = &HA
Public Const DCT_E_InvalidParameter As Long = &HB
Public Const DCT_E_InvalidBitDepth As Long = &HC
Public Const DCT_E_DirectDrawError As Long = &HD
Public Const DCT_E_MaxOverlayText As Long = &HE
Public Const DCT_E_InvaildUserMask As Long = &HF
Public Const DCT_E_InvalidColorFormat As Long = &H10
Public Const DCT_E_InvalidWinHandle As Long = &H11
Public Const DCT_E_InvalidConnectHandle As Long = &H12
Public Const DCT_E_CouldNotOpenClipboard As Long = &H13
Public Const DCT_E_NoWindowAssociated As Long = &H14

'
' DirectCapture API
'
Public Declare Function LvDcAllocConnection Lib "LvDc" () As Long

Public Declare Function LvDcCreateOnScreenWin Lib "LvDc" (ByVal Window As Long) As Long

Public Declare Function LvDcCreateOffScreenWin Lib "LvDc" () As Long

Public Declare Function LvDcGetConnectionHandle Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcLive Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal LiveSync As Long) As Long

Public Declare Function LvDcIsLive Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcFreeze Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal FreezeSync As Long) As Long

Public Declare Function LvDcSetResizeMode Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal ResizeMode As Long, ByVal KeepSameVideoSize As Long) As Long

Public Declare Function LvDcGetResizeMode Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcSetLiveAction Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal LiveAction As Long) As Long

Public Declare Function LvDcGetLiveAction Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcSetFreezeAction Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal FreezeAction As Long) As Long

Public Declare Function LvDcGetFreezeAction Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcConnectWin Lib "LvDc" (ByVal hDCConection As Long, ByVal hDCVideoWin As Long, ByVal Target As Byte) As Long

Public Declare Function LvDcIsWinConnected Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcDisconnectWin Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcSetMirrorMode Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal MirrorMode As Byte) As Long

Public Declare Function LvDcGetMirrorMode Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcSetWinSize Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal Width As Long, ByVal Height As Long) As Long

Public Declare Function LvDcGetWinSize Lib "LvDc" (ByVal hDCVideoWin As Long, ByRef Width As Long, ByRef Height As Long) As Long

Public Declare Function LvDcSetWinVideoSize Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal Width As Long, ByVal Height As Long) As Long

Public Declare Function LvDcGetWinVideoSize Lib "LvDc" (ByVal hDCVideoWin As Long, ByRef Width As Long, ByRef Height As Long) As Long

Public Declare Function LvDcSetWinPos Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal XPos As Long, ByVal YPos As Long) As Long

Public Declare Function LvDcGetWinPos Lib "LvDc" (ByVal hDCVideoWin As Long, ByRef XPos As Long, ByRef YPos As Long) As Long

Public Declare Function LvDcCopyToClipboard Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcGetBMP Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcSetVisibility Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal Vis As Long) As Long

Public Declare Function LvDcGetVisibility Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcAddOverlayText Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal Text As String, ByVal X As Long, ByVal Y As Long, ByVal Enable As Long, ByVal Color As Long, ByVal hFont As Long) As Long

Public Declare Function LvDcChangeOverlayText Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal hText As Long, ByVal Text As String) As Long

Public Declare Function LvDcChangeOverlayTextPos Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal hText As Long, ByVal X As Long, ByVal Y As Long) As Long

Public Declare Function LvDcChangeOverlayTextFont Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal hText As Long, ByVal Color As Long, ByVal hFont As Long) As Long

Public Declare Function LvDcChangeOverlayTextEnable Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal hText As Long, ByVal Enable As Long) As Long

Public Declare Function LvDcDeleteOverlayText Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal hText As Long) As Long

Public Declare Function LvDcLoadUserMask Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal FileName As String, ByVal Stretch As Long, ByVal Enable As Long) As Long

Public Declare Function LvDcSetUserMask Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal hBitmap As Long, ByVal Stretch As Long, ByVal Enable As Long) As Long

Public Declare Function LvDcUpdateUserMask Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal Enable As Long) As Long

Public Declare Function LvDcGetCameraHeight Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcGetCameraWidth Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcSetColorFormat Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal ColorFormat As Byte) As Long

Public Declare Function LvDcGetColorFormat Lib "LvDc" (ByVal hDCVideoWin As Long) As Byte

Public Declare Function LvDcAssociateOnWin Lib "LvDc" (ByVal hDCOffVideoWin As Long, ByVal hDCOnVideoWin As Long) As Byte

Public Declare Function LvDcEnableLog Lib "LvDc" (ByVal FileName As String) As Long

Public Declare Function LvDcDisableLog Lib "LvDc" () As Long

Public Declare Function LvDcSetBrightness Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal Level_0_100 As Single) As Long

Public Declare Function LvDcSetContrast Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal Level_0_100 As Single) As Long

Public Declare Function LvDcSetHue Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal Level_0_100 As Single) As Long

Public Declare Function LvDcSetSaturation Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal Level_0_100 As Single) As Long

Public Declare Function LvDcGetBrightness Lib "LvDc" (ByVal hDCVideoWin As Long) As Single

Public Declare Function LvDcGetContrast Lib "LvDc" (ByVal hDCVideoWin As Long) As Single

Public Declare Function LvDcGetHue Lib "LvDc" (ByVal hDCVideoWin As Long) As Single

Public Declare Function LvDcGetSaturation Lib "LvDc" (ByVal hDCVideoWin As Long) As Single

Public Declare Function LvDcCreateFont Lib "LvDc" (ByVal name As String, ByVal PointSize As Long, ByVal Underline As Long, ByVal Strikethrough As Long, ByVal Italic As Long, ByVal Bold As Long) As Long

Public Declare Function LvDcSetLiveMode Lib "LvDc" (ByVal hDCVideoWin As Long, ByVal LiveMode As Long) As Long

Public Declare Function LvDcGetLiveMode Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcGetVideoType Lib "LvDc" (ByVal hDCConection As Long) As Long

Public Declare Function LvDcEnableWin Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcGetWinType Lib "LvDc" (ByVal hDCVideoWin As Long) As Long

Public Declare Function LvDcCopyWin Lib "LvDc" (ByVal hDCSrcWin As Long, ByVal hDCSrcWin As Long) As Long

Public Declare Function LvDcSaveBMP Lib "LvDc" (ByVal hDCSrcWin As Long, ByVal FileName As String) As Long

Public Declare Function LvDcGetOptocoupler Lib "LvDc" (ByVal hDCSrcWin As Long) As Long

Public Declare Function LvDcSetOptocoupler Lib "LvDc" (ByVal hDCSrcWin As Long, ByVal OptoMask As Long) As Long