📄 panelxmxcontrol_tlb.pas
字号:
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {E8ED6162-E84A-11D3-9347-00105AF62F28}
// *********************************************************************//
IPanelXMXDisp = dispinterface
['{E8ED6162-E84A-11D3-9347-00105AF62F28}']
function Connect: WordBool; dispid 1;
function Disconnect: WordBool; dispid 2;
function Select(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer;
p_sPIN: OleVariant; var p_sSN: OleVariant): WordBool; dispid 3;
function ReadRecord(p_iRecordStart: Integer; p_iRecordCount: Integer; var p_sData: OleVariant): WordBool; dispid 4;
function WriteRecord(p_iRecordStart: Integer; p_iRecordCount: Integer; p_sData: OleVariant): WordBool; dispid 5;
function ReadBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; var p_sData: OleVariant): WordBool; dispid 6;
function WriteBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; p_sData: OleVariant): WordBool; dispid 7;
function Decrease(p_iDebit: Integer; var p_iCounterNew: Integer): WordBool; dispid 8;
function Increase(p_iCounterNew: Integer; var p_iRechargingCounterNew: Integer): WordBool; dispid 9;
function Halt: WordBool; dispid 10;
function LoadKey(p_iKeyNum: TxMxKey): WordBool; dispid 11;
property MxComOpened: WordBool readonly dispid 12;
property MxComHandle: Integer readonly dispid 13;
property MxComSpeed: TxMxSpeed dispid 14;
property MxCaption: WideString dispid 15;
property MxHexaSymbol: WideString dispid 17;
property MxType: TxMxType dispid 18;
property MxModulation: TxMxModulation dispid 19;
property MxKe: WideString dispid 20;
property MxKc: WideString dispid 21;
property MxKd: WideString dispid 22;
property MxInstructionCoding: TxMxInstructionCoding dispid 23;
property MxInstructionKey: TxMxInstructionKey dispid 24;
function GetControlsAlignment: TxAlignment; dispid 25;
property DoubleBuffered: WordBool dispid 28;
procedure FlipChildren(AllLevels: WordBool); dispid 29;
function DrawTextBiDiModeFlags(Flags: Integer): Integer; dispid 32;
function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 33;
property Enabled: WordBool dispid -514;
procedure InitiateAction; dispid 35;
function IsRightToLeft: WordBool; dispid 36;
function UseRightToLeftAlignment: WordBool; dispid 41;
function UseRightToLeftReading: WordBool; dispid 42;
function UseRightToLeftScrollBar: WordBool; dispid 43;
property BiDiMode: TxBiDiMode dispid 44;
property Visible: WordBool dispid 45;
property Cursor: Smallint dispid 46;
function ClassNameIs(const Name: WideString): WordBool; dispid 50;
procedure AboutBox; dispid -552;
function Transmit(p_iP1: Integer; p_iP2: Integer; p_iP3: Integer; p_sDataIn: OleVariant;
var p_sDataOut: OleVariant): WordBool; dispid 26;
function ConvertHexaToAscii(p_sHexa: OleVariant): OleVariant; dispid 27;
function ConvertAsciiToHexa(p_sAscii: OleVariant): OleVariant; dispid 30;
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; dispid 31;
function SelectChip(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer;
p_sPIN: OleVariant; var p_sSN: OleVariant): WordBool; dispid 16;
function SetStatus(p_iLocation: Integer; p_iAddress: Integer; p_iData: Integer): WordBool; dispid 34;
function GetStatus(p_iLocation: Integer; p_iAddress: Integer; var p_iData: Integer): WordBool; dispid 37;
function Disable: WordBool; dispid 38;
function Enable: WordBool; dispid 39;
function ConnectTo(p_sCom: OleVariant): WordBool; dispid 40;
property MxPassword: WideString dispid 47;
function AskRandom(var p_sRnd: OleVariant): WordBool; dispid 48;
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; dispid 49;
function StringSelect(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer;
const p_sPIN: WideString; var p_sSN: WideString): WordBool; dispid 51;
function StringReadBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; var p_sData: WideString): WordBool; dispid 52;
function StringWriteBlock(p_iBlockStart: Integer; p_iBlockCount: Integer;
const p_sData: WideString): WordBool; dispid 53;
function StringConvertHexaToAscii(const p_sHexa: WideString): WideString; dispid 55;
function StringConvertAsciiToHexa(const p_sAscii: WideString): WideString; dispid 56;
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; dispid 57;
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; dispid 54;
function GetLastError: Integer; dispid 58;
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; dispid 59;
property MxProtocolIndex: TxMxProtocolIndex dispid 62;
function SelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool; dispid 60;
property MxKeOld: WideString dispid 61;
property MxVersion: WideString readonly dispid 63;
function Authentify(p_iKey: TxMxKey; var p_sSN: OleVariant): WordBool; dispid 64;
function StringAuthentify(p_iKey: TxMxKey; var p_sSN: WideString): WordBool; dispid 65;
function StringSelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool; dispid 66;
property MxRead: TxMxRead dispid 67;
property MxUserProtocol: TxMxUserProtocol dispid 68;
function SelectCard(p_iSelectMode: Integer; p_iChipTypes: Integer; var p_sSN: OleVariant): WordBool; dispid 69;
function StringSelectCard(p_iSelectMode: Integer; p_iChipTypes: Integer; var p_sSN: WideString): WordBool; dispid 70;
property MxCurrentKey: TxMxPageKey dispid 71;
property MxKdt: WideString dispid 72;
function EASDetect(var p_sSN: OleVariant): WordBool; dispid 73;
function EASActivate: WordBool; dispid 74;
function EASDesactivate: WordBool; dispid 75;
property MxKeyLoadingMode: TxMxKeyLoadingMode dispid 76;
function KeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode;
p_sKeyExchange: OleVariant; p_sKeyToLoad: OleVariant): WordBool; dispid 77;
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; dispid 78;
property MxLastStatus: Integer readonly dispid 79;
property MxLastStatusDesc: WideString readonly dispid 80;
function StringKeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode;
const p_sKeyExchange: WideString; const p_sKeyToLoad: WideString): WordBool; dispid 81;
function DiversifyKey(p_iKeyNum: TxMxKey; p_sSN: OleVariant; var p_sDiversifiedKey: OleVariant): WordBool; dispid 82;
function StringDiversifyKey(p_iKeyNum: TxMxKey; const p_sSN: WideString;
var p_sDiversifiedKey: WideString): WordBool; dispid 83;
function ResetField: WordBool; dispid 84;
function IncreaseCounter(p_iCounterNew: Integer; var p_iRechargingCounterNew: Integer): WordBool; dispid 85;
function DecreaseCounter(p_iDebit: Integer; var p_iCounterNew: Integer): WordBool; dispid 86;
function Reselect(p_sSN: OleVariant): WordBool; dispid 87;
function StringReselect(const p_sSN: WideString): WordBool; dispid 88;
function SelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool; dispid 89;
function StringSelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool; dispid 90;
function CryptoEncryptSingleDES(const p_sKey: WideString; const p_sData: WideString): WideString; dispid 91;
function CryptoEncryptTripleDESEDE(const p_sKey1: WideString; const p_sKey2: WideString;
const p_sData: WideString): WideString; dispid 93;
function CryptoDecryptSingleDES(const p_sKey: WideString; const p_sData: WideString): WideString; dispid 95;
function CryptoDecryptTripleDESEDE(const p_sKey1: WideString; const p_sKey2: WideString;
const p_sData: WideString): WideString; dispid 96;
property MxComName: WideString readonly dispid 92;
function KeyLoading3DESEDE(p_iP1: Integer; p_iP2: Integer; p_sExchangeKey: OleVariant;
p_sKeyToLoad: OleVariant): WordBool; dispid 94;
property MxTimeOut: LongWord dispid 97;
function WriteBlockICLinkRetry(p_iBlockStart: Integer; p_iBlockCount: Integer;
p_sData: OleVariant; p_iRetryCount: Integer): Integer; dispid 98;
function WriteBlockICLink(p_iBlockStart: Integer; p_iBlockCount: Integer; p_sData: OleVariant): WordBool; dispid 99;
end;
// *********************************************************************//
// DispIntf: IPanelXMXEvents
// Flags: (4096) Dispatchable
// GUID: {E8ED6164-E84A-11D3-9347-00105AF62F28}
// *********************************************************************//
IPanelXMXEvents = dispinterface
['{E8ED6164-E84A-11D3-9347-00105AF62F28}']
end;
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TPanelXMX
// Help String : PanelXMX Control
// Default Interface: IPanelXMX
// Def. Intf. DISP? : No
// Event Interface: IPanelXMXEvents
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TPanelXMX = class(TOleControl)
private
FIntf: IPanelXMX;
function GetControlInterface: IPanelXMX;
protected
procedure CreateControl;
procedure InitControlData; override;
public
function Connect: WordBool;
function Disconnect: WordBool;
function Select(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer;
p_sPIN: OleVariant; var p_sSN: OleVariant): WordBool;
function ReadRecord(p_iRecordStart: Integer; p_iRecordCount: Integer; var p_sData: OleVariant): WordBool;
function WriteRecord(p_iRecordStart: Integer; p_iRecordCount: Integer; p_sData: OleVariant): WordBool;
function ReadBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; var p_sData: OleVariant): WordBool;
function WriteBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; p_sData: OleVariant): WordBool;
function Decrease(p_iDebit: Integer; var p_iCounterNew: Integer): WordBool;
function Increase(p_iCounterNew: Integer; var p_iRechargingCounterNew: Integer): WordBool;
function Halt: WordBool;
function LoadKey(p_iKeyNum: TxMxKey): WordBool;
function GetControlsAlignment: TxAlignment;
procedure FlipChildren(AllLevels: WordBool);
function DrawTextBiDiModeFlags(Flags: Integer): Integer;
function DrawTextBiDiModeFlagsReadingOnly: Integer;
procedure InitiateAction;
function IsRightToLeft: WordBool;
function UseRightToLeftAlignment: WordBool;
function UseRightToLeftReading: WordBool;
function UseRightToLeftScrollBar: WordBool;
function ClassNameIs(const Name: WideString): WordBool;
procedure AboutBox;
function Transmit(p_iP1: Integer; p_iP2: Integer; p_iP3: Integer; p_sDataIn: OleVariant;
var p_sDataOut: OleVariant): WordBool;
function ConvertHexaToAscii(p_sHexa: OleVariant): OleVariant;
function ConvertAsciiToHexa(p_sAscii: OleVariant): OleVariant;
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;
function SelectChip(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer;
p_sPIN: OleVariant; var p_sSN: OleVariant): WordBool;
function SetStatus(p_iLocation: Integer; p_iAddress: Integer; p_iData: Integer): WordBool;
function GetStatus(p_iLocation: Integer; p_iAddress: Integer; var p_iData: Integer): WordBool;
function Disable: WordBool;
function Enable: WordBool;
function ConnectTo(p_sCom: OleVariant): WordBool;
function AskRandom(var p_sRnd: OleVariant): WordBool;
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;
function StringSelect(p_iSelectMode: Integer; p_iChipTypes: Integer; p_iKey: Integer;
const p_sPIN: WideString; var p_sSN: WideString): WordBool;
function StringReadBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; var p_sData: WideString): WordBool;
function StringWriteBlock(p_iBlockStart: Integer; p_iBlockCount: Integer;
const p_sData: WideString): WordBool;
function StringConvertHexaToAscii(const p_sHexa: WideString): WideString;
function StringConvertAsciiToHexa(const p_sAscii: WideString): WideString;
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;
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;
function GetLastError: Integer;
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;
function SelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool;
function Authentify(p_iKey: TxMxKey; var p_sSN: OleVariant): WordBool;
function StringAuthentify(p_iKey: TxMxKey; var p_sSN: WideString): WordBool;
function StringSelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool;
function SelectCard(p_iSelectMode: Integer; p_iChipTypes: Integer; var p_sSN: OleVariant): WordBool;
function StringSelectCard(p_iSelectMode: Integer; p_iChipTypes: Integer; var p_sSN: WideString): WordBool;
function EASDetect(var p_sSN: OleVariant): WordBool;
function EASActivate: WordBool;
function EASDesactivate: WordBool;
function KeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -