cgcardapi.bas

停车

Attribute VB_Name = "CGCardApi"
'*
' *-----------------------------------------------------------------------------
' *       Name               CGCardApi.bas
' *       Purpose            Consant definition
' *       Development Kit    Microsoft Win32 SDK Visual basic 6.00
' *       Author             Zhou zhong ya
' *       Date               2003/08/05
' *
' *
' *       Description
' *       This header file defines consant and external function
' *
' *-----------------------------------------------------------------------------
' *

Option Explicit
                     

'***************************  consant *************************************
Public Enum CGTYPE
    CG300TYPE = 0
    CG400TYPE = 1
    CG410TYPE = 2
End Enum

Public Enum VIDEO_FORMAT
    YUV422 = 0
    RGB888 = 1
    RGB565 = 2
    RGB555 = 3
    RGB8888 = 4
    All8Bit = 5
    Limited8Bit = 6
End Enum


Public Enum VIDEO_STANDARD
    PAL = 0
    NTSC = 1
End Enum


Public Enum VIDEO_SCAN
    Frame = 0
    FIELD = 1
End Enum


Public Enum MIRROR_DIRECTION
    HOR_DIR = 0
    VERT_DIR = 1
End Enum

Public Enum VIDEO_ADJUST_PARAM
    Brightness = 1
    Contrast = 2
    Hue = 3
    Saturation = 4
End Enum


Public Enum CRY_OSC
    CRY_OSC_35M = 0
    CRY_OSC_28M = 1
End Enum


Public Enum EXT_VIDEO_OUTPUT
    EXT_VOUT_MODE = 0
    EXT_VOUT_SOURCE = 1
    EXT_VOUT_CYCLE_LENGTH = 2
    EXT_VOUT_CYCLE_SOURCE = 3
End Enum

Public Enum VIDEO_SOURCE_TYPE
    COMPOSITE_VIDEO = 0
    S_VIDEO = 1
    COMPONENT_VIDEO = 2
End Enum


Public Type VIDEO_SOURCE
    source_type As VIDEO_SOURCE_TYPE
    nIndex As Long
End Type


Public Enum BOARD_INFO

    BOARD_TYPE = 0
    BOARD_SERIALNUM = 1
End Enum


Public Enum LUMA_PARAM
    LUMA_CHROMA_TRAP = 0
End Enum



Public Enum GAMMA_CORR
    NO_GAMMACORR = 0
    Y_GAMMACORR = 1
    UV_GAMMACORR = 2
    YUV_GAMMACORR = 3
 End Enum



Public Enum INTERCHANGE_TYPE
    HOR_ODD_COLUMN = 0
    HOR_EVEN_COLUMN = 1
    VERT_ODD_ROW = 2
    VERT_EVEN_ROW = 3
    VERT_DOUBLE = 4
End Enum


Public Enum CGSTATUS
    CG_OK = 0
    CG_ALLOCATE_DEVICE_MEMORY_ERROR = -1
    CG_LOCK_DEVICE_MEMORY_ERROR = -2
    CG_ACCESS_DEVICE_MEMORY_DENIED = -3
    CG_PARAMETER_INVALID = -4
    CG_NOT_SUPPORT_INTERFACE = -5
    CG_OPEN_DRIVER_FAILED = -6
    CG_CARD_HANDLE_INVALID = -7
    CG_NO_CARD_FOUND = -8
    CG_HW_MAP_MEMORY_ERROR = -9
    CG_NOT_ENOUGH_SYSTEM_MEMORY = -10
    CG_HW_INIT_ERROR = -11
    CG_PARAMETER_OUT_OF_BOUND = -12
    CG_HW_INIT_I2C_ERROR = -13
    CG_HW_INIT_AD_ERROR = -14
    CG_HW_BOARD_TYPE_ERROR = -15
    CG_SNAP_SHOT_TIME_OUT = -16
    CG_INIT_DDRAW_ERROR = -17
    CG_IN_WORK = -18
    CG_NOT_START_CAPTURE = -19
    CG_NOT_START_CAPTURE_EX = -20
    CG_NOT_START_SNAP = -21
    CG_NOT_START_SNAP_EX = -22
    CG_NOT_OPEN_SNAP_EX = -23
    CG_VIDEO_FORMAT_INVALID = -24
    CG_NOT_SUPPORT_CARD_TYPE = -25
    CG_FILE_CREATE_ERROR = -26
    CG_FILE_INVALID = -27
    CG_VGA_BASE_INVALID = -28
    CG_VIDEO_WINDOW_INVALID = -29
    CG_INTERNAL_ERROR = -30
