orchid.pas

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

  procedure lvx_SaveImageToBmpFile     (hLvxTask: ThLvxTask; szFileName: PAnsiChar); stdcall;
  procedure lvx_SaveImageToJpgFile     (hLvxTask: ThLvxTask; szFileName: PAnsiChar; iQuality: integer); stdcall;
  procedure lvx_SaveImageToTifFile     (hLvxTask: ThLvxTask; szFileName: PAnsiChar; iOptions: integer); stdcall;

  procedure lvx_SaveImageToAviFile     (hLvxTask: ThLvxTask; iImageIndex: integer;
                                        iOptions: integer; iReserved: integer); stdcall;
  procedure lvx_SetCaptureToAvi        (hLvxTask: ThLvxTask; bSet: LongBool); stdcall;
  function  lvx_GetCaptureToAvi        (hLvxTask: ThLvxTask): LongBool; stdcall;

  procedure lvx_OpenAviFile            (hLvxTask: ThLvxTask; pszName: PAnsiChar;
                                        iOptions: integer; iReserved: integer); stdcall;
  procedure lvx_CloseAviFile           (hLvxTask: ThLvxTask; iReserved: integer); stdcall;

  procedure lvx_SetAviInterFrameDelay  (hLvxTask: ThLvxTask; iValue: integer); stdcall;
  function  lvx_GetAviInterFrameDelay  (hLvxTask: ThLvxTask): integer; stdcall;

// Saving and loading settings
  procedure lvx_SaveSettings           (hLvxTask: ThLvxTask; szId: PAnsiChar;
                                        szFileName: PAnsiChar); stdcall;
  function  lvx_LoadSettings           (hLvxTask: ThLvxTask; szId: PAnsiChar;
                                        szFileName: PAnsiChar): LongBool; stdcall;

  procedure lvx_SaveAviSettings        (hLvxTask: ThLvxTask; szId: PAnsiChar;
                                        szFileName: PAnsiChar); stdcall;
  function  lvx_LoadAviSettings        (hLvxTask: ThLvxTask; szId: PAnsiChar;
                                        szFileName: PAnsiChar): LongBool; stdcall;

// Dialog boxes
  function  lvx_DisplayConnectionDialog      (hLvxTask: ThLvxTask; hWindow: HWND): LongBool; stdcall;
  function  lvx_DisplayLiveSettingsDialog    (hLvxTask: ThLvxTask; hWindow: HWND): LongBool; stdcall;
  function  lvx_DisplaySnapSettingsDialog    (hLvxTask: ThLvxTask; hWindow: HWND): LongBool; stdcall;

  procedure lvx_DisplayInitialSettingsDialog (hLvxTask: ThLvxTask; hWindow: HWND); stdcall;
  procedure lvx_DisplayIOSettingsDialog      (hLvxTask: ThLvxTask; hWindow: HWND); stdcall;
  procedure lvx_DisplayRunTimeSettingsDialog (hLvxTask: ThLvxTask; hWindow: HWND); stdcall;
  function  lvx_DisplayAviSettingsDialog     (hLvxTask: ThLvxTask; hWindow: HWND): LongBool; stdcall;

// Querying info
  procedure lvx_QueryGrabberName       (hLvxTask: ThLvxTask;
                                        iGrabberNumber: integer;
                                        szName: PAnsiChar;
                                        iMaxLen: integer); stdcall;

  procedure lvx_QueryCameraName        (hLvxTask: ThLvxTask;
                                        iGrabberNumber: integer;
                                        iCameraNumber: integer;
                                        szName: PAnsiChar;
                                        iMaxLen: integer); stdcall;

  procedure lvx_QueryConnectorName     (hLvxTask: ThLvxTask;
                                        iGrabberNumber: integer;
                                        iCameraNumber: integer;
                                        iConnectorNumber: integer;
                                        szName: PAnsiChar;
                                        iMaxLen: integer); stdcall;

// Notifying functions
  procedure lvx_SetNotifyCallBack      (hLvxTask: ThLvxTask;
                                        iCallBackType: integer;
                                        iParam1: integer;
                                        iParam2: integer); stdcall;

// Extended commands
  function  lvx_Command                (hLvxTask: ThLvxTask;
                                        pszCommand: PAnsiChar): integer; stdcall;
  procedure lvx_CommandStr             (hLvxTask: ThLvxTask;
                                        pszCommand: PAnsiChar;
                                        pszReturnStr: PAnsiChar; iMaxLen: integer); stdcall;
  function  lvx_CommandInt             (hLvxTask: ThLvxTask;
                                        iCommand: integer; iParam1: integer;
                                        iParam2: integer; iParam3: integer): integer; stdcall;

// Preprocessing
  procedure lvx_SetPreprocessing       (hLvxTask: ThLvxTask; bSet: LongBool); stdcall;  // obsolete
  function  lvx_GetPreprocessing       (hLvxTask: ThLvxTask): LongBool; stdcall;        // obsolete

// I/O
  function  lvx_GetOptoInput           (hLvxTask: ThLvxTask; iMask: integer;
                                        bBuffered: LongBool): integer; stdcall;
  function  lvx_WaitOptoInput          (hLvxTask: ThLvxTask; iMask: integer;
                                        bWaitForAll: LongBool; iTimeout: integer;
                                        iReserved: integer): integer; stdcall;
  procedure lvx_SetOptoOutput          (hLvxTask: ThLvxTask; iMask: integer); stdcall;
  function  lvx_GetGPInput             (hLvxTask: ThLvxTask; iMask: integer): integer; stdcall;
  procedure lvx_SetGPOutput            (hLvxTask: ThLvxTask; iMask: integer); stdcall;

// Preprocessor functions

  procedure lvx_SetOwnerTask                  (hLvxTask: ThLvxTask; hLvxOwnerTask: ThLvxTask); stdcall;
  procedure lvx_ClearFilterList               (hLvxTask: ThLvxTask); stdcall;
  procedure lvx_AddFilter                     (hLvxTask: ThLvxTask;
                                               pszFilter: PAnsiChar); stdcall;
  procedure lvx_ClearFilterRectList           (hLvxTask: ThLvxTask); stdcall;
  procedure lvx_AddFilterRect                 (hLvxTask: ThLvxTask;
                                               iLeft: integer; iTop: integer;
                                               iRight: integer; iBottom: integer); stdcall;
  procedure lvx_PreprocessImage               (hLvxTask: ThLvxTask; iImageIndex: integer;
                                               bPutBack: LongBool); stdcall;
// Preprocessor overlay functions

  function  lvx_CreateOverlay                 (hLvxTask: ThLvxTask;
                                               iWidth: integer; iHeight: integer): integer; stdcall;
  procedure lvx_DeleteOverlay                 (hLvxTask: ThLvxTask; hOverlay: integer); stdcall;
  procedure lvx_SetOverlayOffset              (hLvxTask: ThLvxTask; hOverlay: integer;
                                               iXOffset: integer; iYOffset: integer); stdcall;
  function  lvx_GetOverlayDc                  (hLvxTask: ThLvxTask; hOverlay: integer): HDC; stdcall;
  procedure lvx_ReleaseOverlayDc              (hLvxTask: ThLvxTask; hOverlay: integer); stdcall;
  procedure lvx_WipeOverlay                   (hLvxTask: ThLvxTask;
                                               hOverlay: integer; iColor: integer); stdcall;
  procedure lvx_SetOverlayTransparentColor    (hLvxTask: ThLvxTask;
                                               hOverlay: integer; iColor: integer); stdcall;
  procedure lvx_SetOverlayTextParams          (hLvxTask: ThLvxTask; hOverlay: integer;
                                               pszFont: PAnsiChar; iSize: integer;
                                               iColor: integer; iOutlineColor: integer;
                                               iAttributes: integer); stdcall;
  procedure lvx_WriteTextToOverlay            (hLvxTask: ThLvxTask; hOverlay: integer;
                                               pszText: PAnsiChar;
                                               iXOffset: integer; iYOffset: integer); stdcall;
  procedure lvx_PutBitmapToOverlay            (hLvxTask: ThLvxTask; hOverlay: integer;
                                               BitmapInfo: PBitmapInfo;
                                               BitmapData: PByte;
                                               iXOffset: integer; iYOffset: integer); stdcall;
  procedure lvx_PutBitmapToOverlayFromBmpFile (hLvxTask: ThLvxTask; hOverlay: integer;
                                               pszFileName: PAnsiChar;
                                               iXOffset: integer; iYOffset: integer); stdcall;
  procedure lvx_SetOverlayVisible             (hLvxTask: ThLvxTask;
                                               hOverlay: integer; bVisible: LongBool); stdcall;
  function  lvx_GetOverlayVisible             (hLvxTask: ThLvxTask; hOverlay: integer): LongBool; stdcall;

