orchid.bas

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

Public Declare Sub lvx_SetCheckpoints Lib "Orchid" (ByVal hLvxTask As Long, _
                                                 ByVal iCheckpoints As Long)
Public Declare Function lvx_GetCheckpoints Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetFlowMode Lib "Orchid" (ByVal hLvxTask As Long, ByVal iFlowMode As Long)
Public Declare Function lvx_GetFlowMode Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetAsynchronousGrab Lib "Orchid" (ByVal hLvxTask As Long, _
                                                      ByVal bSet As Long)
Public Declare Function lvx_GetAsynchronousGrab Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetRandomCameraSwitch Lib "Orchid" (ByVal hLvxTask As Long, _
                                                        ByVal bSet As Long)                          'obsolete
Public Declare Function lvx_GetRandomCameraSwitch Lib "Orchid" (ByVal hLvxTask As Long) As Long      'obsolete

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

Public Declare Sub lvx_SetImageBitsPerPixel Lib "Orchid" (ByVal hLvxTask As Long, _
                                                       ByVal iBitsPerPixel As Long)
Public Declare Function lvx_GetImageBitsPerPixel Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetImageWidth Lib "Orchid" (ByVal hLvxTask As Long, ByVal iWidth As Long)
Public Declare Sub lvx_SetImageHeight Lib "Orchid" (ByVal hLvxTask As Long, ByVal iHeight As Long)

Public Declare Function lvx_GetImageWidth Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Function lvx_GetImageHeight Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetScaling Lib "Orchid" (ByVal hLvxTask As Long, ByVal bScaling As Long)      'obsolete
Public Declare Function lvx_GetScaling Lib "Orchid" (ByVal hLvxTask As Long) As Long                 'obsolete

Public Declare Sub lvx_SetHorizontalMirror Lib "Orchid" (ByVal hLvxTask As Long, _
                                                      ByVal bMirror As Long)                         'obsolete
Public Declare Function lvx_GetHorizontalMirror Lib "Orchid" (ByVal hLvxTask As Long) As Long        'obsolete

Public Declare Sub lvx_SetVerticalMirror Lib "Orchid" (ByVal hLvxTask As Long, _
                                                    ByVal bMirror As Long)                           'obsolete
Public Declare Function lvx_GetVerticalMirror Lib "Orchid" (ByVal hLvxTask As Long) As Long          'obsolete

' Initializing, grabbing
Public Declare Sub lvx_Initialize Lib "Orchid" (ByVal hLvxTask As Long)
Public Declare Sub lvx_Uninitialize Lib "Orchid" (ByVal hLvxTask As Long)
Public Declare Function lvx_GetActive Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Function lvx_GetImageRealBitsPerPixel Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Function lvx_GetImageRealWidth Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Function lvx_GetImageRealHeight Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetLive Lib "Orchid" (ByVal hLvxTask As Long, ByVal bSet As Long)
Public Declare Function lvx_GetLive Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetLiveMode Lib "Orchid" (ByVal hLvxTask As Long, ByVal iLiveMode As Long)
Public Declare Function lvx_GetLiveMode Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_MakeSnap Lib "Orchid" (ByVal hLvxTask As Long)

Public Declare Sub lvx_GrabContinue Lib "Orchid" (ByVal hLvxTask As Long)
Public Declare Sub lvx_GrabPause Lib "Orchid" (ByVal hLvxTask As Long)
Public Declare Sub lvx_SwitchToCamera Lib "Orchid" (ByVal hLvxTask As Long, _
                                                 ByVal iCamera As Long)                              'obsolete
Public Declare Sub lvx_CancelGrab Lib "Orchid" (ByVal hLvxTask As Long)                              'obsolete

' Runtime parameters
Public Declare Sub lvx_SetBrightness Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)     'obsolete
Public Declare Function lvx_GetBrightness Lib "Orchid" (ByVal hLvxTask As Long) As Long              'obsolete

Public Declare Sub lvx_SetContrast Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)       'obsolete
Public Declare Function lvx_GetContrast Lib "Orchid" (ByVal hLvxTask As Long) As Long                'obsolete

Public Declare Sub lvx_SetHue Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)            'obsolete
Public Declare Function lvx_GetHue Lib "Orchid" (ByVal hLvxTask As Long) As Long                     'obsolete

Public Declare Sub lvx_SetSaturation Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)     'obsolete
Public Declare Function lvx_GetSaturation Lib "Orchid" (ByVal hLvxTask As Long) As Long              'obsolete