End Enum



Public Type CHECK_PARAM
    byParam1 As Byte
    byParam2 As Byte
    byParam3 As Byte
    byParam4 As Byte
End Type


Public Type SANP_INFO
    hcg As Long
    nDevice As Long
    nNumber As Long
    pParam As Long
End Type





'***************************  CGVideo.dll external function **********************************

Declare Function BeginCGCard Lib "CGVideo" (ByVal nDevice As Long, ByRef hcg As Long) As CGSTATUS

Declare Function EndCGCard Lib "CGVideo" (ByVal hcg As Long) As CGSTATUS

Declare Function CGCapture Lib "CGVideo.dll" (ByVal hcg As Long, ByVal bEnable As Long) As CGSTATUS
Declare Function CGCaptureShot Lib "CGVideo.dll" (ByVal hcg As Long) As CGSTATUS

Declare Function CGSetInputWindow Lib "CGVideo.dll" (ByVal hcg As Long, ByVal nStartX As Long, ByVal nStartY As Long, ByVal nWidth As Long, ByVal nHeight As Long) As CGSTATUS
Declare Function CGSetOutputWindow Lib "CGVideo.dll" (ByVal hcg As Long, ByVal nStartX As Long, ByVal nStartY As Long, ByVal nWidth As Long, ByVal nHeight As Long) As CGSTATUS

Declare Function CGSetVideoFormat Lib "CGVideo.dll" (ByVal hcg As Long, ByVal format As VIDEO_FORMAT) As CGSTATUS

Declare Function CGSetVideoStandard Lib "CGVideo.dll" (ByVal hcg As Long, ByVal mode As VIDEO_STANDARD) As CGSTATUS

Declare Function CGSetDelay Lib "CGVideo.dll" (ByVal hcg As Long, ByVal nXDelay As Long, ByVal nYDelay As Long) As CGSTATUS

Declare Function CGSetScanMode Lib "CGVideo.dll" (ByVal hcg As Long, ByVal mode As VIDEO_SCAN) As CGSTATUS

Declare Function CGSetVideoSource Lib "CGVideo.dll" (ByVal hcg As Long, ByVal source_type As VIDEO_SOURCE_TYPE, ByVal nIndex As Long) As CGSTATUS

Declare Function CGAdjustVideo Lib "CGVideo.dll" (ByVal hcg As Long, ByVal param As VIDEO_ADJUST_PARAM, ByVal byValue As Byte) As CGSTATUS

Declare Function CGWaitEvenVSync Lib "CGVideo" (ByVal hcg As Long) As CGSTATUS
Declare Function CGWaitOddVSync Lib "CGVideo" (ByVal hcg As Long) As CGSTATUS

Declare Function CGGetStaticMem Lib "CGVideo" (ByRef pPages As Long) As CGSTATUS
Declare Function CGSetStaticMem Lib "CGVideo" (ByVal dwPages As Long) As CGSTATUS

Declare Function CGStaticMemLock Lib "CGVideo" (ByVal dwStartOffset As Long, ByVal dwLength As Long, ByRef pHandle As Long, ByRef ppLineAddr As Long) As CGSTATUS
Declare Function CGStaticMemUnlock Lib "CGVideo" (ByVal handle As Long) As CGSTATUS

Declare Function CGSnapShot Lib "CGVideo" (ByVal hcg As Long, ByVal dwMemOffset As Long, ByVal wIntervSyncs As Integer, ByVal bInterline As Long, ByVal wSum As Integer) As CGSTATUS
Declare Function CGStartSnap Lib "CGVideo" (ByVal hcg As Long, ByVal dwMemOffset As Long, ByVal bInterline As Long, ByVal wSum As Integer) As CGSTATUS
Declare Function CGGetSnappingNumber Lib "CGVideo" (ByVal hcg As Long, ByRef pNumber As Long) As CGSTATUS
Declare Function CGStopSnap Lib "CGVideo" (ByVal hcg As Long) As CGSTATUS

Declare Function CGEnableMask Lib "CGVideo" (ByVal hcg As Long, ByVal bEnable As Long) As CGSTATUS
Declare Function CGSetPixelMask Lib "CGVideo" (ByVal hcg As Long, ByVal x As Long, ByVal y As Long, ByVal bEnable As Long) As CGSTATUS

Declare Function CGGetCardType Lib "CGVideo" (ByVal hcg As Long, ByRef pType As CGTYPE) As CGSTATUS
Declare Function CGGetCardTotal Lib "CGVideo" (ByRef pNumber As Long) As CGSTATUS

