panelxmxcontrol_tlb.pas

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

                        p_sKeyExchange: OleVariant; p_sKeyToLoad: OleVariant): WordBool;
    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;
    function StringKeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode; 
                              const p_sKeyExchange: WideString; const p_sKeyToLoad: WideString): WordBool;
    function DiversifyKey(p_iKeyNum: TxMxKey; p_sSN: OleVariant; var p_sDiversifiedKey: OleVariant): WordBool;
    function StringDiversifyKey(p_iKeyNum: TxMxKey; const p_sSN: WideString; 
                                var p_sDiversifiedKey: WideString): WordBool;
    function ResetField: WordBool;
    function IncreaseCounter(p_iCounterNew: Integer; var p_iRechargingCounterNew: Integer): WordBool;
    function DecreaseCounter(p_iDebit: Integer; var p_iCounterNew: Integer): WordBool;
    function Reselect(p_sSN: OleVariant): WordBool;
    function StringReselect(const p_sSN: WideString): WordBool;
    function SelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool;
    function StringSelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool;
    function CryptoEncryptSingleDES(const p_sKey: WideString; const p_sData: WideString): WideString;
    function CryptoEncryptTripleDESEDE(const p_sKey1: WideString; const p_sKey2: WideString; 
                                       const p_sData: WideString): WideString;
    function CryptoDecryptSingleDES(const p_sKey: WideString; const p_sData: WideString): WideString;
    function CryptoDecryptTripleDESEDE(const p_sKey1: WideString; const p_sKey2: WideString; 
                                       const p_sData: WideString): WideString;
    function KeyLoading3DESEDE(p_iP1: Integer; p_iP2: Integer; p_sExchangeKey: OleVariant; 
                               p_sKeyToLoad: OleVariant): WordBool;
    function WriteBlockICLinkRetry(p_iBlockStart: Integer; p_iBlockCount: Integer; 
                                   p_sData: OleVariant; p_iRetryCount: Integer): Integer;
    function WriteBlockICLink(p_iBlockStart: Integer; p_iBlockCount: Integer; p_sData: OleVariant): WordBool;
    property  ControlInterface: IPanelXMX read GetControlInterface;
    property  DefaultInterface: IPanelXMX read GetControlInterface;
    property MxComOpened: WordBool index 12 read GetWordBoolProp;
    property MxComHandle: Integer index 13 read GetIntegerProp;
    property DoubleBuffered: WordBool index 28 read GetWordBoolProp write SetWordBoolProp;
    property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp;
    property BiDiMode: TOleEnum index 44 read GetTOleEnumProp write SetTOleEnumProp;
    property MxVersion: WideString index 63 read GetWideStringProp;
    property MxLastStatus: Integer index 79 read GetIntegerProp;
    property MxLastStatusDesc: WideString index 80 read GetWideStringProp;
    property MxComName: WideString index 92 read GetWideStringProp;
  published
    property Anchors;
    property  Align;
    property  DragCursor;
    property  DragMode;
    property  ParentShowHint;
    property  PopupMenu;
    property  ShowHint;
    property  TabOrder;
    property  OnDragDrop;
    property  OnDragOver;
    property  OnEndDrag;
    property  OnEnter;
    property  OnExit;
    property  OnStartDrag;
    property MxComSpeed: TOleEnum index 14 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxCaption: WideString index 15 read GetWideStringProp write SetWideStringProp stored False;
    property MxHexaSymbol: WideString index 17 read GetWideStringProp write SetWideStringProp stored False;
    property MxType: TOleEnum index 18 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxModulation: TOleEnum index 19 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxKe: WideString index 20 read GetWideStringProp write SetWideStringProp stored False;
    property MxKc: WideString index 21 read GetWideStringProp write SetWideStringProp stored False;
    property MxKd: WideString index 22 read GetWideStringProp write SetWideStringProp stored False;
    property MxInstructionCoding: TOleEnum index 23 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxInstructionKey: TOleEnum index 24 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property Visible: WordBool index 45 read GetWordBoolProp write SetWordBoolProp stored False;
    property Cursor: Smallint index 46 read GetSmallintProp write SetSmallintProp stored False;
    property MxPassword: WideString index 47 read GetWideStringProp write SetWideStringProp stored False;
    property MxProtocolIndex: TOleEnum index 62 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxKeOld: WideString index 61 read GetWideStringProp write SetWideStringProp stored False;
    property MxRead: TOleEnum index 67 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxUserProtocol: TOleEnum index 68 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxCurrentKey: TOleEnum index 71 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxKdt: WideString index 72 read GetWideStringProp write SetWideStringProp stored False;
    property MxKeyLoadingMode: TOleEnum index 76 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxTimeOut: Integer index 97 read GetIntegerProp write SetIntegerProp stored False;
  end;

procedure Register;

resourcestring
  dtlServerPage = 'ActiveX';

  dtlOcxPage = 'ActiveX';

implementation

uses ComObj;

procedure TPanelXMX.InitControlData;
const
  CControlData: TControlData2 = (
    ClassID: '{E8ED6166-E84A-11D3-9347-00105AF62F28}';
    EventIID: '';
    EventCount: 0;
    EventDispIDs: nil;
    LicenseKey: nil (*HR:$00000000*);
    Flags: $00000008;
    Version: 401);