Public Declare Function lvx_GetChromaAvailable Lib "Orchid" (ByVal hLvxTask As Long) As Long         'obsolete

Public Declare Function lvx_GetImageMaxWidth Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Function lvx_GetImageMaxHeight Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Function lvx_GetFramesPerSec Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Function lvx_GetLiveWidth Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Function lvx_GetLiveHeight Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetTimeout Lib "Orchid" (ByVal hLvxTask As Long, ByVal iTimeout As Long)      'obsolete
Public Declare Function lvx_GetTimeout Lib "Orchid" (ByVal hLvxTask As Long) As Long                 'obsolete
Public Declare Function lvx_GetTimeoutExpired Lib "Orchid" (ByVal hLvxTask As Long) As Long          'obsolete

Public Declare Function lvx_GetGrabbing Lib "Orchid" (ByVal hLvxTask As Long) As Long                'obsolete
Public Declare Function lvx_GetLastImage Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Function lvx_GetLastSubsequence Lib "Orchid" (ByVal hLvxTask As Long) As Long         'obsolete
Public Declare Function lvx_GetCurrentImage Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Function lvx_GetCurrentSubsequence Lib "Orchid" (ByVal hLvxTask As Long) As Long      'obsolete

Public Declare Function lvx_GetNumberOfCameras Lib "Orchid" (ByVal hLvxTask As Long) As Long         'obsolete

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

Public Declare Sub lvx_SetFlowCheckDelay Lib "Orchid" (ByVal hLvxTask As Long, _
                                                    ByVal iValue As Long)                            'obsolete
Public Declare Function lvx_GetFlowCheckDelay Lib "Orchid" (ByVal hLvxTask As Long) As Long          'obsolete

Public Declare Sub lvx_SetFieldStart Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)     'obsolete
Public Declare Function lvx_GetFieldStart Lib "Orchid" (ByVal hLvxTask As Long) As Long              'obsolete

Public Declare Sub lvx_SetFieldAcquisition Lib "Orchid" (ByVal hLvxTask As Long, _
                                                      ByVal iValue As Long)                          'obsolete
Public Declare Function lvx_GetFieldAcquisition Lib "Orchid" (ByVal hLvxTask As Long) As Long        'obsolete

Public Declare Sub lvx_SetAdcUpperLevel Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)  'obsolete
Public Declare Function lvx_GetAdcUpperLevel Lib "Orchid" (ByVal hLvxTask As Long) As Long           'obsolete

Public Declare Sub lvx_SetAdcLowerLevel Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)  'obsolete
Public Declare Function lvx_GetAdcLowerLevel Lib "Orchid" (ByVal hLvxTask As Long) As Long           'obsolete

Public Declare Sub lvx_SetShutterTime Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)
Public Declare Function lvx_GetShutterTime Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Function lvx_GetGain Lib "Orchid" (ByVal hLvxTask As Long, _
                                                  ByVal iGainType As Long) As Long
Public Declare Sub lvx_SetGain Lib "Orchid" (ByVal hLvxTask As Long, _
                                             ByVal iGain As Long, _
                                             ByVal iGainType As Long)

Public Declare Function lvx_GetExposure Lib "Orchid" (ByVal hLvxTask As Long, _
                                                      ByVal iFlags As Long) As Long
Public Declare Sub lvx_SetExposure Lib "Orchid" (ByVal hLvxTask As Long, _
                                                 ByVal iMicroseconds As Long, _
                                                 ByVal iFlags As Long)

Public Declare Function lvx_GetBlackLevel Lib "Orchid" (ByVal hLvxTask As Long, _
                                                        ByVal iFlags As Long) As Long
Public Declare Sub lvx_SetBlackLevel Lib "Orchid" (ByVal hLvxTask As Long, _
                                                   ByVal iLevel As Long, _
                                                   ByVal iFlags As Long)

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

Public Declare Sub lvx_SetFlashMode Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)
Public Declare Function lvx_GetFlashMode Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetFlashEnable Lib "Orchid" (ByVal hLvxTask As Long, ByVal bEnable As Long)
Public Declare Function lvx_GetFlashEnable Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_SetImageLocked Lib "Orchid" (ByVal hLvxTask As Long, ByVal iImage As Long, ByVal bLock As Long)
Public Declare Function lvx_GetImageLocked Lib "Orchid" (ByVal hLvxTask As Long, ByVal iImage As Long) As Long