Declare Function CGLoadCFGFile Lib "CGVideo" (ByVal hcg As Long, ByRef filename As Long) As CGSTATUS

Declare Function CGGetErrorString Lib "CGVideo.dll" (ByVal status As CGSTATUS) As Long

'************************ CG300Util *************************************
Declare Function CGVideoPresent Lib "CGVideo.dll" (ByVal hcg As Long, ByRef pStatus As Long) As CGSTATUS
Declare Function CGSetPLLFrequency Lib "CGVideo.dll" (ByVal hcg As Long, ByVal byValue As Byte) As CGSTATUS
Declare Function CGSelectCryOSC Lib "CGVideo.dll" (ByVal hcg As Long, ByVal mode As CRY_OSC) As CGSTATUS


'************************ CG400Util *************************************
Declare Function CGEnableVideoMirror Lib "CGVideo.dll" (ByVal hcg As Long, ByVal dir As MIRROR_DIRECTION, ByVal bEnable As Long) As CGSTATUS
Declare Function CGSetVideoExtOutput Lib "CGVideo.dll" (ByVal hcg As Long, ByVal mode As EXT_VIDEO_OUTPUT, ByVal nValue As Long) As CGSTATUS
Declare Function CGWaitVSync Lib "CGVideo.dll" (ByVal hcg As Long) As CGSTATUS
Declare Function CGGetBoardInfo Lib "CGVideo.dll" (ByVal hcg As Long, ByVal mode As BOARD_INFO, ByRef pInfo As Long) As CGSTATUS
Declare Function CGCheckBoard Lib "CGVideo.dll" (ByVal hcg As Long, ByVal byParam1 As Byte, ByVal byParam2 As Byte, ByVal byParam3 As Byte, ByVal byParam4 As Byte, ByRef pStatus As Long) As CGSTATUS
Declare Function CGLumaControl Lib "CGVideo.dll" (ByVal hcg As Long, ByVal param As LUMA_PARAM, ByVal byValue As Byte) As CGSTATUS
Declare Function CGGammaCorrControl Lib "CGVideo.dll" (ByVal hcg As Long, ByVal param As GAMMA_CORR) As CGSTATUS
Declare Function CGSetGammaCorrCoef Lib "CGVideo.dll" (ByVal hcg As Long, ByVal pBuffer As Long) As CGSTATUS


'************************ CG400Util *************************************
Declare Function CGReadSCMParam Lib "CGVideo.dll" (ByVal hcg As Long, ByRef pBuffer As Long) As CGSTATUS
Declare Function CGWriteSCMParam Lib "CGVideo.dll" (ByVal hcg As Long, ByRef pBuffer As Long, ByVal byEntries As Byte) As CGSTATUS


'************************ CGVidEx *************************************
Declare Function CGCaptureEx Lib "CGVidEx.dll" (ByVal hcg As Long, ByVal hWnd As Long, ByVal bEnable As Long) As CGSTATUS

Declare Function CGOpenSnapEx Lib "CGVidEx.dll" (ByVal hcg As Long, ByVal lpSnapFunc As Long, ByRef pParam As Any) As CGSTATUS
Declare Function CGCloseSnapEx Lib "CGVidEx.dll" (ByVal hcg As Long) As CGSTATUS
Declare Function CGStartSnapEx Lib "CGVidEx.dll" (ByVal hcg As Long, ByVal dwMemOffset As Long, ByVal bInterline As Long, ByVal wSum As Integer) As CGSTATUS
Declare Function CGStopSnapEx Lib "CGVidEx.dll" (ByVal hcg As Long) As CGSTATUS

Declare Function CGDataTransform Lib "CGVidEx.dll" (ByRef pDestBuf As Any, ByVal pSrcBuf As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal nBitCount As Long, ByVal bVerFlip As Long) As CGSTATUS
Declare Function CGDataInterchange Lib "CGVidEx.dll" (ByRef pDestBuf As Any, ByRef pSrcBuf As Any, ByVal nWidth As Long, ByVal nHeight As Long, ByVal nBitCount As Long, ByVal mode As INTERCHANGE_TYPE) As CGSTATUS

Declare Function CGGetDisplayBits Lib "CGVidEx.dll" (ByVal hdc As Long, ByVal nLeft As Long, ByVal nTop As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByRef nBitCount As Long, ByRef pImageBuffer As Any) As CGSTATUS


Public Function CG_SUCCESS(ByVal nStatus As CGSTATUS) As Boolean
    If nStatus = CG_OK Then
        CG_SUCCESS = True
    Else
        CG_SUCCESS = False
    End If
    
End Function