ca200srvrlib_tlb.pas

采用PC控制Ca210彩色分析仪

    function Get_X: Single; safecall;
    function Get_Y: Single; safecall;
    function Get_Z: Single; safecall;
    function Get_FlckrJEITA: Single; safecall;
    function Get_Number: Integer; safecall;
    function Get_ID: WideString; safecall;
    procedure Set_ID(const ProbeIDVal: WideString); safecall;
    function Get_SerialNO: WideString; safecall;
    function Get_Lv: Single; safecall;
    function Get_ud: Single; safecall;
    function Get_vd: Single; safecall;
    function Get_T: Integer; safecall;
    function Get_dEUser: Single; safecall;
    function Get_FlckrFMA: Single; safecall;
    function Get_sy: Single; safecall;
    function Get_sx: Single; safecall;
    function Get_duv: Single; safecall;
    function Get_usUser: Single; safecall;
    function Get_vsUser: Single; safecall;
    function Get_LsUser: Single; safecall;
    function Get_LvfL: Single; safecall;
    function Get_R: Single; safecall;
    function Get_G: Single; safecall;
    function Get_B: Single; safecall;
    function Get_RD: Integer; safecall;
    function Get_RAD: Integer; safecall;
    function Get_RFMA: Integer; safecall;
    function Get_RJEITA: Integer; safecall;
    function GetSpectrum(Frequency: Integer): Single; safecall;
    property X: Single read Get_X;
    property Y: Single read Get_Y;
    property Z: Single read Get_Z;
    property FlckrJEITA: Single read Get_FlckrJEITA;
    property Number: Integer read Get_Number;
    property ID: WideString read Get_ID write Set_ID;
    property SerialNO: WideString read Get_SerialNO;
    property Lv: Single read Get_Lv;
    property ud: Single read Get_ud;
    property vd: Single read Get_vd;
    property T: Integer read Get_T;
    property dEUser: Single read Get_dEUser;
    property FlckrFMA: Single read Get_FlckrFMA;
    property sy: Single read Get_sy;
    property sx: Single read Get_sx;
    property duv: Single read Get_duv;
    property usUser: Single read Get_usUser;
    property vsUser: Single read Get_vsUser;
    property LsUser: Single read Get_LsUser;
    property LvfL: Single read Get_LvfL;
    property R: Single read Get_R;
    property G: Single read Get_G;
    property B: Single read Get_B;
    property RD: Integer read Get_RD;
    property RAD: Integer read Get_RAD;
    property RFMA: Integer read Get_RFMA;
    property RJEITA: Integer read Get_RJEITA;
  end;

// *********************************************************************//
// DispIntf:  IProbeDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B2FDD51E-CBA7-45CE-AF0A-DD962E46B74F}
// *********************************************************************//
  IProbeDisp = dispinterface
    ['{B2FDD51E-CBA7-45CE-AF0A-DD962E46B74F}']
    property X: Single readonly dispid 1;
    property Y: Single readonly dispid 2;
    property Z: Single readonly dispid 3;
    property FlckrJEITA: Single readonly dispid 4;
    property Number: Integer readonly dispid 5;
    property ID: WideString dispid 6;
    property SerialNO: WideString readonly dispid 7;
    property Lv: Single readonly dispid 10;
    property ud: Single readonly dispid 11;
    property vd: Single readonly dispid 12;
    property T: Integer readonly dispid 13;
    property dEUser: Single readonly dispid 17;
    property FlckrFMA: Single readonly dispid 21;
    property sy: Single readonly dispid 22;
    property sx: Single readonly dispid 23;
    property duv: Single readonly dispid 24;
    property usUser: Single readonly dispid 25;
    property vsUser: Single readonly dispid 26;
    property LsUser: Single readonly dispid 27;
    property LvfL: Single readonly dispid 29;
    property R: Single readonly dispid 30;
    property G: Single readonly dispid 31;
    property B: Single readonly dispid 32;
    property RD: Integer readonly dispid 33;
    property RAD: Integer readonly dispid 34;
    property RFMA: Integer readonly dispid 35;
    property RJEITA: Integer readonly dispid 36;
    function GetSpectrum(Frequency: Integer): Single; dispid 37;
  end;

