orchid.bas

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

                                                     ByVal iOptions As Long, _
                                                     ByVal iReserved As Long)
Public Declare Sub lvx_SetCaptureToAvi Lib "Orchid" (ByVal hLvxTask As Long, ByVal bSet As Long)
Public Declare Function lvx_GetCaptureToAvi Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_OpenAviFile Lib "Orchid" (ByVal hLvxTask As Long, ByVal pszName As String, _
                                        ByVal iOptions As Long, ByVal iReserved As Long)
Public Declare Sub lvx_CloseAviFile Lib "Orchid" (ByVal hLvxTask As Long, ByVal iReserved As Long)

Public Declare Sub lvx_SetAviInterFrameDelay Lib "Orchid" (ByVal hLvxTask As Long, _
                                                        ByVal iValue As Long)
Public Declare Function lvx_GetAviInterFrameDelay Lib "Orchid" (ByVal hLvxTask As Long) As Long

' Saving and loading settings
Public Declare Sub lvx_SaveSettings Lib "Orchid" (ByVal hLvxTask As Long, ByVal szId As String, _
                                               ByVal szFileName As String)
Public Declare Function lvx_LoadSettings Lib "Orchid" (ByVal hLvxTask As Long, ByVal szId As String, _
                                                    ByVal szFileName As String) As Long

Public Declare Sub lvx_SaveAviSettings Lib "Orchid" (ByVal hLvxTask As Long, ByVal szId As String, _
                                                  ByVal szFileName As String)
Public Declare Function lvx_LoadAviSettings Lib "Orchid" (ByVal hLvxTask As Long, ByVal szId As String, _
                                                       ByVal szFileName As String) As Long

' Dialog boxes
Public Declare Function lvx_DisplayConnectionDialog Lib "Orchid" (ByVal hLvxTask As Long, _
                                                               ByVal hWindow As Long) As Long
Public Declare Function lvx_DisplayLiveSettingsDialog Lib "Orchid" (ByVal hLvxTask As Long, _
                                                                 ByVal hWindow As Long) As Long
Public Declare Function lvx_DisplaySnapSettingsDialog Lib "Orchid" (ByVal hLvxTask As Long, _
                                                                 ByVal hWindow As Long) As Long

Public Declare Sub lvx_DisplayInitialSettingsDialog Lib "Orchid" (ByVal hLvxTask As Long, _
                                                               ByVal hWindow As Long)
Public Declare Sub lvx_DisplayIOSettingsDialog Lib "Orchid" (ByVal hLvxTask As Long, _
                                                             ByVal hWindow As Long)
Public Declare Sub lvx_DisplayRunTimeSettingsDialog Lib "Orchid" (ByVal hLvxTask As Long, _
                                                               ByVal hWindow As Long)
Public Declare Function lvx_DisplayAviSettingsDialog Lib "Orchid" (ByVal hLvxTask As Long, _
                                                                ByVal hWindow As Long) As Long

' Querying info
Public Declare Sub lvx_QueryGrabberName Lib "Orchid" (ByVal hLvxTask As Long, _
                                        ByVal iGrabberNumber As Long, _
                                        ByVal szName As String, _
                                        ByVal iMaxLen As Long)

Public Declare Sub lvx_QueryCameraName Lib "Orchid" (ByVal hLvxTask As Long, _
                                        ByVal iGrabberNumber As Long, _
                                        ByVal iCameraNumber As Long, _
                                        ByVal szName As String, _
                                        ByVal iMaxLen As Long)

Public Declare Sub lvx_QueryConnectorName Lib "Orchid" (ByVal hLvxTask As Long, _
                                        ByVal iGrabberNumber As Long, _
                                        ByVal iCameraNumber As Long, _
                                        ByVal iConnectorNumber As Long, _
                                        ByVal szName As String, _
                                        ByVal iMaxLen As Long)

' Notifying functions
Public Declare Sub lvx_SetNotifyCallBack Lib "Orchid" (ByVal hLvxTask As Long, _
                                        ByVal iCallBackType As Long, _
                                        ByVal iParam1 As Long, _
                                        ByVal iParam2 As Long)

' Extended commands
Public Declare Function lvx_Command Lib "Orchid" (ByVal hLvxTask As Long, _
                                        ByVal pszCommand As String) As Long
Public Declare Sub lvx_CommandStr Lib "Orchid" (ByVal hLvxTask As Long, _
                                             ByVal szCommand As String, _
                                             ByVal szReturnStr As String, _
                                             ByVal iMaxLen As Long)

Public Declare Function lvx_CommandInt Lib "Orchid" (ByVal hLvxTask As Long, _
                                                     ByVal iCommand As Long, _
                                                     ByVal iParam1 As Long, _
                                                     ByVal iParam2 As Long, _
                                                     ByVal iParam3 As Long) As Long

' Preprocessing
Public Declare Sub lvx_SetPreprocessing Lib "Orchid" (ByVal hLvxTask As Long, ByVal bSet As Long)
Public Declare Function lvx_GetPreprocessing Lib "Orchid" (ByVal hLvxTask As Long) As Long

' Optocoupler I/O

Public Declare Function lvx_GetOptoInput Lib "Orchid" (ByVal hLvxTask As Long, _
                                           ByVal iMask As Long, _
                                           ByVal bBuffered As Long) As Long
Public Declare Function lvx_WaitOptoInput Lib "Orchid" (ByVal hLvxTask As Long, _
                                           ByVal iMask As Long, _
                                           ByVal bWaitForAll As Long, _
                                           ByVal iTimeout As Long, _
                                           ByVal iReserved As Long) As Long
Public Declare Sub lvx_SetOptoOutput Lib "Orchid" (ByVal hLvxTask As Long, iMask As Long)