Public Declare Sub lvx_SetFlashStart Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)    'obsolete
Public Declare Function lvx_GetFlashStart Lib "Orchid" (ByVal hLvxTask As Long) As Long             'obsolete

Public Declare Sub lvx_SetFlashEnd Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)      'obsolete
Public Declare Function lvx_GetFlashEnd Lib "Orchid" (ByVal hLvxTask As Long) As Long               'obsolete

Public Declare Sub lvx_SetFlashWindowStart Lib "Orchid" (ByVal hLvxTask As Long, _
                                                      ByVal iValue As Long)                         'obsolete
Public Declare Function lvx_GetFlashWindowStart Lib "Orchid" (ByVal hLvxTask As Long) As Long       'obsolete

Public Declare Sub lvx_SetFlashWindowEnd Lib "Orchid" (ByVal hLvxTask As Long, _
                                                    ByVal iValue As Long)                           'obsolete
Public Declare Function lvx_GetFlashWindowEnd Lib "Orchid" (ByVal hLvxTask As Long) As Long         'obsolete

Public Declare Sub lvx_SetFlashWidth Lib "Orchid" (ByVal hLvxTask As Long, ByVal iValue As Long)    'obsolete
Public Declare Function lvx_GetFlashWidth Lib "Orchid" (ByVal hLvxTask As Long) As Long             'obsolete

' Displaying images
Public Declare Sub lvx_SetDisplayImageIndex Lib "Orchid" (ByVal hLvxTask As Long, _
                                                       ByVal iImageIndex As Long)
Public Declare Function lvx_GetDisplayImageIndex Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_DisplayImage Lib "Orchid" (ByVal hLvxTask As Long, ByVal hWindow As Long, _
                                               ByVal iImageIndex As Long)
Public Declare Sub lvx_DisplayImageEx Lib "Orchid" (ByVal hLvxTask As Long, ByVal hWindow As Long, _
                                                 ByVal hDevCtx As Long, ByVal iImageIndex As Long)

Public Declare Sub lvx_SetImageDisplayStretch Lib "Orchid" (ByVal hLvxTask As Long, _
                                                         ByVal bSet As Long)                        'obsolete
Public Declare Function lvx_GetImageDisplayStretch Lib "Orchid" (ByVal hLvxTask As Long) As Long    'obsolete

Public Declare Sub lvx_SetTileImages Lib "Orchid" (ByVal hLvxTask As Long, ByVal bTile As Long)
Public Declare Function lvx_GetTileImages Lib "Orchid" (ByVal hLvxTask As Long) As Long


Public Declare Sub lvx_SetDisplayWindow Lib "Orchid" (ByVal hLvxTask As Long, _
                                                   ByVal hWindow As Long)
Public Declare Function lvx_GetDisplayWindow Lib "Orchid" (ByVal hLvxTask As Long) As Long

' Getting images
Public Declare Sub lvx_SetImageIndex Lib "Orchid" (ByVal hLvxTask As Long, _
                                                ByVal iImageIndex As Long)
Public Declare Function lvx_GetImageIndex Lib "Orchid" (ByVal hLvxTask As Long) As Long


Public Declare Function lvx_GetImageBitmapInfo Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Function lvx_GetImageBitmapData Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_CreateDisplayableImageBitmap Lib "Orchid" (ByVal hLvxTask As Long, _
                                                                  ByVal bInTopDownFormat As Long, _
                                                                  ByVal bForce As Long)
Public Declare Function lvx_GetDisplayableImageBitmapInfo Lib "Orchid" (ByVal hLvxTask As Long) As Long
Public Declare Function lvx_GetDisplayableImageBitmapData Lib "Orchid" (ByVal hLvxTask As Long) As Long

Public Declare Sub lvx_CopyImageToClipboard Lib "Orchid" (ByVal hLvxTask As Long)

Public Declare Sub lvx_SaveImageToBmpFile Lib "Orchid" (ByVal hLvxTask As Long, _
                                                    ByVal szFileName As String)
Public Declare Sub lvx_SaveImageToJpgFile Lib "Orchid" (ByVal hLvxTask As Long, _
                                                    ByVal szFileName As String, ByVal iQuality As Long)
Public Declare Sub lvx_SaveImageToTifFile Lib "Orchid" (ByVal hLvxTask As Long, _
                                                    ByVal szFileName As String, ByVal iOptions As Long)
Public Declare Sub lvx_SaveImageToAviFile Lib "Orchid" (ByVal hLvxTask As Long, _
                                                     ByVal iImageIndex As Long, _