orchid.bas

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

Attribute VB_Name = "Orchid"
' LEUTRON VISION Orchid.DLL - include file for Visual Basic 5.0 and higher

Public Const lvx_Task_Live = 0

Public Const lvx_Task_Rt = 6
Public Const lvx_Task_RtBasic = 1                      ' obsolete
Public Const lvx_Task_RtFlash = 2                      ' obsolete
Public Const lvx_Task_RtAsyncReset = 3
Public Const lvx_Task_RtFrameInt = 4                   ' obsolete
Public Const lvx_Task_RtFrameIntAsyncReset = 5         ' obsolete

Public Const lvx_Task_Preprocessor = 10
Public Const lvx_Task_DirectX = 11

Public Const lvx_Checkpoint_EndOfFrame = 0
Public Const lvx_Checkpoint_EndOfSubsequence = 1       ' obsolete
Public Const lvx_Checkpoint_EndOfSequence = 2

Public Const lvx_Flow_ContinueOnRequest = 0
Public Const lvx_Flow_PauseOnRequest = 1

Public Const lvx_LiveMode_Auto = 0
Public Const lvx_LiveMode_HardwareForce = 1
Public Const lvx_LiveMode_Software = 2
Public Const lvx_LiveMode_HardwareAuto = 3
' for backward compatibility
Public Const lvx_LiveMode_Hardware = 1                 ' obsolete

Public Const lvx_ExtEv_Ignore = 0
Public Const lvx_ExtEv_Immediate = 1
Public Const lvx_ExtEv_SwControlled = 2

Public Const lvx_FshMd_None = 0                        ' obsolete
Public Const lvx_FshMd_FirstField = 1                  ' obsolete
Public Const lvx_FshMd_BothField = 2                   ' obsolete

Public Const lvx_FshMd_AR_CamTrigDelayed = 0           ' AsyncReset Rt module
Public Const lvx_FshMd_AR_CamTrig = 1
Public Const lvx_FshMd_AR_FlashDelayed = 2

Public Const lvx_FldStart_Any = 0                      ' obsolete
Public Const lvx_FldStart_Even = 1                     ' obsolete
Public Const lvx_FldStart_Odd = 2                      ' obsolete

Public Const lvx_FldAcq_2_Field = 0                    ' obsolete
Public Const lvx_FldAcq_1_Field = 1                    ' obsolete

Public Const lvx_FlowCheckDelay_0 = 0                  ' obsolete
Public Const lvx_FlowCheckDelay_180 = 1                ' obsolete
Public Const lvx_FlowCheckDelay_320 = 2                ' obsolete
Public Const lvx_FlowCheckDelay_420 = 3                ' obsolete
Public Const lvx_FlowCheckDelay_610 = 4                ' obsolete
Public Const lvx_FlowCheckDelay_3800 = 5               ' obsolete
Public Const lvx_FlowCheckDelay_7500 = 6               ' obsolete

Public Const lvx_AviFrame_RealTimeStamp = 1

Public Const lvx_TiffConvertMonoTo16bit = 1

Public Const lvx_GrabNotify_WinMsg = 1
Public Const lvx_GrabNotify_WinObject = 2
Public Const lvx_GrabNotify_Function = 3
Public Const lvx_GrabNotify_Function_Param = 4

Public Const lvx_TimeoutNotify_WinMsg = 10              ' obsolete
Public Const lvx_TimeoutNotify_WinObject = 11           ' obsolete
Public Const lvx_TimeoutNotify_Function = 12            ' obsolete
Public Const lvx_TimeoutNotify_Function_Param = 13      ' obsolete

Public Const lvx_Status_EepromOemNotInitialized = 65537
Public Const lvx_Status_EepromGrabberNotActive = 65538
Public Const lvx_Status_EepromHwError = 65539
Public Const lvx_Status_EepromUnknownError = 65540
Public Const lvx_Status_EepromDoesNotMatch = 65541

Public Const lvx_TextAttr_Bold = 1 ' &H1 ' for SetOverlayTextParams
Public Const lvx_TextAttr_Italic = 2 '&H2
Public Const lvx_TextAttr_Underline = 4 '&H4
Public Const lvx_TextAttr_StrikeOut = 8 '&H8
Public Const lvx_TextAttr_Shadow = 256 '&H100     ' default shadow is right-bottom
Public Const lvx_TextAttr_Outline = 65280 '&HFF00

Public Const lvx_TextAttr_ShadowRB = 256 '&H100
Public Const lvx_TextAttr_ShadowRT = 512 '&H200
Public Const lvx_TextAttr_ShadowLB = 1024 '&H400
Public Const lvx_TextAttr_ShadowLT = 2048 '&H800
Public Const lvx_TextAttr_ShadowB = 4096 '&H1000
Public Const lvx_TextAttr_ShadowT = 8192 '&H2000
Public Const lvx_TextAttr_ShadowR = 16384 '&H4000
Public Const lvx_TextAttr_ShadowL = 32768 '&H8000

Public Const lvx_Color_None = -1 '&HFFFFFFFF          ' for disabling transparent color

Public Const lvx_Color_Black = 0 '&H0
Public Const lvx_Color_Maroon = 128 '&H80
Public Const lvx_Color_Green = 32768 ' &H8000
Public Const lvx_Color_Olive = 32896 '&H8080
Public Const lvx_Color_Navy = 8388608 ' &H800000
Public Const lvx_Color_Purple = 8388736 ' &H800080
Public Const lvx_Color_Teal = 8421376 ' &H808000
Public Const lvx_Color_Gray = 8421504 ' &H808080
Public Const lvx_Color_Silver = 12632256 ' &HC0C0C0
Public Const lvx_Color_Red = 255 ' &HFF
Public Const lvx_Color_Lime = 65280 ' &HFF00
Public Const lvx_Color_Yellow = 65535 '&HFFFF
Public Const lvx_Color_Blue = 16711680 ' &HFF0000
Public Const lvx_Color_Fuchsia = 16711935 ' &HFF00FF
Public Const lvx_Color_Aqua = 16776960 ' &HFFFF00
Public Const lvx_Color_LtGray = 12632256 ' &HC0C0C0
Public Const lvx_Color_DkGray = 8421504 ' &H808080
Public Const lvx_Color_White = 16777215 ' &HFFFFFF

Public Const lvx_CameraGain_Analog = 1
Public Const lvx_CameraGain_Digital = 2

Public Const lvx_Cmd_GetAcquiredInfoWidth = 65537 ' &H00010001
Public Const lvx_Cmd_GetAcquiredInfoHeight = 65538 ' &H00010002
Public Const lvx_Cmd_GetAcquiredInfoFlags = 65539 ' &H00010003

Public Const lvx_Cmd_SetLutMono8Bit = 131073 ' &H00020001
Public Const lvx_Cmd_SetLutMono10Bit = 131074 ' &H00020002
Public Const lvx_Cmd_SetLutMono12Bit = 131075 ' &H00020003
Public Const lvx_Cmd_SetLutRgb8Bit = 131076 ' &H00020004

Public Const lvx_Cmd_GetLutMono8Bit = 131089 ' &H00020011
Public Const lvx_Cmd_GetLutMono10Bit = 131090 ' &H00020012
Public Const lvx_Cmd_GetLutMono12Bit = 131091 ' &H00020013
Public Const lvx_Cmd_GetLutRgb8Bit = 131092 ' &H00020014

Public Const lvx_Cmd_IsCameraConnected = 196609 '&H00030001

Public Const lvx_Cmd_UtilSetFrameTimeLog = 16777217 '&H01000001
Public Const lvx_Cmd_UtilGetFrameTime = 16777218 '&H01000002

Public Const lvx_Cmd_GetPixelValue = 262145 '&H00040001


' DLLs Loading
Public Declare Sub lvx_SetLoadWindowEnable Lib "Orchid" (ByVal bEnable As Long)
Public Declare Function lvx_GetLoadWindowEnable Lib "Orchid" () As Long
Public Declare Sub lvx_SetLoadWindowText Lib "Orchid" (ByVal szText As String, _
                                                       ByVal iWindowWidth As Long, _
                                                       ByVal iWindowHeight As Long)
Public Declare Sub lvx_LoadDlls Lib "Orchid" ()
Public Declare Function lvx_GetVersion Lib "Orchid" () As Long

' Error Handling
Public Declare Function lvx_GetLastStatus Lib "Orchid" () As Long
Public Declare Sub lvx_GetLastStatusShortMsg Lib "Orchid" (ByVal pszMsg As String, _
                                                        ByVal iMaxLen As Long)
Public Declare Sub lvx_GetLastStatusLongMsg Lib "Orchid" (ByVal pszMsg As String, _
                                                       ByVal iMaxLen As Long)