Public Declare Function lvx_GetGPInput Lib "Orchid" (ByVal hLvxTask As Long, _
                                                     ByVal iMask As Long) As Long
Public Declare Sub lvx_SetGPOutput Lib "Orchid" (ByVal hLvxTask As Long, _
                                                 ByVal iMask As Long)

' Preprocessor functions

Public Declare Sub lvx_SetOwnerTask Lib "Orchid" (ByVal hLvxTask As Long, _
                                                  ByVal hLvxOwnerTask As Long)
Public Declare Sub lvx_ClearFilterList Lib "Orchid" (ByVal hLvxTask As Long)
Public Declare Sub lvx_AddFilter Lib "Orchid" (ByVal hLvxTask As Long, _
                                               ByVal sFilter As String)
Public Declare Sub lvx_ClearFilterRectList Lib "Orchid" (ByVal hLvxTask As Long)
Public Declare Sub lvx_AddFilterRect Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal iLeft As Long, _
                                            ByVal iTop As Long, _
                                            ByVal iRight As Long, _
                                            ByVal iBottom As Long)
Public Declare Sub lvx_PreprocessImage Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal iImageIndex As Long, _
                                            ByVal bPutBack As Long)
' Preprocessor overlay functions

Public Declare Function lvx_CreateOverlay Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal iWidth As Long, _
                                            ByVal iHeight As Long) As Long
Public Declare Sub lvx_DeleteOverlay Lib "Orchid" (ByVal hLvxTask As Long, ByVal hOverlay As Long)
Public Declare Sub lvx_SetOverlayOffset Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long, _
                                            ByVal iXOffset As Long, _
                                            ByVal iYOffset As Long)
Public Declare Function lvx_GetOverlayDc Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long) As Long
Public Declare Sub lvx_ReleaseOverlayDc Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long)
Public Declare Sub lvx_WipeOverlay Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long, ByVal iColor As Long)
Public Declare Sub lvx_SetOverlayTransparentColor Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long, ByVal iColor As Long)
Public Declare Sub lvx_SetOverlayTextParams Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long, _
                                            ByVal sFont As String, _
                                            ByVal iSize As Long, _
                                            ByVal iColor As Long, _
                                            ByVal iOutlineColor As Long, _
                                            ByVal iAttributes As Long)
Public Declare Sub lvx_WriteTextToOverlay Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long, _
                                            ByVal sText As String, _
                                            ByVal iXOffset As Long, _
                                            ByVal iYOffset As Long)
Public Declare Sub lvx_PutBitmapToOverlay Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long, _
                                            ByVal pBitmapInfo As Long, _
                                            ByVal pBitmapData As Long, _
                                            ByVal iXOffset As Long, _
                                            ByVal iYOffset As Long)
Public Declare Sub lvx_PutBitmapToOverlayFromBmpFile Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long, _
                                            ByVal sFileName As String, _
                                            ByVal iXOffset As Long, _
                                            ByVal iYOffset As Long)
Public Declare Sub lvx_SetOverlayVisible Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long, ByVal bVisible As Long)
Public Declare Function lvx_GetOverlayVisible Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long) As Long
' DirectX Processor functions
Public Declare Sub lvx_FlipOverlay Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal hOverlay As Long)
Public Declare Sub lvx_SetInitialParam Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal sParamName As String, _
                                            ByVal iValue As Long)
Public Declare Function lvx_GetInitialParam Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal sParamName As String) As Long
Public Declare Sub lvx_SetRunParam Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal sParamName As String, _
                                            ByVal iValue As Long)
Public Declare Function lvx_GetRunParam Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal sParamName As String) As Long
Public Declare Function lvx_GetCapability Lib "Orchid" (ByVal hLvxTask As Long, _
                                            ByVal sCapName As String) As Long
                                            
' COM Control functions
Public Declare Sub lvx_DisplayCameraCommDialog Lib "Orchid" (ByVal hLvxTask As Long, _
                                                ByVal hWindow As Long, _
                                                ByVal szFileName As String)
                                               
Public Declare Sub lvx_InitForCameraComm Lib "Orchid" (ByVal hLvxTask As Long, _
                                          ByVal iConnector As Long)
Public Declare Sub lvx_CameraCommOpen Lib "Orchid" (ByVal hLvxTask As Long, _
                                          ByVal iConnector As Long)
Public Declare Sub lvx_CameraCommSetParam Lib "Orchid" (ByVal hLvxTask As Long, _
                                           ByVal iConnector As Long, _
                                           ByVal iBaudRate As Long, _
                                           ByVal iParity As Long, _
                                           ByVal iByteSize As Long, _
                                           ByVal iStopBit As Long)
Public Declare Sub lvx_CameraCommSend Lib "Orchid" (ByVal hLvxTask As Long, _
                                       ByVal iConnector As Long, _
                                       ByVal szCommand As String, _
                                       ByVal iCommandLen As Long, _
                                       ByVal szResponse As String, _
                                       ByVal iMaxResponseLen As Long, _
                                       ByVal iTimeout As Long, _
                                       ByVal iEndOfTransmissionChar As Long)
Public Declare Function lvx_CameraCommSendEx Lib "Orchid" (ByVal hLvxTask As Long, _
                                       ByVal iConnector As Long, _
                                       ByVal szCommand As String, _
                                       ByVal iCommandLen As Long, _
                                       ByVal szResponse As String, _
                                       ByVal iMaxResponseLen As Long, _
                                       ByVal iTimeout As Long, _
                                       ByVal iEndOfTransmissionChar As Long) As Long
Public Declare Sub lvx_CameraCommClose Lib "Orchid" (ByVal hLvxTask As Long, _
                                        ByVal iConnector As Long)