📄 panelxmx3gcontrol_tlb.pas
字号:
property MxKeyLoadingMode: TxMxKeyLoadingMode read Get_MxKeyLoadingMode write Set_MxKeyLoadingMode;
property MxProtocolIndex: TxMxProtocolIndex read Get_MxProtocolIndex write Set_MxProtocolIndex;
property MxRead: TxMxRead read Get_MxRead write Set_MxRead;
property MxUserProtocol: TxMxUserProtocol read Get_MxUserProtocol write Set_MxUserProtocol;
property MxCurrentKey: TxMxPageKey read Get_MxCurrentKey write Set_MxCurrentKey;
property MxLastStatus: Integer read Get_MxLastStatus;
property MxLastStatusDesc: WideString read Get_MxLastStatusDesc;
property MxID: WideString read Get_MxID write Set_MxID;
property MxComName: WideString read Get_MxComName;
property MxTimeOut: LongWord read Get_MxTimeOut write Set_MxTimeOut;
property MxWriteVerify: WordBool read Get_MxWriteVerify write Set_MxWriteVerify;
property MxSecurityChecking: TxMxSecurityChecking read Get_MxSecurityChecking write Set_MxSecurityChecking;
property MxChipSecurity: TxMxChipSecurity read Get_MxChipSecurity write Set_MxChipSecurity;
property MxEASMethod: TxMxEASMethod read Get_MxEASMethod write Set_MxEASMethod;
property MxLog: WordBool read Get_MxLog write Set_MxLog;
property ParentBackground: WordBool read Get_ParentBackground write Set_ParentBackground;
property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
property AlignDisabled: WordBool read Get_AlignDisabled;
property VisibleDockClientCount: Integer read Get_VisibleDockClientCount;
property Enabled: WordBool read Get_Enabled write Set_Enabled;
property MxKHost: WideString read Get_MxKHost write Set_MxKHost;
end;
// *********************************************************************//
// DispIntf: IPanelXMX3GDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {CF224775-88B3-4A24-B516-7FA1ADD77898}
// *********************************************************************//
IPanelXMX3GDisp = dispinterface
['{CF224775-88B3-4A24-B516-7FA1ADD77898}']
procedure ShowModal; dispid 201;
function Connect: WordBool; dispid 202;
function ConnectTo(p_sCom: OleVariant): WordBool; dispid 203;
function Disconnect: WordBool; dispid 204;
function SelectCard(p_bSelectMode: Integer; p_bChipTypes: Integer; var p_sSN: OleVariant): WordBool; dispid 205;
function ReSelect(p_sSN: OleVariant): WordBool; dispid 206;
function ReadBlock(p_iBlock: Integer; p_iBlockCount: Integer; var p_sData: OleVariant): WordBool; dispid 207;
function WriteBlock(p_iBlock: Integer; p_iBlockCount: Integer; p_sData: OleVariant): WordBool; dispid 214;
function DecreaseCounter(p_iDebit: Integer; var p_iCounterNew: Integer): WordBool; dispid 216;
function IncreaseCounter(p_iCounterNew: Integer; var p_iRechargingCounterNew: Integer): WordBool; dispid 217;
function Transmit(p_iP1: Integer; p_iP2: Integer; p_iP3: Integer; p_sDataIn: OleVariant;
var p_sDataOut: OleVariant): WordBool; dispid 218;
function Halt: WordBool; dispid 219;
function LoadKey(p_iKeyNum: TxMxKey): WordBool; dispid 222;
function KeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode;
p_sKeyExchange: OleVariant; p_sKeyToLoad: OleVariant): WordBool; dispid 223;
function KeyLoading3DESEDE(p_iP1: Integer; p_iP2: Integer; p_sExchangeKey: OleVariant;
p_sKeyToLoad: OleVariant): WordBool; dispid 224;
function DiversifyKey(p_iKeyNum: TxMxKey; p_sSN: OleVariant; var p_sKeyDiversified: OleVariant): WordBool; dispid 225;
function Disable: WordBool; dispid 227;
function Enable: WordBool; dispid 228;
function SetStatus(p_iLocation: Integer; p_iAddress: Integer; p_iData: Integer): WordBool; dispid 229;
function GetStatus(p_iLocation: Integer; p_iAddress: Integer; var p_iData: Integer): WordBool; dispid 230;
function ResetField: WordBool; dispid 231;
function AskRandom(var p_sRnd: OleVariant): WordBool; dispid 232;
function SelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool; dispid 235;
function Authentify(p_iKey: TxMxKey; var p_sSN: OleVariant): WordBool; dispid 236;
function GetLastError: Integer; dispid 237;
function GetMxLastStatus: Integer; dispid 238;
function GetMXLastStatusDesc: WideString; dispid 239;
function EASDetect(var p_sSN: OleVariant): WordBool; dispid 240;
function EASActivate: WordBool; dispid 241;
function EASDesactivate: WordBool; dispid 242;
function IsChipSecured: WordBool; dispid 243;
function CryptoEncryptSingleDES(p_sKey: OleVariant; p_sData: OleVariant): WideString; dispid 244;
function CryptoDecryptSingleDES(p_sKey: OleVariant; p_sData: OleVariant): WideString; dispid 245;
function CryptoEncryptTripleDESEDE(p_sKey1: OleVariant; p_sKey2: OleVariant; p_sData: OleVariant): WideString; dispid 246;
function CryptoDecryptTripleDESEDE(p_sKey1: OleVariant; p_sKey2: OleVariant; p_sData: OleVariant): WideString; dispid 247;
function SetEEPROMSpeed: WordBool; dispid 248;
function LogSaveToFile(p_sFileName: OleVariant): WordBool; dispid 250;
procedure LogClear; dispid 251;
property Visible: WordBool dispid 252;
property MxVersion: WideString readonly dispid 253;
property MxComOpened: WordBool readonly dispid 254;
property MxComHandle: LongWord dispid 255;
property MxComSpeed: TxMxSpeed dispid 256;
property MxCaption: WideString dispid 257;
property MxHexaSymbol: WideString dispid 258;
property MxType: TxMxType dispid 259;
property MxModulation: TxMxModulation dispid 260;
property MxKe: WideString dispid 261;
property MxKeOld: WideString dispid 262;
property MxKc: WideString dispid 263;
property MxKd: WideString dispid 264;
property MxPassword: WideString dispid 265;
property MxKdt: WideString dispid 266;
property MxInstructionCoding: TxMxInstructionCoding dispid 273;
property MxInstructionKey: TxMxInstructionKey dispid 274;
property MxKeyLoadingMode: TxMxKeyLoadingMode dispid 275;
property MxProtocolIndex: TxMxProtocolIndex dispid 276;
property MxRead: TxMxRead dispid 277;
property MxUserProtocol: TxMxUserProtocol dispid 278;
property MxCurrentKey: TxMxPageKey dispid 279;
property MxLastStatus: Integer readonly dispid 280;
property MxLastStatusDesc: WideString readonly dispid 281;
property MxID: WideString dispid 282;
property MxComName: WideString readonly dispid 283;
property MxTimeOut: LongWord dispid 284;
property MxWriteVerify: WordBool dispid 285;
property MxSecurityChecking: TxMxSecurityChecking dispid 286;
property MxChipSecurity: TxMxChipSecurity dispid 287;
property MxEASMethod: TxMxEASMethod dispid 288;
property MxLog: WordBool dispid 289;
property ParentBackground: WordBool dispid 290;
property DoubleBuffered: WordBool dispid 291;
property AlignDisabled: WordBool readonly dispid 292;
property VisibleDockClientCount: Integer readonly dispid 293;
function DrawTextBiDiModeFlagsReadingOnly: Integer; dispid 294;
property Enabled: WordBool dispid -514;
procedure InitiateAction; dispid 295;
function IsRightToLeft: WordBool; dispid 296;
function UseRightToLeftReading: WordBool; dispid 297;
function UseRightToLeftScrollBar: WordBool; dispid 298;
procedure SetSubComponent(IsSubComponent: WordBool); dispid 299;
procedure AboutBox; dispid -552;
function StringSelectCard(p_iSelectMode: Integer; p_iChipTypes: Integer; var p_sSN: WideString): WordBool; dispid 208;
function StringReadBlock(p_iBlockStart: Integer; p_iBlockCount: Integer; var p_sData: WideString): WordBool; dispid 209;
function StringWriteBlock(p_iBlockStart: Integer; p_iBlockCount: Integer;
const p_sData: WideString): WordBool; dispid 210;
function StringConvertHexaToAscii(const p_sHexa: WideString): WideString; dispid 55;
function StringConvertAsciiToHexa(const p_sAscii: WideString): WideString; dispid 56;
function StringAuthentify(p_iKey: TxMxKey; var p_sSN: WideString): WordBool; dispid 212;
function StringSelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool; dispid 213;
function StringDiversifyKey(p_iKeyNum: TxMxKey; const p_sSN: WideString;
var p_sDiversifiedKey: WideString): WordBool; dispid 215;
function StringReselect(const p_sSN: WideString): WordBool; dispid 220;
function StringSelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool; dispid 221;
function StringKeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode;
const p_sKeyExchange: WideString; const p_sKeyToLoad: WideString): WordBool; dispid 226;
function SelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool; dispid 234;
property MxKHost: WideString dispid 249;
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 211;
function 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; dispid 233;
function ConvertHexaToAscii(p_sHexa: OleVariant): OleVariant; dispid 267;
function ConvertAsciiToHexa(p_sAscii: OleVariant): OleVariant; dispid 268;
function 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; dispid 269;
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; dispid 270;
function MicroPassGetATR(var p_sATR: OleVariant; var p_sVersion: OleVariant;
var p_sComponent: OleVariant; var p_sLife: OleVariant;
var p_eMicroPassType: TxMxMicroPassType): Integer; dispid 271;
function MicroPassCreateMF: Integer; dispid 272;
function MicroPassCreateDF(p_iDFIDHigh: Integer; p_iDFIDLow: Integer;
p_sCreationData: OleVariant): Integer; dispid 300;
function MicroPassCreateEF(p_bEFIDHigh: Integer; p_bEFIDLow: Integer;
p_sCreationData: OleVariant): Integer; dispid 301;
function MicroPassSelectMF(out p_sFCI: OleVariant): Integer; dispid 302;
function MicroPassSelectFile(p_iSelectionType: Integer; p_iReturnFCI: Integer;
p_sSelectionData: OleVariant; out p_sFCI: OleVariant): Integer; dispid 303;
function MicroPassFileUpdateBinary(p_iSFIOrOffsetHigh: Integer; p_iOffsetLow: Integer;
p_iLength: Integer; p_sData: OleVariant): Integer; dispid 304;
function MicroPassFileReadBinary(p_iSFIOrOffsetHigh: Integer; p_iOffsetLow: Integer;
p_iLength: Integer; out p_sData: OleVariant): Integer; dispid 305;
function MicroPassAuthenticate3DESEDE(p_sKey: OleVariant; out p_sChallenge: OleVariant;
out p_sSignature: OleVariant): Integer; dispid 306;
end;
// *********************************************************************//
// DispIntf: IPanelXMX3GEvents
// Flags: (4096) Dispatchable
// GUID: {280A4C93-85F4-4A23-A660-09E000BE60AA}
// *********************************************************************//
IPanelXMX3GEvents = dispinterface
['{280A4C93-85F4-4A23-A660-09E000BE60AA}']
end;
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TPanelXMX3G
// Help String : PanelXMX3G Control
// Default Interface: IPanelXMX3G
// Def. Intf. DISP? : No
// Event Interface: IPanelXMX3GEvents
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TPanelXMX3G = class(TOleControl)
private
FIntf: IPanelXMX3G;
function GetControlInterface: IPanelXMX3G;
protected
procedure CreateControl;
procedure InitControlData; override;
public
procedure ShowModal;
function Connect: WordBool;
function ConnectTo(p_sCom: OleVariant): WordBool;
function Disconnect: WordBool;
function SelectCard(p_bSelectMode: Integer; p_bChipTypes: Integer; var p_sSN: OleVariant): WordBool;
function ReSelect(p_sSN: OleVariant): WordBool;
function ReadBlock(p_iBlock: Integer; p_iBlockCount: Integer; var p_sData: OleVariant): WordBool;
function WriteBlock(p_iBlock: Integer; p_iBlockCount: Integer; p_sData: OleVariant): WordBool;
function DecreaseCounter(p_iDebit: Integer; var p_iCounterNew: Integer): WordBool;
function IncreaseCounter(p_iCounterNew: Integer; var p_iRechargingCounterNew: Integer): WordBool;
function Transmit(p_iP1: Integer; p_iP2: Integer; p_iP3: Integer; p_sDataIn: OleVariant;
var p_sDataOut: OleVariant): WordBool;
function Halt: WordBool;
function LoadKey(p_iKeyNum: TxMxKey): WordBool;
function KeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode;
p_sKeyExchange: OleVariant; p_sKeyToLoad: OleVariant): WordBool;
function KeyLoading3DESEDE(p_iP1: Integer; p_iP2: Integer; p_sExchangeKey: OleVariant;
p_sKeyToLoad: OleVariant): WordBool;
function DiversifyKey(p_iKeyNum: TxMxKey; p_sSN: OleVariant; var p_sKeyDiversified: OleVariant): WordBool;
function Disable: WordBool;
function Enable: 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 ResetField: WordBool;
function AskRandom(var p_sRnd: OleVariant): WordBool;
function SelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: OleVariant): WordBool;
function Authentify(p_iKey: TxMxKey; var p_sSN: OleVariant): WordBool;
function GetLastError: Integer;
function GetMxLastStatus: Integer;
function GetMXLastStatusDesc: WideString;
function EASDetect(var p_sSN: OleVariant): WordBool;
function EASActivate: WordBool;
function EASDesactivate: WordBool;
function IsChipSecured: WordBool;
function CryptoEncryptSingleDES(p_sKey: OleVariant; p_sData: OleVariant): WideString;
function CryptoDecryptSingleDES(p_sKey: OleVariant; p_sData: OleVariant): WideString;
function CryptoEncryptTripleDESEDE(p_sKey1: OleVariant; p_sKey2: OleVariant; p_sData: OleVariant): WideString;
function CryptoDecryptTripleDESEDE(p_sKey1: OleVariant; p_sKey2: OleVariant; p_sData: OleVariant): WideString;
function SetEEPROMSpeed: WordBool;
function LogSaveToFile(p_sFileName: OleVariant): WordBool;
procedure LogClear;
function DrawTextBiDiModeFlagsReadingOnly: Integer;
procedure InitiateAction;
function IsRightToLeft: WordBool;
function UseRightToLeftReading: WordBool;
function UseRightToLeftScrollBar: WordBool;
procedure SetSubComponent(IsSubComponent: WordBool);
procedure AboutBox;
function StringSelectCard(p_iSelectMode: Integer; p_iChipTypes: Integer; 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 StringAuthentify(p_iKey: TxMxKey; var p_sSN: WideString): WordBool;
function StringSelectPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool;
function StringDiversifyKey(p_iKeyNum: TxMxKey; const p_sSN: WideString;
var p_sDiversifiedKey: WideString): WordBool;
function StringReselect(const p_sSN: WideString): WordBool;
function StringSelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: WideString): WordBool;
function StringKeyLoading(p_iKeyNum: TxMxKey; p_iKeyLoadingMode: TxMxKeyLoadingMode;
const p_sKeyExchange: WideString; const p_sKeyToLoad: WideString): WordBool;
function SelectAuthPage(p_iKey: TxMxKey; p_iPage: Integer; var p_sBlockConfig: 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 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;
function ConvertHexaToAscii(p_sHexa: OleVariant): OleVariant;
function ConvertAsciiToHexa(p_sAscii: OleVariant): OleVariant;
function MicroPassCardConnect(p_bResetRFField: WordBool; p_eCardType: TxMxTCLCardType;
p_bCID: Integer; p_iPCDMaximumInputFrameSize: Integer;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -