panelxmx3gcontrol_tlb.pas

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

                                  p_eProtocolSpeed: TxMxTCLProtocolSpeed; var p_sSN: OleVariant; 
                                  var p_sRATS_RATTRIB: OleVariant): WordBool;
    function MicroPassCardTransmit(p_iDataOutLength: Integer; p_bClass: Integer; p_bIns: Integer; 
                                   p_bP1: Integer; p_bP2: Integer; p_bP3: Integer; 
                                   p_sDataIn: OleVariant; var p_sDataOut: OleVariant): Integer;
    function MicroPassGetATR(var p_sATR: OleVariant; var p_sVersion: OleVariant; 
                             var p_sComponent: OleVariant; var p_sLife: OleVariant; 
                             var p_eMicroPassType: TxMxMicroPassType): Integer;
    function MicroPassCreateMF: Integer;
    function MicroPassCreateDF(p_iDFIDHigh: Integer; p_iDFIDLow: Integer; 
                               p_sCreationData: OleVariant): Integer;
    function MicroPassCreateEF(p_bEFIDHigh: Integer; p_bEFIDLow: Integer; 
                               p_sCreationData: OleVariant): Integer;
    function MicroPassSelectMF(out p_sFCI: OleVariant): Integer;
    function MicroPassSelectFile(p_iSelectionType: Integer; p_iReturnFCI: Integer; 
                                 p_sSelectionData: OleVariant; out p_sFCI: OleVariant): Integer;
    function MicroPassFileUpdateBinary(p_iSFIOrOffsetHigh: Integer; p_iOffsetLow: Integer; 
                                       p_iLength: Integer; p_sData: OleVariant): Integer;
    function MicroPassFileReadBinary(p_iSFIOrOffsetHigh: Integer; p_iOffsetLow: Integer; 
                                     p_iLength: Integer; out p_sData: OleVariant): Integer;
    function MicroPassAuthenticate3DESEDE(p_sKey: OleVariant; out p_sChallenge: OleVariant; 
                                          out p_sSignature: OleVariant): Integer;
    property  ControlInterface: IPanelXMX3G read GetControlInterface;
    property  DefaultInterface: IPanelXMX3G read GetControlInterface;
    property MxVersion: WideString index 253 read GetWideStringProp;
    property MxComOpened: WordBool index 254 read GetWordBoolProp;
    property MxLastStatus: Integer index 280 read GetIntegerProp;
    property MxLastStatusDesc: WideString index 281 read GetWideStringProp;
    property MxComName: WideString index 283 read GetWideStringProp;
    property ParentBackground: WordBool index 290 read GetWordBoolProp write SetWordBoolProp;
    property DoubleBuffered: WordBool index 291 read GetWordBoolProp write SetWordBoolProp;
    property AlignDisabled: WordBool index 292 read GetWordBoolProp;
    property VisibleDockClientCount: Integer index 293 read GetIntegerProp;
    property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp;
  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 Visible: WordBool index 252 read GetWordBoolProp write SetWordBoolProp stored False;
    property MxComHandle: Integer index 255 read GetIntegerProp write SetIntegerProp stored False;
    property MxComSpeed: TOleEnum index 256 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxCaption: WideString index 257 read GetWideStringProp write SetWideStringProp stored False;
    property MxHexaSymbol: WideString index 258 read GetWideStringProp write SetWideStringProp stored False;
    property MxType: TOleEnum index 259 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxModulation: TOleEnum index 260 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxKe: WideString index 261 read GetWideStringProp write SetWideStringProp stored False;
    property MxKeOld: WideString index 262 read GetWideStringProp write SetWideStringProp stored False;
    property MxKc: WideString index 263 read GetWideStringProp write SetWideStringProp stored False;
    property MxKd: WideString index 264 read GetWideStringProp write SetWideStringProp stored False;
    property MxPassword: WideString index 265 read GetWideStringProp write SetWideStringProp stored False;
    property MxKdt: WideString index 266 read GetWideStringProp write SetWideStringProp stored False;
    property MxInstructionCoding: TOleEnum index 273 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxInstructionKey: TOleEnum index 274 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxKeyLoadingMode: TOleEnum index 275 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxProtocolIndex: TOleEnum index 276 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxRead: TOleEnum index 277 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxUserProtocol: TOleEnum index 278 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxCurrentKey: TOleEnum index 279 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxID: WideString index 282 read GetWideStringProp write SetWideStringProp stored False;
    property MxTimeOut: Integer index 284 read GetIntegerProp write SetIntegerProp stored False;
    property MxWriteVerify: WordBool index 285 read GetWordBoolProp write SetWordBoolProp stored False;
    property MxSecurityChecking: TOleEnum index 286 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxChipSecurity: TOleEnum index 287 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxEASMethod: TOleEnum index 288 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property MxLog: WordBool index 289 read GetWordBoolProp write SetWordBoolProp stored False;
    property MxKHost: WideString index 249 read GetWideStringProp write SetWideStringProp stored False;
  end;

procedure Register;

resourcestring
  dtlServerPage = 'ActiveX';

  dtlOcxPage = 'ActiveX';

implementation

uses ComObj;

procedure TPanelXMX3G.InitControlData;
const
  CControlData: TControlData2 = (
    ClassID: '{E2C4633D-AA76-4C02-A747-DEAFA7C77594}';
    EventIID: '';
    EventCount: 0;
    EventDispIDs: nil;
    LicenseKey: nil (*HR:$00000000*);
    Flags: $00000008;
    Version: 401);
begin
  ControlData := @CControlData;
end;

procedure TPanelXMX3G.CreateControl;

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

begin
  if FIntf = nil then DoCreate;
end;

function TPanelXMX3G.GetControlInterface: IPanelXMX3G;
begin
  CreateControl;
  Result := FIntf;
end;

procedure TPanelXMX3G.ShowModal;
begin
  DefaultInterface.ShowModal;
end;

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

function TPanelXMX3G.ConnectTo(p_sCom: OleVariant): WordBool;
begin
  Result := DefaultInterface.ConnectTo(p_sCom);
end;

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

function TPanelXMX3G.SelectCard(p_bSelectMode: Integer; p_bChipTypes: Integer; var p_sSN: OleVariant): WordBool;
begin
  Result := DefaultInterface.SelectCard(p_bSelectMode, p_bChipTypes, p_sSN);
end;

function TPanelXMX3G.ReSelect(p_sSN: OleVariant): WordBool;
begin
  Result := DefaultInterface.ReSelect(p_sSN);
end;

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

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

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

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

function TPanelXMX3G.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 TPanelXMX3G.Halt: WordBool;
begin
  Result := DefaultInterface.Halt;
end;

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

function TPanelXMX3G.KeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode; 
                                p_sKeyExchange: OleVariant; p_sKeyToLoad: OleVariant): WordBool;
begin
  Result := DefaultInterface.KeyLoading(p_iKeyNum, p_iKeyLoadingMode, p_sKeyExchange, p_sKeyToLoad);
end;

function TPanelXMX3G.KeyLoading3DESEDE(p_iP1: Integer; p_iP2: Integer; p_sExchangeKey: OleVariant; 
                                       p_sKeyToLoad: OleVariant): WordBool;
begin
  Result := DefaultInterface.KeyLoading3DESEDE(p_iP1, p_iP2, p_sExchangeKey, p_sKeyToLoad);
end;

function TPanelXMX3G.DiversifyKey(p_iKeyNum: TxMxKey; p_sSN: OleVariant; 
                                  var p_sKeyDiversified: OleVariant): WordBool;
begin
  Result := DefaultInterface.DiversifyKey(p_iKeyNum, p_sSN, p_sKeyDiversified);
end;

function TPanelXMX3G.Disable: WordBool;
begin
  Result := DefaultInterface.Disable;
end;

function TPanelXMX3G.Enable: WordBool;
begin
  Result := DefaultInterface.Enable;
end;

function TPanelXMX3G.SetStatus(p_iLocation: Integer; p_iAddress: Integer; p_iData: Integer): WordBool;
begin
  Result := DefaultInterface.SetStatus(p_iLocation, p_iAddress, p_iData);
end;

function TPanelXMX3G.GetStatus(p_iLocation: Integer; p_iAddress: Integer; var p_iData: Integer): WordBool;
begin
  Result := DefaultInterface.GetStatus(p_iLocation, p_iAddress, p_iData);
end;

function TPanelXMX3G.ResetField: WordBool;
begin
  Result := DefaultInterface.ResetField;
end;

function TPanelXMX3G.AskRandom(var p_sRnd: OleVariant): WordBool;
begin
  Result := DefaultInterface.AskRandom(p_sRnd);
end;

function TPanelXMX3G.SelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool;
begin
  Result := DefaultInterface.SelectPage(p_iKey, p_iPage, p_sBlockConfig);
end;

function TPanelXMX3G.Authentify(p_iKey: TxMxKey; var p_sSN: OleVariant): WordBool;
begin
  Result := DefaultInterface.Authentify(p_iKey, p_sSN);
end;

function TPanelXMX3G.GetLastError: Integer;
begin
  Result := DefaultInterface.GetLastError;
end;

function TPanelXMX3G.GetMxLastStatus: Integer;
begin
  Result := DefaultInterface.GetMxLastStatus;
end;

function TPanelXMX3G.GetMXLastStatusDesc: WideString;
begin
  Result := DefaultInterface.GetMXLastStatusDesc;
end;

function TPanelXMX3G.EASDetect(var p_sSN: OleVariant): WordBool;
begin
  Result := DefaultInterface.EASDetect(p_sSN);
end;

function TPanelXMX3G.EASActivate: WordBool;
begin