begin
  ControlData := @CControlData;
end;

procedure TPanelXMX.CreateControl;

  procedure DoCreate;
  begin
    FIntf := IUnknown(OleObject) as IPanelXMX;
  end;

begin
  if FIntf = nil then DoCreate;
end;

function TPanelXMX.GetControlInterface: IPanelXMX;
begin
  CreateControl;
  Result := FIntf;
end;

function TPanelXMX.Connect: WordBool;
begin
  Result := DefaultInterface.Connect;
end;

function TPanelXMX.Disconnect: WordBool;
begin
  Result := DefaultInterface.Disconnect;
end;

function TPanelXMX.Select(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer; 
                          p_sPIN: OleVariant; var p_sSN: OleVariant): WordBool;
begin
  Result := DefaultInterface.Select(p_iSelectMode, p_iChipTypes, p_iKey, p_sPIN, p_sSN);
end;

function TPanelXMX.ReadRecord(p_iRecordStart: Integer; p_iRecordCount: Integer; 
                              var p_sData: OleVariant): WordBool;
begin
  Result := DefaultInterface.ReadRecord(p_iRecordStart, p_iRecordCount, p_sData);
end;

function TPanelXMX.WriteRecord(p_iRecordStart: Integer; p_iRecordCount: Integer; p_sData: OleVariant): WordBool;
begin
  Result := DefaultInterface.WriteRecord(p_iRecordStart, p_iRecordCount, p_sData);
end;

function TPanelXMX.ReadBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; var p_sData: OleVariant): WordBool;
begin
  Result := DefaultInterface.ReadBlock(p_iBlockStart, p_iBlockCount, p_sData);
end;

function TPanelXMX.WriteBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; p_sData: OleVariant): WordBool;
begin
  Result := DefaultInterface.WriteBlock(p_iBlockStart, p_iBlockCount, p_sData);
end;

function TPanelXMX.Decrease(p_iDebit: Integer; var p_iCounterNew: Integer): WordBool;
begin
  Result := DefaultInterface.Decrease(p_iDebit, p_iCounterNew);
end;

function TPanelXMX.Increase(p_iCounterNew: Integer; var p_iRechargingCounterNew: Integer): WordBool;
begin
  Result := DefaultInterface.Increase(p_iCounterNew, p_iRechargingCounterNew);
end;

function TPanelXMX.Halt: WordBool;
begin
  Result := DefaultInterface.Halt;
end;

function TPanelXMX.LoadKey(p_iKeyNum: TxMxKey): WordBool;
begin
  Result := DefaultInterface.LoadKey(p_iKeyNum);
end;

function TPanelXMX.GetControlsAlignment: TxAlignment;
begin
  Result := DefaultInterface.GetControlsAlignment;
end;

procedure TPanelXMX.FlipChildren(AllLevels: WordBool);
begin
  DefaultInterface.FlipChildren(AllLevels);
end;

function TPanelXMX.DrawTextBiDiModeFlags(Flags: Integer): Integer;
begin
  Result := DefaultInterface.DrawTextBiDiModeFlags(Flags);
end;

function TPanelXMX.DrawTextBiDiModeFlagsReadingOnly: Integer;
begin
  Result := DefaultInterface.DrawTextBiDiModeFlagsReadingOnly;
end;

procedure TPanelXMX.InitiateAction;
begin
  DefaultInterface.InitiateAction;
end;

function TPanelXMX.IsRightToLeft: WordBool;
begin
  Result := DefaultInterface.IsRightToLeft;
end;

function TPanelXMX.UseRightToLeftAlignment: WordBool;
begin
  Result := DefaultInterface.UseRightToLeftAlignment;
end;

function TPanelXMX.UseRightToLeftReading: WordBool;
begin
  Result := DefaultInterface.UseRightToLeftReading;
end;

function TPanelXMX.UseRightToLeftScrollBar: WordBool;
begin
  Result := DefaultInterface.UseRightToLeftScrollBar;
end;

function TPanelXMX.ClassNameIs(const Name: WideString): WordBool;
begin
  Result := DefaultInterface.ClassNameIs(Name);
end;

procedure TPanelXMX.AboutBox;
begin
  DefaultInterface.AboutBox;
end;

function TPanelXMX.Transmit(p_iP1: Integer; p_iP2: Integer; p_iP3: Integer; p_sDataIn: OleVariant; 
                            var p_sDataOut: OleVariant): WordBool;
begin
  Result := DefaultInterface.Transmit(p_iP1, p_iP2, p_iP3, p_sDataIn, p_sDataOut);
end;

function TPanelXMX.ConvertHexaToAscii(p_sHexa: OleVariant): OleVariant;
begin
  Result := DefaultInterface.ConvertHexaToAscii(p_sHexa);
end;

function TPanelXMX.ConvertAsciiToHexa(p_sAscii: OleVariant): OleVariant;
begin
  Result := DefaultInterface.ConvertAsciiToHexa(p_sAscii);
end;

function TPanelXMX.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;
begin
  Result := DefaultInterface.PersonalizePico(p_iChipState, p_iChipProduct, p_sSN, p_iEAS, 
                                             p_sApp16bOTPArea, p_sAppIssuerArea, p_iUnitCounter, 
                                             p_iRechargingCounter, p_sKt, p_sKd, p_sKc, p_iAppLimit);
end;