panelxmx3gcontrol_tlb.pas

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

  Result := DefaultInterface.EASActivate;
end;

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

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

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

function TPanelXMX3G.CryptoDecryptSingleDES(p_sKey: OleVariant; p_sData: OleVariant): WideString;
begin
  Result := DefaultInterface.CryptoDecryptSingleDES(p_sKey, p_sData);
end;

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

function TPanelXMX3G.CryptoDecryptTripleDESEDE(p_sKey1: OleVariant; p_sKey2: OleVariant; 
                                               p_sData: OleVariant): WideString;
begin
  Result := DefaultInterface.CryptoDecryptTripleDESEDE(p_sKey1, p_sKey2, p_sData);
end;

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

function TPanelXMX3G.LogSaveToFile(p_sFileName: OleVariant): WordBool;
begin
  Result := DefaultInterface.LogSaveToFile(p_sFileName);
end;

procedure TPanelXMX3G.LogClear;
begin
  DefaultInterface.LogClear;
end;

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

procedure TPanelXMX3G.InitiateAction;
begin
  DefaultInterface.InitiateAction;
end;

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

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

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

procedure TPanelXMX3G.SetSubComponent(IsSubComponent: WordBool);
begin
  DefaultInterface.SetSubComponent(IsSubComponent);
end;

procedure TPanelXMX3G.AboutBox;
begin
  DefaultInterface.AboutBox;
end;

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

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

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

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

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

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

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

function TPanelXMX3G.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 TPanelXMX3G.StringReselect(const p_sSN: WideString): WordBool;
begin
  Result := DefaultInterface.StringReselect(p_sSN);
end;

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

function TPanelXMX3G.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 TPanelXMX3G.SelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; 
                                    var p_sBlockConfig: OleVariant): WordBool;
begin
  Result := DefaultInterface.SelectAuthPage(p_iKey, p_iPage, p_sBlockConfig);
end;

function TPanelXMX3G.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 TPanelXMX3G.StringSendISOCommand(p_iISOType: TxMxISO7816T0Direction; 
                                          p_iNbDataOut: Integer; p_iClass: Integer; 
                                          p_iIns: Integer; p_iP1: Integer; p_iP2: Integer; 
                                          p_iP3: Integer; const p_sDataIn: WideString; 
                                          var p_sDataOut: WideString): Integer;
begin
  Result := DefaultInterface.StringSendISOCommand(p_iISOType, p_iNbDataOut, p_iClass, p_iIns, 
                                                  p_iP1, p_iP2, p_iP3, p_sDataIn, p_sDataOut);
end;

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

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

function TPanelXMX3G.MicroPassCardConnect(p_bResetRFField: WordBool; p_eCardType: TxMxTCLCardType; 
                                          p_bCID: Integer; p_iPCDMaximumInputFrameSize: Integer; 
                                          p_eProtocolSpeed: TxMxTCLProtocolSpeed; 
                                          var p_sSN: OleVariant; var p_sRATS_RATTRIB: OleVariant): WordBool;
begin
  Result := DefaultInterface.MicroPassCardConnect(p_bResetRFField, p_eCardType, p_bCID, 
                                                  p_iPCDMaximumInputFrameSize, p_eProtocolSpeed, 
                                                  p_sSN, p_sRATS_RATTRIB);
end;

function TPanelXMX3G.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;
begin
  Result := DefaultInterface.MicroPassCardTransmit(p_iDataOutLength, p_bClass, p_bIns, p_bP1, 
                                                   p_bP2, p_bP3, p_sDataIn, p_sDataOut);
end;

function TPanelXMX3G.MicroPassGetATR(var p_sATR: OleVariant; var p_sVersion: OleVariant; 
                                     var p_sComponent: OleVariant; var p_sLife: OleVariant; 
                                     var p_eMicroPassType: TxMxMicroPassType): Integer;
begin
  Result := DefaultInterface.MicroPassGetATR(p_sATR, p_sVersion, p_sComponent, p_sLife, 
                                             p_eMicroPassType);
end;

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

function TPanelXMX3G.MicroPassCreateDF(p_iDFIDHigh: Integer; p_iDFIDLow: Integer; 
                                       p_sCreationData: OleVariant): Integer;
begin
  Result := DefaultInterface.MicroPassCreateDF(p_iDFIDHigh, p_iDFIDLow, p_sCreationData);
end;

function TPanelXMX3G.MicroPassCreateEF(p_bEFIDHigh: Integer; p_bEFIDLow: Integer; 
                                       p_sCreationData: OleVariant): Integer;
begin
  Result := DefaultInterface.MicroPassCreateEF(p_bEFIDHigh, p_bEFIDLow, p_sCreationData);
end;

function TPanelXMX3G.MicroPassSelectMF(out p_sFCI: OleVariant): Integer;
begin
  Result := DefaultInterface.MicroPassSelectMF(p_sFCI);
end;

function TPanelXMX3G.MicroPassSelectFile(p_iSelectionType: Integer; p_iReturnFCI: Integer; 
                                         p_sSelectionData: OleVariant; out p_sFCI: OleVariant): Integer;
begin
  Result := DefaultInterface.MicroPassSelectFile(p_iSelectionType, p_iReturnFCI, p_sSelectionData, 
                                                 p_sFCI);
end;

function TPanelXMX3G.MicroPassFileUpdateBinary(p_iSFIOrOffsetHigh: Integer; p_iOffsetLow: Integer; 
                                               p_iLength: Integer; p_sData: OleVariant): Integer;
begin
  Result := DefaultInterface.MicroPassFileUpdateBinary(p_iSFIOrOffsetHigh, p_iOffsetLow, p_iLength, 
                                                       p_sData);
end;

function TPanelXMX3G.MicroPassFileReadBinary(p_iSFIOrOffsetHigh: Integer; p_iOffsetLow: Integer; 
                                             p_iLength: Integer; out p_sData: OleVariant): Integer;
begin
  Result := DefaultInterface.MicroPassFileReadBinary(p_iSFIOrOffsetHigh, p_iOffsetLow, p_iLength, 
                                                     p_sData);
end;

function TPanelXMX3G.MicroPassAuthenticate3DESEDE(p_sKey: OleVariant; out p_sChallenge: OleVariant; 
                                                  out p_sSignature: OleVariant): Integer;
begin
  Result := DefaultInterface.MicroPassAuthenticate3DESEDE(p_sKey, p_sChallenge, p_sSignature);
end;

procedure Register;
begin
  RegisterComponents(dtlOcxPage, [TPanelXMX3G]);
end;

end.