angelortv.bas

视频卡的测试程序

Module AngeloRTV
    Delegate Sub AngeloRTV_Callback(ByVal VideoBufferaddress As Int32, ByVal PortNo As Short)

    Declare Function AngeloRTV_Initial Lib "AngeloRTV.DLL" (ByVal PortNo As Short) As Short
    Declare Function AngeloRTV_Close Lib "AngeloRTV.DLL" (ByVal PortNo As Short) As Short
    Declare Function AngeloRTV_Software_Reset Lib "AngeloRTV.DLL" (ByVal PortNo As Short) As Short
    Declare Function AngeloRTV_Set_Callback Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal CallBack As AngeloRTV_Callback) As Short
    Declare Function AngeloRTV_Capture_Start Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal CaptureNo As Int32) As Short
    Declare Function AngeloRTV_Capture_Stop Lib "AngeloRTV.DLL" (ByVal PortNo As Short) As Short
    Declare Function AngeloRTV_Select_Channel Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal Multiplex As Short) As Short

    Declare Function AngeloRTV_Set_Image_Config Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal ConfigIndex As Byte, ByVal Value As Byte) As Short
    Declare Function AngeloRTV_Get_Image_Config Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal ConfigIndex As Byte, ByRef Value As Byte) As Short

    Declare Function AngeloRTV_Set_Color_Format Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal ColorFormat As Byte) As Short
    Declare Function AngeloRTV_Get_Color_Format Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByRef ColorFormat As Byte) As Short
    Declare Function AngeloRTV_Set_Video_Format Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal Value As Byte) As Short
    Declare Function AngeloRTV_Get_Video_Format Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByRef Value As Byte) As Short
    Declare Function AngeloRTV_Write_EEPROM Lib "AngeloRTV.DLL" (ByVal CardNo As Short, ByVal address As Byte, ByVal Value As Byte) As Short
    Declare Function AngeloRTV_Read_EEPROM Lib "AngeloRTV.DLL" (ByVal CardNo As Short, ByVal address As Byte, ByRef Value As Byte) As Short


    Declare Function AngeloRTV_Save_File Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal FileName As String, ByVal FileFormat As Byte) As Short
    Declare Function AngeloRTV_Copy_Frame Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal Dest_Address As Byte, ByVal Size_byte As Int32) As Short
    Declare Function AngeloRTV_Get_Frame Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByRef Start_address As IntPtr, ByRef width As Int32, ByRef height As Int32, ByRef Size_byte As Int32) As Short


    Declare Function AngeloRTV_Set_GPIO_Sts Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal Status As Byte) As Short
    Declare Function AngeloRTV_Get_GPIO_Sts Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByRef Status As Byte) As Short


    Declare Function AngeloRTV_Set_Int_Event Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByRef hEvent As Int32) As Short
    Declare Function AngeloRTV_Set_Int_Factor Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal IntFactor As Int32) As Short
    Declare Function AngeloRTV_Get_Int_Status Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByRef IntStatus As Int32) As Short
    Declare Function AngeloRTV_Set_GPIO_Int_Logic Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal logic As Short) As Short

    Declare Function AngeloRTV_Set_WDT Lib "AngeloRTV.DLL" (ByVal CardNo As Short, ByVal enable As Short, ByVal interval As Short) As Short

    Declare Function AngeloRTV_Trigger_Config Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal interval As Short) As Short
    Declare Function AngeloRTV_Trigger_Start Lib "AngeloRTV.DLL" (ByVal CardNo As Short, ByVal Multiplex As Short) As Short

    'cPci RTV24 only
    Declare Function AngeloRTV_Set_LED_Sts Lib "AngeloRTV.DLL" (ByVal PortNo As Short, ByVal Status As Byte) As Short

    'Serial Code 05/24/2004 add
    Declare Function AngeloRTV_Sync_Grab Lib "AngeloRTV.DLL" (ByVal PortNo As Integer, ByRef Start_Address As IntPtr, ByRef Width As Int32, ByRef Height As Int32, ByRef Size_byte As Int32) As Integer


End Module