// *********************************************************************//
// Interface: IOutputProbes
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3EE4760C-B9F3-47B1-953F-F5A2F83FF688}
// *********************************************************************//
  IOutputProbes = interface(IDispatch)
    ['{3EE4760C-B9F3-47B1-953F-F5A2F83FF688}']
    function Get_Item(ProbeIndexVal: OleVariant): IProbe; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    procedure Add(const ProbeIDVal: WideString); safecall;
    function Get_ItemOfNumber(ProbeNumberVal: Integer): IProbe; safecall;
    procedure AddAll; safecall;
    function Clone: IOutputProbes; safecall;
    procedure RemoveAll; safecall;
    property Item[ProbeIndexVal: OleVariant]: IProbe read Get_Item; default;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property ItemOfNumber[ProbeNumberVal: Integer]: IProbe read Get_ItemOfNumber;
  end;

// *********************************************************************//
// DispIntf:  IOutputProbesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3EE4760C-B9F3-47B1-953F-F5A2F83FF688}
// *********************************************************************//
  IOutputProbesDisp = dispinterface
    ['{3EE4760C-B9F3-47B1-953F-F5A2F83FF688}']
    property Item[ProbeIndexVal: OleVariant]: IProbe readonly dispid 0; default;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    procedure Add(const ProbeIDVal: WideString); dispid 5;
    property ItemOfNumber[ProbeNumberVal: Integer]: IProbe readonly dispid 6;
    procedure AddAll; dispid 7;
    function Clone: IOutputProbes; dispid 8;
    procedure RemoveAll; dispid 9;
  end;

// *********************************************************************//
// Interface: IMemory
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {20EA33BB-6914-465A-B98E-8DBD4E386CD0}
// *********************************************************************//
  IMemory = interface(IDispatch)
    ['{20EA33BB-6914-465A-B98E-8DBD4E386CD0}']
    function Get_ChannelNO: Integer; safecall;
    procedure Set_ChannelNO(ChannelNOVal: Integer); safecall;
    function Get_ChannelID: WideString; safecall;
    procedure Set_ChannelID(const ChannelIDVal: WideString); safecall;
    procedure GetReferenceColor(const ProbeIDVal: WideString; out XVal: Single; out YVal: Single; 
                                out LvVal: Single); safecall;
    procedure SetChannelID(const ChannelIDVal: WideString); safecall;
    procedure GetMemoryStatus(ProbeNOVal: Integer; out CalProbeSNOVal: Integer; 
                              out RefProbeSNOVal: Integer; out CalModeVal: Integer); safecall;
    function CheckCalData(ProbeNOVal: Integer; const FileNameVal: WideString): Integer; safecall;
    procedure CopyToFile(ProbeNOVal: Integer; const FileNameVal: WideString); safecall;
    procedure CopyFromFile(ProbeNOVal: Integer; const FileNameVal: WideString); safecall;
    property ChannelNO: Integer read Get_ChannelNO write Set_ChannelNO;
    property ChannelID: WideString read Get_ChannelID write Set_ChannelID;
  end;

// *********************************************************************//
// DispIntf:  IMemoryDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {20EA33BB-6914-465A-B98E-8DBD4E386CD0}
// *********************************************************************//
  IMemoryDisp = dispinterface
    ['{20EA33BB-6914-465A-B98E-8DBD4E386CD0}']
    property ChannelNO: Integer dispid 1;
    property ChannelID: WideString dispid 2;
    procedure GetReferenceColor(const ProbeIDVal: WideString; out XVal: Single; out YVal: Single; 
                                out LvVal: Single); dispid 3;
    procedure SetChannelID(const ChannelIDVal: WideString); dispid 4;
    procedure GetMemoryStatus(ProbeNOVal: Integer; out CalProbeSNOVal: Integer; 
                              out RefProbeSNOVal: Integer; out CalModeVal: Integer); dispid 5;
    function CheckCalData(ProbeNOVal: Integer; const FileNameVal: WideString): Integer; dispid 6;
    procedure CopyToFile(ProbeNOVal: Integer; const FileNameVal: WideString); dispid 7;
    procedure CopyFromFile(ProbeNOVal: Integer; const FileNameVal: WideString); dispid 8;
  end;