// DirectX Processor functions
  procedure lvx_FlipOverlay                   (hLvxTask: ThLvxTask; hOverlay: integer); stdcall;
  procedure lvx_SetInitialParam               (hLvxTask: ThLvxTask;
                                               pszParamName: PAnsiChar; iValue: integer); stdcall;
  function  lvx_GetInitialParam               (hLvxTask: ThLvxTask;
                                               pszParamName: PAnsiChar): integer; stdcall;
  procedure lvx_SetRunParam                   (hLvxTask: ThLvxTask;
                                               pszParamName: PAnsiChar; iValue: integer); stdcall;
  function  lvx_GetRunParam                   (hLvxTask: ThLvxTask;
                                               pszParamName: PAnsiChar): integer; stdcall;
  function  lvx_GetCapability                 (hLvxTask: ThLvxTask;
                                               pszCapName: PAnsiChar): integer; stdcall;
// COM Control functions
  procedure lvx_DisplayCameraCommDialog       (hLvxTask: ThLvxTask; hWindow: HWND;
                                               pszFileName: PAnsiChar); stdcall;
  procedure lvx_InitForCameraComm             (hLvxTask: ThLvxTask; iConnector: integer); stdcall;
  procedure lvx_CameraCommOpen                (hLvxTask: ThLvxTask; iConnector: integer); stdcall;
  procedure lvx_CameraCommSetParam            (hLvxTask: ThLvxTask; iConnector: integer;
                                               iBaudRate: integer; iParity: integer;
                                               iByteSize: integer; iStopBit: integer); stdcall;
  procedure lvx_CameraCommSend                (hLvxTask: ThLvxTask; iConnector: integer;
                                               pszCommand: PAnsiChar; iCommandLen: integer;
                                               pszResponse: PAnsiChar; iMaxResponseLen: integer;
                                               iTimeout: integer; iEndOfTransmissionChar: integer); stdcall;
  function  lvx_CameraCommSendEx              (hLvxTask: ThLvxTask; iConnector: integer;
                                               pszCommand: PAnsiChar; iCommandLen: integer;
                                               pszResponse: PAnsiChar; iMaxResponseLen: integer;
                                               iTimeout: integer; iEndOfTransmissionChar: integer): integer; stdcall;
  procedure lvx_CameraCommClose               (hLvxTask: ThLvxTask; iConnector: integer); stdcall;


implementation

  procedure lvx_SetLoadWindowEnable          ; external 'orchid.dll';
  function  lvx_GetLoadWindowEnable          ; external 'orchid.dll';
  procedure lvx_SetLoadWindowText            ; external 'orchid.dll';
  procedure lvx_LoadDlls                     ; external 'orchid.dll';
  function  lvx_GetVersion                   ; external 'orchid.dll';
  function  lvx_GetLastStatus                ; external 'orchid.dll';
  procedure lvx_GetLastStatusShortMsg        ; external 'orchid.dll';
  procedure lvx_GetLastStatusLongMsg         ; external 'orchid.dll';
  function  lvx_OpenTask                     ; external 'orchid.dll';
  procedure lvx_CloseTask                    ; external 'orchid.dll';
  function  lvx_GetTaskStatus                ; external 'orchid.dll';
  procedure lvx_GetTaskStatusShortMsg        ; external 'orchid.dll';
  procedure lvx_GetTaskStatusLongMsg         ; external 'orchid.dll';
  procedure lvx_SetGrabber                   ; external 'orchid.dll';
  procedure lvx_GetGrabber                   ; external 'orchid.dll';
  procedure lvx_SetGrabberNumber             ; external 'orchid.dll';
  function  lvx_GetGrabberNumber             ; external 'orchid.dll';
  procedure lvx_SetGrabberOrder              ; external 'orchid.dll';
  function  lvx_GetGrabberOrder              ; external 'orchid.dll';
  procedure lvx_SetCamera                    ; external 'orchid.dll';
  procedure lvx_GetCamera                    ; external 'orchid.dll';
  procedure lvx_SetBaseCamera                ; external 'orchid.dll';
  procedure lvx_GetBaseCamera                ; external 'orchid.dll';
  procedure lvx_SetConnector                 ; external 'orchid.dll';
  procedure lvx_GetConnector                 ; external 'orchid.dll';
  procedure lvx_SetConnectorList             ; external 'orchid.dll';
  procedure lvx_GetConnectorList             ; external 'orchid.dll';
  procedure lvx_ClearConnectorList           ; external 'orchid.dll';
  procedure lvx_AddConnectorToList           ; external 'orchid.dll';
  procedure lvx_SetShutter                   ; external 'orchid.dll';
  procedure lvx_GetShutter                   ; external 'orchid.dll';