' Task opening, closing
Public Declare Function lvx_OpenTask Lib "Orchid" (ByVal iTaskType As Long) As Long
Public Declare Sub lvx_CloseTask Lib "Orchid" (ByVal hLvxTask As Long)

Public Declare Function lvx_GetTaskStatus Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Sub lvx_GetTaskStatusShortMsg Lib "Orchid" (ByVal hLvxTask As Long, _
                                                        ByVal pszMsg As String, _
                                                        ByVal iMaxLen As Long)
Public Declare Sub lvx_GetTaskStatusLongMsg Lib "Orchid" (ByVal hLvxTask As Long, _
                                                       ByVal pszMsg As String, _
                                                       ByVal iMaxLen As Long)

' Initial settings
Public Declare Sub lvx_SetGrabber Lib "Orchid" (ByVal hLvxTask As Long, ByVal szName As String)
Public Declare Sub lvx_GetGrabber Lib "Orchid" (ByVal hLvxTask As Long, ByVal szName As String, _
                                             ByVal iMaxLen As Long)

Public Declare Sub lvx_SetGrabberNumber Lib "Orchid" (ByVal hLvxTask As Long, _
                                                   ByVal iNumber As Long)                      'obsolete - use GrabberOrder
Public Declare Function lvx_GetGrabberNumber Lib "Orchid" (ByVal hLvxTask As Long) As Long     'obsolete

Public Declare Sub lvx_SetGrabberOrder Lib "Orchid" (ByVal hLvxTask As Long, _
                                                   ByVal iNumber As Long)
Public Declare Function lvx_GetGrabberOrder Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetCamera Lib "Orchid" (ByVal hLvxTask As Long, ByVal szName As String)
Public Declare Sub lvx_GetCamera Lib "Orchid" (ByVal hLvxTask As Long, ByVal szName As String, _
                                            ByVal iMaxLen As Long)

Public Declare Sub lvx_SetBaseCamera Lib "Orchid" (ByVal hLvxTask As Long, ByVal szName As String)  'obsolete
Public Declare Sub lvx_GetBaseCamera Lib "Orchid" (ByVal hLvxTask As Long, ByVal szName As String, _
                                                ByVal iMaxLen As Long)                              'obsolete

Public Declare Sub lvx_SetConnector Lib "Orchid" (ByVal hLvxTask As Long, ByVal szName As String)
Public Declare Sub lvx_GetConnector Lib "Orchid" (ByVal hLvxTask As Long, ByVal szName As String, _
                                               ByVal iMaxLen As Long)

Public Declare Sub lvx_SetConnectorList Lib "Orchid" (ByVal hLvxTask As Long, _
                                                   ByVal szName As String)                          'obsolete
Public Declare Sub lvx_GetConnectorList Lib "Orchid" (ByVal hLvxTask As Long, _
                                                   ByVal szName As String, ByVal iMaxLen As Long)   'obsolete

Public Declare Sub lvx_ClearConnectorList Lib "Orchid" (ByVal hLvxTask As Long)                     'obsolete
Public Declare Sub lvx_AddConnectorToList Lib "Orchid" (ByVal hLvxTask As Long, _
                                                     ByVal pszConnectorName As String, _
                                                     ByVal pszGrabberName As String, _
                                                     ByVal iGrabberNumber As Long)                   'obsolete

Public Declare Sub lvx_SetShutter Lib "Orchid" (ByVal hLvxTask As Long, ByVal pszName As String)     'obsolete
Public Declare Sub lvx_GetShutter Lib "Orchid" (ByVal hLvxTask As Long, ByVal pszName As String, _
                                             ByVal iMaxLen As Long)                                  'obsolete

Public Declare Sub lvx_SetAsyncResetMode Lib "Orchid" (ByVal hLvxTask As Long, ByVal iMode As Long)
Public Declare Function lvx_GetAsyncResetMode Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetBoardsExtSync Lib "Orchid" (ByVal hLvxTask As Long, ByVal bSet As Long)    'obsolete
Public Declare Function lvx_GetBoardsExtSync Lib "Orchid" (ByVal hLvxTask As Long) As Long           'obsolete

Public Declare Sub lvx_SetSubsequences Lib "Orchid" (ByVal hLvxTask As Long, _
                                                  ByVal iSubsequences As Long)
Public Declare Function lvx_GetSubsequences Lib "Orchid" (ByVal hLvxTask As Long) As Long