// *********************************************************************//
// DispIntf:  _ICaEvents
// Flags:     (4096) Dispatchable
// GUID:      {F7663750-5900-45EB-905F-78C5D5378481}
// *********************************************************************//
  _ICaEvents = dispinterface
    ['{F7663750-5900-45EB-905F-78C5D5378481}']
    procedure ExeCalZero; dispid 1;
  end;

// *********************************************************************//
// Interface: IProbeInfo
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5C542273-19D5-4C56-A12A-A58B1BAAD65E}
// *********************************************************************//
  IProbeInfo = interface(IDispatch)
    ['{5C542273-19D5-4C56-A12A-A58B1BAAD65E}']
    function Get_TypeName: WideString; safecall;
    function Get_TypeNO: Integer; safecall;
    property TypeName: WideString read Get_TypeName;
    property TypeNO: Integer read Get_TypeNO;
  end;

// *********************************************************************//
// DispIntf:  IProbeInfoDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5C542273-19D5-4C56-A12A-A58B1BAAD65E}
// *********************************************************************//
  IProbeInfoDisp = dispinterface
    ['{5C542273-19D5-4C56-A12A-A58B1BAAD65E}']
    property TypeName: WideString readonly dispid 1;
    property TypeNO: Integer readonly dispid 2;
  end;

// *********************************************************************//
// Interface: ICaOption
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {3CBE6157-1D53-4CAE-B4B0-33ACC30E6421}
// *********************************************************************//
  ICaOption = interface(IDispatch)
    ['{3CBE6157-1D53-4CAE-B4B0-33ACC30E6421}']
    function Command(const CommandVal: WideString): WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  ICaOptionDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {3CBE6157-1D53-4CAE-B4B0-33ACC30E6421}
// *********************************************************************//
  ICaOptionDisp = dispinterface
    ['{3CBE6157-1D53-4CAE-B4B0-33ACC30E6421}']
    function Command(const CommandVal: WideString): WideString; dispid 1;
  end;

// *********************************************************************//
// The Class CoCa200 provides a Create and CreateRemote method to          
// create instances of the default interface ICa200 exposed by              
// the CoClass Ca200. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoCa200 = class
    class function Create: ICa200;
    class function CreateRemote(const MachineName: string): ICa200;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TCa200
// Help String      : Ca200 Class
// Default Interface: ICa200
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TCa200Properties= class;
{$ENDIF}
  TCa200 = class(TOleServer)
  private
    FIntf:        ICa200;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TCa200Properties;
    function      GetServerProperties: TCa200Properties;
{$ENDIF}
    function      GetDefaultInterface: ICa200;
  protected
    procedure InitServerData; override;
    function Get_Cas: ICas;
    function Get_SingleCa: ICa;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ICa200);
    procedure Disconnect; override;
    procedure SetConfiguration(CaNumberVal: Integer; const ConnecStringVal: WideString; 
                               PortVal: Integer; BaudRateVal: Integer);
    procedure AutoConnect;
    property DefaultInterface: ICa200 read GetDefaultInterface;
    property Cas: ICas read Get_Cas;
    property SingleCa: ICa read Get_SingleCa;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TCa200Properties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TCa200
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TCa200Properties = class(TPersistent)
  private
    FServer:    TCa200;
    function    GetDefaultInterface: ICa200;
    constructor Create(AServer: TCa200);
  protected
    function Get_Cas: ICas;
    function Get_SingleCa: ICa;
  public
    property DefaultInterface: ICa200 read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoCas provides a Create and CreateRemote method to          
// create instances of the default interface ICas exposed by              
// the CoClass Cas. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoCas = class
    class function Create: ICas;
    class function CreateRemote(const MachineName: string): ICas;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TCas
// Help String      : Cas Class
// Default Interface: ICas
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TCasProperties= class;
{$ENDIF}
  TCas = class(TOleServer)
  private