orchid.pas

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

// LEUTRON VISION ORCHID.DLL - include file for Delphi 2.0 and higher

unit Orchid;

interface

uses Windows;

const
  lvx_Task_Live                      =  0;
  
  lvx_Task_Rt                        =  6;
  lvx_Task_RtBasic                   =  1;  // obsolete
  lvx_Task_RtFlash                   =  2;  // obsolete
  lvx_Task_RtAsyncReset              =  3;
  lvx_Task_RtFrameInt                =  4;  // obsolete
  lvx_Task_RtFrameIntAsyncReset      =  5;  // obsolete

  lvx_Task_Preprocessor              = 10;
  lvx_Task_DirectX                   = 11;

  lvx_Checkpoint_EndOfFrame          =  0;
  lvx_Checkpoint_EndOfSubsequence    =  1;  // obsolete
  lvx_Checkpoint_EndOfSequence       =  2;

  lvx_Flow_ContinueOnRequest         =  0;
  lvx_Flow_PauseOnRequest            =  1;

  lvx_LiveMode_Auto                  =  0;
  lvx_LiveMode_HardwareForce         =  1;
  lvx_LiveMode_Software              =  2;
  lvx_LiveMode_HardwareAuto          =  3;
  lvx_LiveMode_Hardware              =  1;  // obsolete

  lvx_ExtEv_Ignore                   =  0;
  lvx_ExtEv_Immediate                =  1;
  lvx_ExtEv_SwControlled             =  2;

  lvx_FshMd_None                     =  0;  // obsolete
  lvx_FshMd_FirstField               =  1;  // obsolete
  lvx_FshMd_BothField                =  2;  // obsolete

  lvx_FshMd_AR_CamTrigDelayed        =  0;  // AsyncReset Rt module
  lvx_FshMd_AR_CamTrig               =  1;
  lvx_FshMd_AR_FlashDelayed          =  2;

  lvx_FldStart_Any                   =  0;  // obsolete
  lvx_FldStart_Even                  =  1;  // obsolete
  lvx_FldStart_Odd                   =  2;  // obsolete

  lvx_FldAcq_2_Field                 =  0;  // obsolete
  lvx_FldAcq_1_Field                 =  1;  // obsolete

  lvx_FlowCheckDelay_0               =  0;  // obsolete
  lvx_FlowCheckDelay_180             =  1;  // obsolete
  lvx_FlowCheckDelay_320             =  2;  // obsolete
  lvx_FlowCheckDelay_420             =  3;  // obsolete
  lvx_FlowCheckDelay_610             =  4;  // obsolete
  lvx_FlowCheckDelay_3800            =  5;  // obsolete
  lvx_FlowCheckDelay_7500            =  6;  // obsolete

  lvx_AviFrame_RealTimeStamp         =  1;
  lvx_TiffConvertMonoTo16bit         =  1;

  lvx_GrabNotify_WinMsg              =  1;
  lvx_GrabNotify_WinObject           =  2;
  lvx_GrabNotify_Function            =  3;
  lvx_GrabNotify_Function_Param      =  4;

  lvx_TimeoutNotify_WinMsg           = 10;  // obsolete
  lvx_TimeoutNotify_WinObject        = 11;  // obsolete
  lvx_TimeoutNotify_Function         = 12;  // obsolete
  lvx_TimeoutNotify_Function_Param   = 13;  // obsolete

  lvx_Status_EepromOemNotInitialized = 65537;
  lvx_Status_EepromGrabberNotActive  = 65538;
  lvx_Status_EepromHwError           = 65539;
  lvx_Status_EepromUnknownError      = 65540;
  lvx_Status_EepromDoesNotMatch      = 65541;

  lvx_TextAttr_Bold                  = $0001; // for lvx_SetOverlayTextParams
  lvx_TextAttr_Italic                = $0002;
  lvx_TextAttr_Underline             = $0004;
  lvx_TextAttr_StrikeOut             = $0008;
  lvx_TextAttr_Shadow                = $0100; // default shadow is right-bottom
  lvx_TextAttr_Outline               = $FF00;

  lvx_TextAttr_ShadowRB              = $0100; // right-bottom
  lvx_TextAttr_ShadowRT              = $0200; // right-top
  lvx_TextAttr_ShadowLB              = $0400; // left-bottom
  lvx_TextAttr_ShadowLT              = $0800; // left-top
  lvx_TextAttr_ShadowB               = $1000; // bottom
  lvx_TextAttr_ShadowT               = $2000; // top
  lvx_TextAttr_ShadowR               = $4000; // right
  lvx_TextAttr_ShadowL               = $8000; // left

  lvx_Color_None                     = $FFFFFFFF; // for disabling transparent color
  lvx_Color_Black                    = $00000000;
  lvx_Color_Maroon                   = $00000080;
  lvx_Color_Green                    = $00008000;
  lvx_Color_Olive                    = $00008080;
  lvx_Color_Navy                     = $00800000;
  lvx_Color_Purple                   = $00800080;
  lvx_Color_Teal                     = $00808000;
  lvx_Color_Gray                     = $00808080;
  lvx_Color_Silver                   = $00C0C0C0;
  lvx_Color_Red                      = $000000FF;
  lvx_Color_Lime                     = $0000FF00;
  lvx_Color_Yellow                   = $0000FFFF;
  lvx_Color_Blue                     = $00FF0000;
  lvx_Color_Fuchsia                  = $00FF00FF;
  lvx_Color_Aqua                     = $00FFFF00;
  lvx_Color_LtGray                   = $00C0C0C0;
  lvx_Color_DkGray                   = $00808080;
  lvx_Color_White                    = $00FFFFFF;
  
  lvx_CameraGain_Analog         = $00000001;
  lvx_CameraGain_Digital        = $00000002;

  lvx_Cmd_GetAcquiredInfoWidth  = $00010001;
  lvx_Cmd_GetAcquiredInfoHeight = $00010002;
  lvx_Cmd_GetAcquiredInfoFlags  = $00010003;

  lvx_Cmd_SetLutMono8Bit        = $00020001;
  lvx_Cmd_SetLutMono10Bit       = $00020002;
  lvx_Cmd_SetLutMono12Bit       = $00020003;
  lvx_Cmd_SetLutRgb8Bit         = $00020004;

  lvx_Cmd_GetLutMono8Bit        = $00020011;
  lvx_Cmd_GetLutMono10Bit       = $00020012;
  lvx_Cmd_GetLutMono12Bit       = $00020013;
  lvx_Cmd_GetLutRgb8Bit         = $00020014;
  
  lvx_Cmd_IsCameraConnected     = $00030001;

  lvx_Cmd_UtilSetFrameTimeLog   = $01000001;
  lvx_Cmd_UtilGetFrameTime      = $01000002;

  lvx_Cmd_GetPixelValue         = $00040001;


