panelxmxcontrol_tlb.pas

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

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

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

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

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

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

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

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

function TPanelXMX.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;
begin
  Result := DefaultInterface.ISO7816T0SendCmd(p_iClass, p_iIns, p_iP1, p_iP2, p_iP3, p_iISOType, 
                                              p_sDataIn, p_iDataOut, p_sDataOut);
end;

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

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

function TPanelXMX.StringWriteBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; 
                                    const p_sData: WideString): WordBool;
begin
  Result := DefaultInterface.StringWriteBlock(p_iBlockStart, p_iBlockCount, p_sData);
end;

function TPanelXMX.StringConvertHexaToAscii(const p_sHexa: WideString): WideString;
begin
  Result := DefaultInterface.StringConvertHexaToAscii(p_sHexa);
end;

function TPanelXMX.StringConvertAsciiToHexa(const p_sAscii: WideString): WideString;
begin
  Result := DefaultInterface.StringConvertAsciiToHexa(p_sAscii);
end;

function TPanelXMX.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;
begin
  Result := DefaultInterface.StringPersonalizePico(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;

function TPanelXMX.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;
begin
  Result := DefaultInterface.StringIdentifyPico(p_sSN, p_sBlockConfig, p_pbChipState, 
                                                p_pbChipCoding, p_pbChipSecurity, p_pbChipProduct, 
                                                p_pbEAS, p_pbChipMemSize, p_pbTuningCaps, 
                                                p_pbWriteLock, p_pwUserOTP, p_pbAppliLimit, 
                                                p_pwUnitCounter, p_pwRechargingCounter, 
                                                p_sBlockPerso);
end;

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

function TPanelXMX.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;
begin
  Result := DefaultInterface.StringISO7816T0SendCmd(p_iClass, p_iIns, p_iP1, p_iP2, p_iP3, 
                                                    p_iISOType, p_sDataIn, p_iDataOut, p_sDataOut);
end;

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

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

function TPanelXMX.StringAuthentify(p_iKey: TxMxKey; var p_sSN: WideString): WordBool;
begin
  Result := DefaultInterface.StringAuthentify(p_iKey, p_sSN);
end;

function TPanelXMX.StringSelectPage(p_iKey: TxMxKey; p_iPage: Integer; 
                                    var p_sBlockConfig: WideString): WordBool;
begin
  Result := DefaultInterface.StringSelectPage(p_iKey, p_iPage, p_sBlockConfig);
end;

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

function TPanelXMX.StringSelectCard(p_iSelectMode: Integer; p_iChipTypes: Integer; 
                                    var p_sSN: WideString): WordBool;
begin
  Result := DefaultInterface.StringSelectCard(p_iSelectMode, p_iChipTypes, p_sSN);
end;

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

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

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

function TPanelXMX.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 TPanelXMX.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;
begin
  Result := DefaultInterface.SendISOCommand(p_iISOType, p_iNbDataOut, p_iClass, p_iIns, p_iP1, 
                                            p_iP2, p_iP3, p_sDataIn, p_sDataOut);
end;

function TPanelXMX.StringKeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode; 
                                    const p_sKeyExchange: WideString; const p_sKeyToLoad: WideString): WordBool;
begin
  Result := DefaultInterface.StringKeyLoading(p_iKeyNum, p_iKeyLoadingMode, p_sKeyExchange, 
                                              p_sKeyToLoad);
end;

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

function TPanelXMX.StringDiversifyKey(p_iKeyNum: TxMxKey; const p_sSN: WideString; 
                                      var p_sDiversifiedKey: WideString): WordBool;
begin
  Result := DefaultInterface.StringDiversifyKey(p_iKeyNum, p_sSN, p_sDiversifiedKey);
end;

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

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

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

function TPanelXMX.Reselect(p_sSN: OleVariant): WordBool;
begin
  Result := DefaultInterface.Reselect(p_sSN);
end;

function TPanelXMX.StringReselect(const p_sSN: WideString): WordBool;
begin
  Result := DefaultInterface.StringReselect(p_sSN);
end;

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

function TPanelXMX.StringSelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; 
                                        var p_sBlockConfig: WideString): WordBool;
begin
  Result := DefaultInterface.StringSelectAuthPage(p_iKey, p_iPage, p_sBlockConfig);
end;

function TPanelXMX.CryptoEncryptSingleDES(const p_sKey: WideString; const p_sData: WideString): WideString;
begin
  Result := DefaultInterface.CryptoEncryptSingleDES(p_sKey, p_sData);
end;

function TPanelXMX.CryptoEncryptTripleDESEDE(const p_sKey1: WideString; const p_sKey2: WideString; 
                                             const p_sData: WideString): WideString;
begin
  Result := DefaultInterface.CryptoEncryptTripleDESEDE(p_sKey1, p_sKey2, p_sData);
end;

function TPanelXMX.CryptoDecryptSin