orchid.pas

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

  procedure lvx_SetShutter             (hLvxTask: ThLvxTask; pszName: PAnsiChar); stdcall;             // obsolete
  procedure lvx_GetShutter             (hLvxTask: ThLvxTask; pszName: PAnsiChar;                       // obsolete
                                        iMaxLen: integer); stdcall;
  procedure lvx_SetAsyncResetMode  (hLvxTask: ThLvxTask; iMode: integer); stdcall;
  function  lvx_GetAsyncResetMode  (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetBoardsExtSync       (hLvxTask: ThLvxTask; bSet: LongBool); stdcall;                 // obsolete
  function  lvx_GetBoardsExtSync       (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete

  procedure lvx_SetSubsequences        (hLvxTask: ThLvxTask; iSubsequences: integer); stdcall;
  function  lvx_GetSubsequences        (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetCheckpoints         (hLvxTask: ThLvxTask; iCheckpoints: integer); stdcall;
  function  lvx_GetCheckpoints         (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetFlowMode            (hLvxTask: ThLvxTask; iFlowMode: integer); stdcall;
  function  lvx_GetFlowMode            (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetAsynchronousGrab    (hLvxTask: ThLvxTask; bSet: LongBool); stdcall;
  function  lvx_GetAsynchronousGrab    (hLvxTask: ThLvxTask): LongBool; stdcall;

  procedure lvx_SetRandomCameraSwitch  (hLvxTask: ThLvxTask; bSet: LongBool); stdcall;                 // obsolete
  function  lvx_GetRandomCameraSwitch  (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete

  procedure lvx_SetParallelGrab        (hLvxTask: ThLvxTask; bSet: LongBool); stdcall;                 // obsolete
  function  lvx_GetParallelGrab        (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete

  procedure lvx_SetImageBitsPerPixel   (hLvxTask: ThLvxTask; iBitsPerPixel: integer); stdcall;
  function  lvx_GetImageBitsPerPixel   (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetImageWidth          (hLvxTask: ThLvxTask; iWidth: integer);  stdcall;
  procedure lvx_SetImageHeight         (hLvxTask: ThLvxTask; iHeight: integer); stdcall;

  function  lvx_GetImageWidth          (hLvxTask: ThLvxTask): integer; stdcall;
  function  lvx_GetImageHeight         (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetScaling             (hLvxTask: ThLvxTask; bScaling: LongBool); stdcall;             // obsolete
  function  lvx_GetScaling             (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete

  procedure lvx_SetHorizontalMirror    (hLvxTask: ThLvxTask; bMirror: LongBool); stdcall;              // obsolete
  function  lvx_GetHorizontalMirror    (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete

  procedure lvx_SetVerticalMirror      (hLvxTask: ThLvxTask; bMirror: LongBool); stdcall;              // obsolete
  function  lvx_GetVerticalMirror      (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete

// Initializing, grabbing
  procedure lvx_Initialize             (hLvxTask: ThLvxTask); stdcall;
  procedure lvx_Uninitialize           (hLvxTask: ThLvxTask); stdcall;
  function  lvx_GetActive              (hLvxTask: ThLvxTask): LongBool; stdcall;

  function  lvx_GetImageRealBitsPerPixel(hLvxTask: ThLvxTask): integer; stdcall;
  function  lvx_GetImageRealWidth      (hLvxTask: ThLvxTask): integer; stdcall;
  function  lvx_GetImageRealHeight     (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetLive                (hLvxTask: ThLvxTask; bSet: LongBool); stdcall;
  function  lvx_GetLive                (hLvxTask: ThLvxTask): LongBool; stdcall;

  procedure lvx_SetLiveMode            (hLvxTask: ThLvxTask; iLiveMode: integer); stdcall;
  function  lvx_GetLiveMode            (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_MakeSnap               (hLvxTask: ThLvxTask); stdcall;

  procedure lvx_GrabContinue           (hLvxTask: ThLvxTask); stdcall;
  procedure lvx_GrabPause              (hLvxTask: ThLvxTask); stdcall;
  procedure lvx_SwitchToCamera         (hLvxTask: ThLvxTask; iCamera: integer); stdcall;               // obsolete
  procedure lvx_CancelGrab             (hLvxTask: ThLvxTask); stdcall;                                 // obsolete

// Runtime parameters
  procedure lvx_SetBrightness          (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetBrightness          (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetContrast            (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetContrast            (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetHue                 (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetHue                 (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetSaturation          (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetSaturation          (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  function  lvx_GetChromaAvailable     (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete

  function  lvx_GetImageMaxWidth       (hLvxTask: ThLvxTask): integer; stdcall;
  function  lvx_GetImageMaxHeight      (hLvxTask: ThLvxTask): integer; stdcall;

  function  lvx_GetFramesPerSec        (hLvxTask: ThLvxTask): integer; stdcall;

  function  lvx_GetLiveWidth           (hLvxTask: ThLvxTask): integer; stdcall;
  function  lvx_GetLiveHeight          (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetTimeout             (hLvxTask: ThLvxTask; iTimeout: integer); stdcall;              // obsolete
  function  lvx_GetTimeout             (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete
  function  lvx_GetTimeoutExpired      (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete

  function  lvx_GetGrabbing            (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete
  function  lvx_GetLastImage           (hLvxTask: ThLvxTask): integer; stdcall;
  function  lvx_GetLastSubsequence     (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete
  function  lvx_GetCurrentImage        (hLvxTask: ThLvxTask): integer; stdcall;
  function  lvx_GetCurrentSubsequence  (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  function  lvx_GetNumberOfCameras     (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetExternalTrigger     (hLvxTask: ThLvxTask; iValue: integer); stdcall;
  function  lvx_GetExternalTrigger     (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetFlowCheckDelay      (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetFlowCheckDelay      (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetFieldStart          (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetFieldStart          (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetFieldAcquisition    (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetFieldAcquisition    (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetAdcUpperLevel       (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetAdcUpperLevel       (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetAdcLowerLevel       (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetAdcLowerLevel       (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetShutterTime         (hLvxTask: ThLvxTask; iValue: integer); stdcall;
  function  lvx_GetShutterTime         (hLvxTask: ThLvxTask): integer; stdcall;

  function  lvx_GetGain                (hLvxTask: ThLvxTask; iGainType: integer): integer;  stdcall;
  procedure lvx_SetGain                (hLvxTask: ThLvxTask; iGain: integer; iGainType: integer); stdcall;

  function  lvx_GetExposure            (hLvxTask: ThLvxTask; iFlags: integer): integer; stdcall;
  procedure lvx_SetExposure            (hLvxTask: ThLvxTask; iMicroseconds: integer; iFlags: integer); stdcall;

  function  lvx_GetBlackLevel          (hLvxTask: ThLvxTask; iFlags: integer): integer; stdcall;
  procedure lvx_SetBlackLevel          (hLvxTask: ThLvxTask; iLevel: integer; iFlags: integer); stdcall;

  procedure lvx_SetCameraRestartDelay  (hLvxTask: ThLvxTask; iValue: integer); stdcall;
  function  lvx_GetCameraRestartDelay  (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetFlashMode           (hLvxTask: ThLvxTask; iValue: integer); stdcall;
  function  lvx_GetFlashMode           (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_SetFlashEnable         (hLvxTask: ThLvxTask; bEnable: LongBool); stdcall;
  function  lvx_GetFlashEnable         (hLvxTask: ThLvxTask): LongBool; stdcall;
  
  procedure lvx_SetImageLocked         (hLvxTask: ThLvxTask; iImage: integer; bLock: LongBool); stdcall;
  function  lvx_GetImageLocked         (hLvxTask: ThLvxTask; iImage: integer): LongBool; stdcall;

  procedure lvx_SetFlashStart          (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetFlashStart          (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetFlashEnd            (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetFlashEnd            (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetFlashWindowStart    (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetFlashWindowStart    (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetFlashWindowEnd      (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetFlashWindowEnd      (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

  procedure lvx_SetFlashWidth          (hLvxTask: ThLvxTask; iValue: integer); stdcall;                // obsolete
  function  lvx_GetFlashWidth          (hLvxTask: ThLvxTask): integer; stdcall;                        // obsolete

// Displaying images
  procedure lvx_SetDisplayImageIndex   (hLvxTask: ThLvxTask; iImageIndex: integer); stdcall;
  function  lvx_GetDisplayImageIndex   (hLvxTask: ThLvxTask): integer; stdcall;

  procedure lvx_DisplayImage           (hLvxTask: ThLvxTask; hWindow: HWND;
                                        iImageIndex: integer); stdcall;
  procedure lvx_DisplayImageEx         (hLvxTask: ThLvxTask; hWindow: HWND;
                                        hDevCtx: HDC; iImageIndex: integer); stdcall;

  procedure lvx_SetImageDisplayStretch (hLvxTask: ThLvxTask; bSet: LongBool); stdcall;                 // obsolete
  function  lvx_GetImageDisplayStretch (hLvxTask: ThLvxTask): LongBool; stdcall;                       // obsolete

  procedure lvx_SetTileImages          (hLvxTask: ThLvxTask; bTile: LongBool); stdcall;
  function  lvx_GetTileImages          (hLvxTask: ThLvxTask): LongBool; stdcall;


  procedure lvx_SetDisplayWindow       (hLvxTask: ThLvxTask; hWindow: HWND); stdcall;
  function  lvx_GetDisplayWindow       (hLvxTask: ThLvxTask): HWND ; stdcall;

// Getting images
  procedure lvx_SetImageIndex          (hLvxTask: ThLvxTask; iImageIndex: integer); stdcall;
  function  lvx_GetImageIndex          (hLvxTask: ThLvxTask): integer; stdcall;


  function  lvx_GetImageBitmapInfo     (hLvxTask: ThLvxTask): PBitmapInfo; stdcall;
  function  lvx_GetImageBitmapData     (hLvxTask: ThLvxTask): PByte; stdcall;

  procedure lvx_CreateDisplayableImageBitmap  (hLvxTask: ThLvxTask; bInTopDownFormat: LongBool; bForce: LongBool); stdcall;
  function  lvx_GetDisplayableImageBitmapInfo (hLvxTask: ThLvxTask): PBitmapInfo; stdcall;
  function  lvx_GetDisplayableImageBitmapData (hLvxTask: ThLvxTask): PByte; stdcall;

  procedure lvx_CopyImageToClipboard   (hLvxTask: ThLvxTask); stdcall;