type
  ThLvxTask = DWORD;
  // DLLs Loading
  procedure lvx_SetLoadWindowEnable (bEnable: LongBool); stdcall;
  function  lvx_GetLoadWindowEnable: LongBool; stdcall;
  procedure lvx_SetLoadWindowText(pszText: PAnsiChar; iWindowWidth: integer; iWindowHeight: integer); stdcall;

  procedure lvx_LoadDlls; stdcall
  function  lvx_GetVersion: integer; stdcall;

  // Error Handling
  function  lvx_GetLastStatus: integer; stdcall;
  procedure lvx_GetLastStatusShortMsg  (pszMsg: PAnsiChar; iMaxLen: integer); stdcall;
  procedure lvx_GetLastStatusLongMsg   (pszMsg: PAnsiChar; iMaxLen: integer); stdcall;

  // Task opening, closing
  function  lvx_OpenTask  (iTaskType: integer): ThLvxTask; stdcall;
  procedure lvx_CloseTask (hLvxTask: ThLvxTask); stdcall;

  function  lvx_GetTaskStatus (hLvxTask: ThLvxTask): integer; stdcall;
  procedure lvx_GetTaskStatusShortMsg  (hLvxTask: ThLvxTask;
                                        pszMsg: PAnsiChar; iMaxLen: integer); stdcall;
  procedure lvx_GetTaskStatusLongMsg   (hLvxTask: ThLvxTask;
                                        pszMsg: PAnsiChar; iMaxLen: integer); stdcall;

  // Initial settings
  procedure lvx_SetGrabber (hLvxTask: ThLvxTask; szName: PAnsiChar); stdcall;
  procedure lvx_GetGrabber (hLvxTask: ThLvxTask; szName: PAnsiChar; iMaxLen: integer); stdcall;

  procedure lvx_SetGrabberNumber (hLvxTask: ThLvxTask; iNumber: integer); stdcall;  // obsolete - use GrabberOrder
  function  lvx_GetGrabberNumber (hLvxTask: ThLvxTask): integer; stdcall;           // obsolete

  procedure lvx_SetGrabberOrder  (hLvxTask: ThLvxTask; iOrder: integer); stdcall;
  function  lvx_GetGrabberOrder  (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetCamera        (hLvxTask: ThLvxTask; szName: PAnsiChar); stdcall;
  procedure lvx_GetCamera        (hLvxTask: ThLvxTask; szName: PAnsiChar; iMaxLen: integer); stdcall;

  procedure lvx_SetBaseCamera    (hLvxTask: ThLvxTask; szName: PAnsiChar); stdcall;                    // obsolete
  procedure lvx_GetBaseCamera    (hLvxTask: ThLvxTask; szName: PAnsiChar; iMaxLen: integer); stdcall;  // obsolete

  procedure lvx_SetConnector     (hLvxTask: ThLvxTask; szName: PAnsiChar); stdcall;
  procedure lvx_GetConnector     (hLvxTask: ThLvxTask; szName: PAnsiChar; iMaxLen: integer); stdcall;

  procedure lvx_SetConnectorList (hLvxTask: ThLvxTask; szName: PAnsiChar); stdcall;                    // obsolete
  procedure lvx_GetConnectorList (hLvxTask: ThLvxTask; szName: PAnsiChar; iMaxLen: integer); stdcall;  // obsolete

  procedure lvx_ClearConnectorList     (hLvxTask: ThLvxTask); stdcall;                                 // obsolete
  procedure lvx_AddConnectorToList     (hLvxTask: ThLvxTask;                                           // obsolete
                                        pszConnectorName: PAnsiChar;
                                        pszGrabberName: PAnsiChar;
                                        iGrabberNumber: integer); stdcall;