Código:
unit ctlMICRIntelliPIN_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : $Revision: 1.130.1.0.1.0.1.6 $
// File generated on 11/04/2015 11:27:51 from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\Program Files\MagTek\MicrPlusIntelliPIN\MTMICRIntPIN.ocx (1)
// LIBID: {A64F9F32-0D1E-4961-B13D-2EF02B0CB945}
// LCID: 0
// Helpfile: C:\Program Files\MagTek\MicrPlusIntelliPIN\MTMicrPlusIntelliPIN
// DepndLst:
// (1) v2.0 stdole, (C:\Windows\system32\stdole2.tlb)
// (2) v4.0 StdVCL, (C:\Windows\system32\stdvcl40.dll)
// ************************************************************************ //
// *************************************************************************//
// NOTE:
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled
// in order to prevent accidental use from within the object inspector. You
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
// removing them from the $IFDEF blocks. However, such items must still be
// programmatically created via a method of the appropriate CoClass before
// they can be used.
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
ctlMICRIntelliPINMajorVersion = 1;
ctlMICRIntelliPINMinorVersion = 3;
LIBID_ctlMICRIntelliPIN: TGUID = '{A64F9F32-0D1E-4961-B13D-2EF02B0CB945}';
IID__MICRIntelliPIN: TGUID = '{0372196D-591A-4035-998E-70AA496470E2}';
DIID___MICRIntelliPIN: TGUID = '{C43E0A7B-4BC2-421D-93AC-2411BDA84D4D}';
CLASS_MICRIntelliPIN: TGUID = '{9464C63A-843A-46E5-A88E-153C69A9946C}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
_MICRIntelliPIN = interface;
_MICRIntelliPINDisp = dispinterface;
__MICRIntelliPIN = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
MICRIntelliPIN = _MICRIntelliPIN;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
MICRIntelliPIN___v0 = _MICRIntelliPIN;
MICRIntelliPIN___v1 = _MICRIntelliPIN;
MICRIntelliPIN___v2 = _MICRIntelliPIN;
// *********************************************************************//
// Interface: _MICRIntelliPIN
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {0372196D-591A-4035-998E-70AA496470E2}
// *********************************************************************//
_MICRIntelliPIN = interface(IDispatch)
['{0372196D-591A-4035-998E-70AA496470E2}']
function Get_CommPort: Smallint; safecall;
procedure Set_CommPort(Param1: Smallint); safecall;
function Get_Settings: WideString; safecall;
procedure Set_Settings(const Param1: WideString); safecall;
function Get_CardData: WideString; safecall;
procedure Set_CardData(const Param1: WideString); safecall;
function GetTrack(var TrackNum: Smallint; const StringToSearch: WideString): WideString; safecall;
function GetFName(const StringToSearch: WideString): WideString; safecall;
function GetLName(const StringToSearch: WideString): WideString; safecall;
function FindElement(const StringToSearch: WideString; TrackNum: Smallint;
const RefChar: WideString; Displacement: Smallint;
const NumDigits: WideString; var DirectionBack: OleVariant): WideString; safecall;
function GetDefSetting(const Key: WideString; const Default: WideString): WideString; safecall;
procedure SaveDefSetting(var Key: WideString; var Setting: WideString); safecall;
procedure SetIdle; safecall;
function ReadCardCollectPin(const PromptLine1: WideString; const PromptLine2: WideString): WideString; safecall;
function LoadSessionKey(const Key: WideString; boolEncrypted: WordBool): WideString; safecall;
function LoadEncWorkingKey(const WorkingKeyNum: WideString; const EncryptedKey: WideString): WideString; safecall;
function GetKeyCheckVal(var KeyNum: WideString): WideString; safecall;
procedure DisplayMessage(var Message: WideString); safecall;
function IntPinCommand(CommandParam: OleVariant; var ReturnData: WordBool): WideString; safecall;
function Get_LastErrorString: WideString; safecall;
procedure Set_LastErrorString(const Param1: WideString); safecall;
function CalcCVC(const Block1: WideString; const Block2: WideString; const KeyA: WideString;
const KeyB: WideString): WideString; safecall;
function CalcIdentikey(const BIN: WideString; const PVNSize: WideString;
const PVNType: WideString; const ValDisp: WideString;
const ValLen: WideString; const AcctNum: WideString): WideString; safecall;
function CalcPVV(const KeyA: WideString; const KeyB: WideString; const PVVLen: WideString;
const PVKI: WideString; const Data: WideString): WideString; safecall;
function CalcEPIN(const KeyNum: WideString; const AccountNum: WideString;
const Amount: WideString): OleVariant; safecall;
function Get_DecTab: WideString; safecall;
procedure Set_DecTab(const Param1: WideString); safecall;
function CalcOffset(const KeyNum: WideString; const ValData: WideString; OffsetLen: Smallint): WideString; safecall;
function PinVerify(const KeyNum: WideString; const ValData: WideString; const Offset: WideString): WordBool; safecall;
function SetPinLen(PinLen: Smallint): Smallint; safecall;
function Get_StickyPIN: WordBool; safecall;
procedure Set_StickyPIN(Param1: WordBool); safecall;
function CalcNatPIN(const KeyNum: WideString; const ValData: WideString; OffsetLen: Smallint): WideString; safecall;
function Get_DoublePINEntry: WordBool; safecall;
procedure Set_DoublePINEntry(Param1: WordBool); safecall;
function ActivateIntellipin(bTrueFalse: WordBool): WordBool; safecall;
function Get_KSNE: WideString; safecall;
procedure Set_KSNE(const Param1: WideString); safecall;
function IntellipinSwitchVal(const SwitchNum: WideString; const Data: WideString): WideString; safecall;
function Get_KeySerialNumber: WideString; safecall;
procedure Set_KeySerialNumber(const Param1: WideString); safecall;
function Get_TimeOut: Smallint; safecall;
procedure Set_TimeOut(Param1: Smallint); safecall;
procedure About; safecall;
function Encrypt(const KeyNum: WideString; const ValData: WideString): WideString; safecall;
function LoadMasterKey(const Key: WideString): WideString; safecall;
function DeleteAllKeys: WideString; safecall;
function DeleteWorkingKeys: WideString; safecall;
function CalcPPED(const SN: WideString; const RV: WideString; const PPEDKey: WideString): WideString; safecall;
function PINBridgeNewOffset(const OldValidationData: WideString;
const NewValidationData: WideString; const Offset: WideString;
const OldKey: WideString; const NewKey: WideString;
const OldDecTab: WideString; const NewDecTab: WideString;
PinLen: Smallint): WideString; safecall;
function PINBridgeNewPIN(const OldValidationData: WideString;
const NewValidationData: WideString; const Offset: WideString;
const OldKey: WideString; const NewKey: WideString;
const OldDecTab: WideString; const NewDecTab: WideString;
PinLen: Smallint): WideString; safecall;
function SetPIN(const PIN: WideString): WideString; safecall;
function Get_PortOPen: WordBool; safecall;
procedure Set_PortOPen(Param1: WordBool); safecall;
function Get_MICRData: WideString; safecall;
procedure Set_MICRData(const Param1: WideString); safecall;
function ClearBuffer: Smallint; safecall;
function MICRCommand(const strCommand: WideString; var BReturnData: OleVariant): WideString; safecall;
function MICRVersion: WideString; safecall;
function MICRReset: WideString; safecall;
function MICRFormatShow: WideString; safecall;
function MICRFormatChange(const strFormat: WideString): WideString; safecall;
function MICRSaveSettings: WideString; safecall;
function Get_MICRTimeOut: Single; safecall;
procedure Set_MICRTimeOut(Param1: Single); safecall;
function Get_EnableIntelliPINMSR: WordBool; safecall;
procedure Set_EnableIntelliPINMSR(Param1: WordBool); safecall;
function Get_EnableMICRMSR: WordBool; safecall;
procedure Set_EnableMICRMSR(Param1: WordBool); safecall;
function Get_EnableMICR: WordBool; safecall;
procedure Set_EnableMICR(Param1: WordBool); safecall;
function Get_DSRHolding: WordBool; safecall;
function Get_MICRSDAE: WordBool; safecall;
procedure Set_MICRSDAE(Param1: WordBool); safecall;
function Get_MICRSSAD: WordBool; safecall;
procedure Set_MICRSSAD(Param1: WordBool); safecall;
function Get_MICRCMC7: WordBool; safecall;
procedure Set_MICRCMC7(Param1: WordBool); safecall;
function MICRLED(const strLEDColor: WideString): WideString; safecall;
function ReadCard(var Prompt: WideString): WideString; safecall;
function Get_BufferDelay: Single; safecall;
procedure Set_BufferDelay(Param1: Single); safecall;
function Get_Retrys: Smallint; safecall;
procedure Set_Retrys(Param1: Smallint); safecall;
function OpenPort(lpbPortOpenStatus: WordBool): Integer; safecall;
function DetectMTUSB(const ProductID: WideString; IndexID: Integer): Integer; safecall;
property CommPort: Smallint read Get_CommPort write Set_CommPort;
property Settings: WideString read Get_Settings write Set_Settings;
property CardData: WideString read Get_CardData write Set_CardData;
property LastErrorString: WideString read Get_LastErrorString write Set_LastErrorString;
property DecTab: WideString read Get_DecTab write Set_DecTab;
property StickyPIN: WordBool read Get_StickyPIN write Set_StickyPIN;
property DoublePINEntry: WordBool read Get_DoublePINEntry write Set_DoublePINEntry;
property KSNE: WideString read Get_KSNE write Set_KSNE;
property KeySerialNumber: WideString read Get_KeySerialNumber write Set_KeySerialNumber;
property TimeOut: Smallint read Get_TimeOut write Set_TimeOut;
property PortOPen: WordBool read Get_PortOPen write Set_PortOPen;
property MICRData: WideString read Get_MICRData write Set_MICRData;
property MICRTimeOut: Single read Get_MICRTimeOut write Set_MICRTimeOut;
property EnableIntelliPINMSR: WordBool read Get_EnableIntelliPINMSR write Set_EnableIntelliPINMSR;
property EnableMICRMSR: WordBool read Get_EnableMICRMSR write Set_EnableMICRMSR;
property EnableMICR: WordBool read Get_EnableMICR write Set_EnableMICR;
property DSRHolding: WordBool read Get_DSRHolding;
property MICRSDAE: WordBool read Get_MICRSDAE write Set_MICRSDAE;
property MICRSSAD: WordBool read Get_MICRSSAD write Set_MICRSSAD;
property MICRCMC7: WordBool read Get_MICRCMC7 write Set_MICRCMC7;
property BufferDelay: Single read Get_BufferDelay write Set_BufferDelay;
property Retrys: Smallint read Get_Retrys write Set_Retrys;
end;
// *********************************************************************//
// DispIntf: _MICRIntelliPINDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {0372196D-591A-4035-998E-70AA496470E2}
// *********************************************************************//
_MICRIntelliPINDisp = dispinterface
['{0372196D-591A-4035-998E-70AA496470E2}']
property CommPort: Smallint dispid 1745027091;
property Settings: WideString dispid 1745027090;
property CardData: WideString dispid 1745027089;
function GetTrack(var TrackNum: Smallint; const StringToSearch: WideString): WideString; dispid 1610809369;
function GetFName(const StringToSearch: WideString): WideString; dispid 1610809370;
function GetLName(const StringToSearch: WideString): WideString; dispid 1610809371;
function FindElement(const StringToSearch: WideString; TrackNum: Smallint;
const RefChar: WideString; Displacement: Smallint;
const NumDigits: WideString; var DirectionBack: OleVariant): WideString; dispid 1610809372;
function GetDefSetting(const Key: WideString; const Default: WideString): WideString; dispid 1610809373;
procedure SaveDefSetting(var Key: WideString; var Setting: WideString); dispid 1610809374;
procedure SetIdle; dispid 1610809375;
function ReadCardCollectPin(const PromptLine1: WideString; const PromptLine2: WideString): WideString; dispid 1610809376;
function LoadSessionKey(const Key: WideString; boolEncrypted: WordBool): WideString; dispid 1610809377;
function LoadEncWorkingKey(const WorkingKeyNum: WideString; const EncryptedKey: WideString): WideString; dispid 1610809378;
function GetKeyCheckVal(var KeyNum: WideString): WideString; dispid 1610809379;
procedure DisplayMessage(var Message: WideString); dispid 1610809380;
function IntPinCommand(CommandParam: OleVariant; var ReturnData: WordBool): WideString; dispid 1610809381;
property LastErrorString: WideString dispid 1745027088;
function CalcCVC(const Block1: WideString; const Block2: WideString; const KeyA: WideString;
const KeyB: WideString): WideString; dispid 1610809382;
function CalcIdentikey(const BIN: WideString; const PVNSize: WideString;
const PVNType: WideString; const ValDisp: WideString;
const ValLen: WideString; const AcctNum: WideString): WideString; dispid 1610809383;
function CalcPVV(const KeyA: WideString; const KeyB: WideString; const PVVLen: WideString;
const PVKI: WideString; const Data: WideString): WideString; dispid 1610809384;
function CalcEPIN(const KeyNum: WideString; const AccountNum: WideString;
const Amount: WideString): OleVariant; dispid 1610809385;
property DecTab: WideString dispid 1745027087;
function CalcOffset(const KeyNum: WideString; const ValData: WideString; OffsetLen: Smallint): WideString; dispid 1610809386;
function PinVerify(const KeyNum: WideString; const ValData: WideString; const Offset: WideString): WordBool; dispid 1610809387;
function SetPinLen(PinLen: Smallint): Smallint; dispid 1610809388;
property StickyPIN: WordBool dispid 1745027086;
function CalcNatPIN(const KeyNum: WideString; const ValData: WideString; OffsetLen: Smallint): WideString; dispid 1610809389;
property DoublePINEntry: WordBool dispid 1745027085;
function ActivateIntellipin(bTrueFalse: WordBool): WordBool; dispid 1610809390;
property KSNE: WideString dispid 1745027084;
function IntellipinSwitchVal(const SwitchNum: WideString; const Data: WideString): WideString; dispid 1610809391;
property KeySerialNumber: WideString dispid 1745027083;
property TimeOut: Smallint dispid 1745027082;
procedure About; dispid 1610809392;
function Encrypt(const KeyNum: WideString; const ValData: WideString): WideString; dispid 1610809393;
function LoadMasterKey(const Key: WideString): WideString; dispid 1610809394;
function DeleteAllKeys: WideString; dispid 1610809395;
function DeleteWorkingKeys: WideString; dispid 1610809396;
function CalcPPED(const SN: WideString; const RV: WideString; const PPEDKey: WideString): WideString; dispid 1610809397;
function PINBridgeNewOffset(const OldValidationData: WideString;
const NewValidationData: WideString; const Offset: WideString;
const OldKey: WideString; const NewKey: WideString;
const OldDecTab: WideString; const NewDecTab: WideString;
PinLen: Smallint): WideString; dispid 1610809400;
function PINBridgeNewPIN(const OldValidationData: WideString;
const NewValidationData: WideString; const Offset: WideString;
const OldKey: WideString; const NewKey: WideString;
const OldDecTab: WideString; const NewDecTab: WideString;
PinLen: Smallint): WideString; dispid 1610809401;
function SetPIN(const PIN: WideString): WideString; dispid 1610809402;
property PortOPen: WordBool dispid 1745027081;
property MICRData: WideString dispid 1745027080;
function ClearBuffer: Smallint; dispid 1610809403;
function MICRCommand(const strCommand: WideString; var BReturnData: OleVariant): WideString; dispid 1610809404;
function MICRVersion: WideString; dispid 1610809405;
function MICRReset: WideString; dispid 1610809406;
function MICRFormatShow: WideString; dispid 1610809407;
function MICRFormatChange(const strFormat: WideString): WideString; dispid 1610809408;
function MICRSaveSettings: WideString; dispid 1610809409;
property MICRTimeOut: Single dispid 1745027079;
property EnableIntelliPINMSR: WordBool dispid 1745027078;
property EnableMICRMSR: WordBool dispid 1745027077;
property EnableMICR: WordBool dispid 1745027076;
property DSRHolding: WordBool readonly dispid 1745027075;
property MICRSDAE: WordBool dispid 1745027074;
property MICRSSAD: WordBool dispid 1745027073;
property MICRCMC7: WordBool dispid 1745027072;
function MICRLED(const strLEDColor: WideString): WideString; dispid 1610809410;
function ReadCard(var Prompt: WideString): WideString; dispid 1610809411;
property BufferDelay: Single dispid 1745027140;
property Retrys: Smallint dispid 1745027141;
function OpenPort(lpbPortOpenStatus: WordBool): Integer; dispid 1610809421;
function DetectMTUSB(const ProductID: WideString; IndexID: Integer): Integer; dispid 1610809422;
end;
// *********************************************************************//
// DispIntf: __MICRIntelliPIN
// Flags: (4240) Hidden NonExtensible Dispatchable
// GUID: {C43E0A7B-4BC2-421D-93AC-2411BDA84D4D}
// *********************************************************************//
__MICRIntelliPIN = dispinterface
['{C43E0A7B-4BC2-421D-93AC-2411BDA84D4D}']
procedure IntelliPINCardDataChanged; dispid 1;
procedure IntelliPINCardDataError(const StatusCode: WideString); dispid 4;
procedure MICRDataChanged; dispid 2;
procedure MICRCardDataChanged; dispid 3;
procedure ClearPressed; dispid 5;
end;
implementation
uses ComObj;
end.