panelxmxcontrol_tlb.pas

NXP 芯片 Delphi 开发包. 做RFID用的.

  mupISO_14443B_3_106k = $00000009;

// Constants for enum TxMxPageKey
type
  TxMxPageKey = TOleEnum;
const
  mpkP0Kd = $00000001;
  mpkP0Kc = $00000002;
  mpkP1Kd = $00000003;
  mpkP1Kc = $00000004;
  mpkP2Kd = $00000005;
  mpkP2Kc = $00000006;
  mpkP3Kd = $00000007;
  mpkP3Kc = $00000008;
  mpkP4Kd = $00000009;
  mpkP4Kc = $0000000A;
  mpkP5Kd = $0000000B;
  mpkP5Kc = $0000000C;
  mpkP6Kd = $0000000D;
  mpkP6Kc = $0000000E;
  mpkP7Kd = $0000000F;
  mpkP7Kc = $00000010;
  mpkTransport = $00000011;
  mpkExchange = $00000000;
  mpkNoAuth = $00000018;

// Constants for enum TxMxKeyLoadingMode
type
  TxMxKeyLoadingMode = TOleEnum;
const
  mklmXorKe = $00000000;
  mklmXorKo = $00000001;
  mklmDESKe = $00000002;
  mklmDESKo = $00000003;
  mklmTripleDESEDEKo = $00000004;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IPanelXMX = interface;
  IPanelXMXDisp = dispinterface;
  IPanelXMXEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  PanelXMX = IPanelXMX;


// *********************************************************************//
// Interface: IPanelXMX
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {E8ED6162-E84A-11D3-9347-00105AF62F28}
// *********************************************************************//
  IPanelXMX = interface(IDispatch)
    ['{E8ED6162-E84A-11D3-9347-00105AF62F28}']
    function Connect: WordBool; safecall;
    function Disconnect: WordBool; safecall;
    function Select(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer; 
                    p_sPIN: OleVariant; var p_sSN: OleVariant): WordBool; safecall;
    function ReadRecord(p_iRecordStart: Integer; p_iRecordCount: Integer; var p_sData: OleVariant): WordBool; safecall;
    function WriteRecord(p_iRecordStart: Integer; p_iRecordCount: Integer; p_sData: OleVariant): WordBool; safecall;
    function ReadBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; var p_sData: OleVariant): WordBool; safecall;
    function WriteBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; p_sData: OleVariant): WordBool; safecall;
    function Decrease(p_iDebit: Integer; var p_iCounterNew: Integer): WordBool; safecall;
    function Increase(p_iCounterNew: Integer; var p_iRechargingCounterNew: Integer): WordBool; safecall;
    function Halt: WordBool; safecall;
    function LoadKey(p_iKeyNum: TxMxKey): WordBool; safecall;
    function Get_MxComOpened: WordBool; safecall;
    function Get_MxComHandle: Integer; safecall;
    function Get_MxComSpeed: TxMxSpeed; safecall;
    procedure Set_MxComSpeed(Value: TxMxSpeed); safecall;
    function Get_MxCaption: WideString; safecall;
    procedure Set_MxCaption(const Value: WideString); safecall;
    function Get_MxHexaSymbol: WideString; safecall;
    procedure Set_MxHexaSymbol(const Value: WideString); safecall;
    function Get_MxType: TxMxType; safecall;
    procedure Set_MxType(Value: TxMxType); safecall;
    function Get_MxModulation: TxMxModulation; safecall;
    procedure Set_MxModulation(Value: TxMxModulation); safecall;
    function Get_MxKe: WideString; safecall;
    procedure Set_MxKe(const Value: WideString); safecall;
    function Get_MxKc: WideString; safecall;
    procedure Set_MxKc(const Value: WideString); safecall;
    function Get_MxKd: WideString; safecall;
    procedure Set_MxKd(const Value: WideString); safecall;
    function Get_MxInstructionCoding: TxMxInstructionCoding; safecall;
    procedure Set_MxInstructionCoding(Value: TxMxInstructionCoding); safecall;
    function Get_MxInstructionKey: TxMxInstructionKey; safecall;
    procedure Set_MxInstructionKey(Value: TxMxInstructionKey); safecall;
    function GetControlsAlignment: TxAlignment; safecall;
    function Get_DoubleBuffered: WordBool; safecall;
    procedure Set_DoubleBuffered(Value: WordBool); safecall;
    procedure FlipChildren(AllLevels: WordBool); safecall;
    function DrawTextBiDiModeFlags(Flags: Integer): Integer; safecall;
    function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
    function Get_Enabled: WordBool; safecall;
    procedure Set_Enabled(Value: WordBool); safecall;
    procedure InitiateAction; safecall;
    function IsRightToLeft: WordBool; safecall;
    function UseRightToLeftAlignment: WordBool; safecall;
    function UseRightToLeftReading: WordBool; safecall;
    function UseRightToLeftScrollBar: WordBool; safecall;
    function Get_BiDiMode: TxBiDiMode; safecall;
    procedure Set_BiDiMode(Value: TxBiDiMode); safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(Value: WordBool); safecall;
    function Get_Cursor: Smallint; safecall;
    procedure Set_Cursor(Value: Smallint); safecall;
    function ClassNameIs(const Name: WideString): WordBool; safecall;
    procedure AboutBox; safecall;
    function Transmit(p_iP1: Integer; p_iP2: Integer; p_iP3: Integer; p_sDataIn: OleVariant; 
                      var p_sDataOut: OleVariant): WordBool; safecall;
    function ConvertHexaToAscii(p_sHexa: OleVariant): OleVariant; safecall;
    function ConvertAsciiToHexa(p_sAscii: OleVariant): OleVariant; safecall;
    function PersonalizePico(p_iChipState: TxMxChipState; p_iChipProduct: TxMxChipProduct; 
                             var p_sSN: OleVariant; p_iEAS: TxMxChipEAS; 
                             p_sApp16bOTPArea: OleVariant; p_sAppIssuerArea: OleVariant; 
                             p_iUnitCounter: Integer; p_iRechargingCounter: Integer; 
                             p_sKt: OleVariant; p_sKd: OleVariant; p_sKc: OleVariant; 
                             p_iAppLimit: Integer): WordBool; safecall;
    function SelectChip(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer; 
                        p_sPIN: OleVariant; var p_sSN: OleVariant): WordBool; safecall;
    function SetStatus(p_iLocation: Integer; p_iAddress: Integer; p_iData: Integer): WordBool; safecall;
    function GetStatus(p_iLocation: Integer; p_iAddress: Integer; var p_iData: Integer): WordBool; safecall;
    function Disable: WordBool; safecall;
    function Enable: WordBool; safecall;
    function ConnectTo(p_sCom: OleVariant): WordBool; safecall;
    function Get_MxPassword: WideString; safecall;
    procedure Set_MxPassword(const Value: WideString); safecall;
    function AskRandom(var p_sRnd: OleVariant): WordBool; safecall;
    function ISO7816T0SendCmd(p_iClass: Integer; p_iIns: Integer; p_iP1: Integer; p_iP2: Integer; 
                              p_iP3: Integer; p_iISOType: TxMxISO7816T0Direction; 
                              p_sDataIn: OleVariant; p_iDataOut: Integer; var p_sDataOut: OleVariant): Integer; safecall;
    function StringSelect(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer; 
                          const p_sPIN: WideString; var p_sSN: WideString): WordBool; safecall;
    function StringReadBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; var p_sData: WideString): WordBool; safecall;
    function StringWriteBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; 
                              const p_sData: WideString): WordBool; safecall;
    function StringConvertHexaToAscii(const p_sHexa: WideString): WideString; safecall;
    function StringConvertAsciiToHexa(const p_sAscii: WideString): WideString; safecall;
    function StringPersonalizePico(p_iChipState: TxMxChipState; p_iChipProduct: TxMxChipProduct; 
                                   var p_sSN: WideString; p_iEAS: TxMxChipEAS; 
                                   const p_sApp16bOTPArea: WideString; 
                                   const p_sAppIssuerArea: WideString; p_iUnitCounter: Integer; 
                                   p_iRechargingCounter: Integer; const p_sKt: WideString; 
                                   const p_sKd: WideString; const p_sKc: WideString; 
                                   p_iAppLimit: Integer): WordBool; safecall;
    function StringIdentifyPico(var p_sSN: WideString; var p_sBlockConfig: WideString; 
                                var p_pbChipState: TxMxChipState; 
                                var p_pbChipCoding: TxMxChipCoding; 
                                var p_pbChipSecurity: TxMxChipSecurity; 
                                var p_pbChipProduct: TxMxChipProduct; var p_pbEAS: TxMxChipEAS; 
                                var p_pbChipMemSize: TxMxChipMemSize; var p_pbTuningCaps: Integer; 
                                var p_pbWriteLock: Integer; var p_pwUserOTP: Integer; 
                                var p_pbAppliLimit: Integer; var p_pwUnitCounter: Integer; 
                                var p_pwRechargingCounter: Integer; var p_sBlockPerso: WideString): WordBool; safecall;
    function GetLastError: Integer; safecall;
    function StringISO7816T0SendCmd(p_iClass: Integer; p_iIns: Integer; p_iP1: Integer; 
                                    p_iP2: Integer; p_iP3: Integer; 
                                    p_iISOType: TxMxISO7816T0Direction; 
                                    const p_sDataIn: WideString; p_iDataOut: Integer; 
                                    var p_sDataOut: WideString): Integer; safecall;
    function Get_MxProtocolIndex: TxMxProtocolIndex; safecall;
    procedure Set_MxProtocolIndex(Value: TxMxProtocolIndex); safecall;
    function SelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool; safecall;
    function Get_MxKeOld: WideString; safecall;
    procedure Set_MxKeOld(const Value: WideString); safecall;
    function Get_MxVersion: WideString; safecall;
    function Authentify(p_iKey: TxMxKey; var p_sSN: OleVariant): WordBool; safecall;
    function StringAuthentify(p_iKey: TxMxKey; var p_sSN: WideString): WordBool; safecall;
    function StringSelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool; safecall;
    function Get_MxRead: TxMxRead; safecall;
    procedure Set_MxRead(Value: TxMxRead); safecall;
    function Get_MxUserProtocol: TxMxUserProtocol; safecall;
    procedure Set_MxUserProtocol(Value: TxMxUserProtocol); safecall;
    function SelectCard(p_iSelectMode: Integer; p_iChipTypes: Integer; var p_sSN: OleVariant): WordBool; safecall;
    function StringSelectCard(p_iSelectMode: Integer; p_iChipTypes: Integer; var p_sSN: WideString): WordBool; safecall;
    function Get_MxCurrentKey: TxMxPageKey; safecall;
    procedure Set_MxCurrentKey(Value: TxMxPageKey); safecall;
    function Get_MxKdt: WideString; safecall;
    procedure Set_MxKdt(const Value: WideString); safecall;
    function EASDetect(var p_sSN: OleVariant): WordBool; safecall;
    function EASActivate: WordBool; safecall;
    function EASDesactivate: WordBool; safecall;
    function Get_MxKeyLoadingMode: TxMxKeyLoadingMode; safecall;
    procedure Set_MxKeyLoadingMode(Value: TxMxKeyLoadingMode); safecall;
    function KeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode; 
                        p_sKeyExchange: OleVariant; p_sKeyToLoad: OleVariant): WordBool; safecall;
    function SendISOCommand(p_iISOType: TxMxISO7816T0Direction; p_iNbDataOut: Integer; 
                            p_iClass: Integer; p_iIns: Integer; p_iP1: Integer; p_iP2: Integer; 
                            p_iP3: Integer; p_sDataIn: OleVariant; var p_sDataOut: OleVariant): Integer; safecall;
    function Get_MxLastStatus: Integer; safecall;
    function Get_MxLastStatusDesc: WideString; safecall;
    function StringKeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode; 
                              const p_sKeyExchange: WideString; const p_sKeyToLoad: WideString): WordBool; safecall;
    function DiversifyKey(p_iKeyNum: TxMxKey; p_sSN: OleVariant; var p_sDiversifiedKey: OleVariant): WordBool; safecall;
    function StringDiversifyKey(p_iKeyNum: TxMxKey; const p_sSN: WideString; 
                                var p_sDiversifiedKey: WideString): WordBool; safecall;
    function ResetField: WordBool; safecall;
    function IncreaseCounter(p_iCounterNew: Integer; var p_iRechargingCounterNew: Integer): WordBool; safecall;
    function DecreaseCounter(p_iDebit: Integer; var p_iCounterNew: Integer): WordBool; safecall;
    function Reselect(p_sSN: OleVariant): WordBool; safecall;
    function StringReselect(const p_sSN: WideString): WordBool; safecall;
    function SelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool; safecall;
    function StringSelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool; safecall;
    function CryptoEncryptSingleDES(const p_sKey: WideString; const p_sData: WideString): WideString; safecall;
    function CryptoEncryptTripleDESEDE(const p_sKey1: WideString; const p_sKey2: WideString; 
                                       const p_sData: WideString): WideString; safecall;
    function CryptoDecryptSingleDES(const p_sKey: WideString; const p_sData: WideString): WideString; safecall;
    function CryptoDecryptTripleDESEDE(const p_sKey1: WideString; const p_sKey2: WideString; 
                                       const p_sData: WideString): WideString; safecall;
    function Get_MxComName: WideString; safecall;
    function KeyLoading3DESEDE(p_iP1: Integer; p_iP2: Integer; p_sExchangeKey: OleVariant; 
                               p_sKeyToLoad: OleVariant): WordBool; safecall;
    function Get_MxTimeOut: LongWord; safecall;
    procedure Set_MxTimeOut(Value: LongWord); safecall;
    function WriteBlockICLinkRetry(p_iBlockStart: Integer; p_iBlockCount: Integer; 
                                   p_sData: OleVariant; p_iRetryCount: Integer): Integer; safecall;
    function WriteBlockICLink(p_iBlockStart: Integer; p_iBlockCount: Integer; p_sData: OleVariant): WordBool; safecall;
    property MxComOpened: WordBool read Get_MxComOpened;
    property MxComHandle: Integer read Get_MxComHandle;
    property MxComSpeed: TxMxSpeed read Get_MxComSpeed write Set_MxComSpeed;
    property MxCaption: WideString read Get_MxCaption write Set_MxCaption;
    property MxHexaSymbol: WideString read Get_MxHexaSymbol write Set_MxHexaSymbol;
    property MxType: TxMxType read Get_MxType write Set_MxType;
    property MxModulation: TxMxModulation read Get_MxModulation write Set_MxModulation;
    property MxKe: WideString read Get_MxKe write Set_MxKe;
    property MxKc: WideString read Get_MxKc write Set_MxKc;
    property MxKd: WideString read Get_MxKd write Set_MxKd;
    property MxInstructionCoding: TxMxInstructionCoding read Get_MxInstructionCoding write Set_MxInstructionCoding;
    property MxInstructionKey: TxMxInstructionKey read Get_MxInstructionKey write Set_MxInstructionKey;
    property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
    property Enabled: WordBool read Get_Enabled write Set_Enabled;
    property BiDiMode: TxBiDiMode read Get_BiDiMode write Set_BiDiMode;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Cursor: Smallint read Get_Cursor write Set_Cursor;
    property MxPassword: WideString read Get_MxPassword write Set_MxPassword;
    property MxProtocolIndex: TxMxProtocolIndex read Get_MxProtocolIndex write Set_MxProtocolIndex;
    property MxKeOld: WideString read Get_MxKeOld write Set_MxKeOld;
    property MxVersion: WideString read Get_MxVersion;
    property MxRead: TxMxRead read Get_MxRead write Set_MxRead;
    property MxUserProtocol: TxMxUserProtocol read Get_MxUserProtocol write Set_MxUserProtocol;
    property MxCurrentKey: TxMxPageKey read Get_MxCurrentKey write Set_MxCurrentKey;
    property MxKdt: WideString read Get_MxKdt write Set_MxKdt;
    property MxKeyLoadingMode: TxMxKeyLoadingMode read Get_MxKeyLoadingMode write Set_MxKeyLoadingMode;
    property MxLastStatus: Integer read Get_MxLastStatus;
    property MxLastStatusDesc: WideString read Get_MxLastStatusDesc;
    property MxComName: WideString read Get_MxComName;
    property MxTimeOut: LongWord read Get_MxTimeOut write Set_MxTimeOut;
  end;

// *********************************************************************//
// DispIntf:  IPanelXMXDisp