怎么调用
__MicrImage = dispinterface
['{991313A3-D27E-45A1-97F2-3420D1528330}']
procedure MicrDataReceived; dispid 1;
end;里的MicrDataReceived函数?我试过CreateComObject(‘MTMicrImage.MicrImage’) as __MicrImage不行,有人能给点建议的吗?谢谢unit MTMicrImage_TLB;// ************************************************************************ //
// Type Lib: C:\Program Files\MicrImage\MTMicrImage.ocx (1)
// LIBID: {9B698AE6-8CE3-4E8E-A0D9-717CF3CF06DA}
// LCID: 0
// Helpfile:
// HelpString: MagTek ActiveX Comp For Micr Image Device
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interfaceuses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
const
// TypeLibrary Major and minor versions
MTMicrImageMajorVersion = 1;
MTMicrImageMinorVersion = 0; LIBID_MTMicrImage: TGUID = '{9B698AE6-8CE3-4E8E-A0D9-717CF3CF06DA}'; IID__MicrImage: TGUID = '{7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}';
DIID___MicrImage: TGUID = '{991313A3-D27E-45A1-97F2-3420D1528330}';
CLASS_MicrImage: TGUID = '{9E8EBAA8-573C-45D2-A64C-DD93489744DE}';
type// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
_MicrImage = interface;
_MicrImageDisp = dispinterface;
__MicrImage = dispinterface;// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
MicrImage = _MicrImage;
// *********************************************************************//
// Interface: _MicrImage
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}
// *********************************************************************//
_MicrImage = interface(IDispatch)
['{7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}'] function Get_CommPort: Smallint; safecall;
procedure Set_CommPort(Param1: Smallint); safecall;
function Get_Settings: WideString; safecall;
procedure Set_Settings(const Param1: WideString); safecall;
function GetTrack(var TrackNum: Smallint): WideString; safecall;
function GetFName: WideString; safecall;
function GetLName: WideString; safecall;
function FindElement(TrackNum: Smallint; const RefChar: WideString; Displacement: Smallint;
const NumDigits: WideString; var DirectionBack: OleVariant): WideString; safecall;
function GetDefSetting(const Key: WideString; var Default: OleVariant): WideString; safecall;
procedure SaveDefSetting(const Key: WideString; const Setting: 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;
procedure About; safecall;
function MicrCommand(const strCommand: WideString; var BReturnData: OleVariant): WideString; safecall;
function StoreImage(var strTag: OleVariant): WideString; safecall;
function FileMemoryStatus: WideString; safecall;
function FileMemoryErase: WideString; safecall;
function FileMemoryResetPointer: WideString; safecall;
function AddTag(const strTag: WideString): WideString; safecall;
function Version: WideString; safecall;
function Reset: WideString; safecall;
function FormatShow: WideString; safecall;
function FormatChange(const strFormat: WideString): WideString; safecall;
function Save: WideString; safecall;
function Get_MicrTimeOut: Single; safecall;
procedure Set_MicrTimeOut(Param1: Single); safecall;
function Get_DSRHolding: WordBool; safecall;
function GetTiffTagByNumber(var FileToSearch: WideString; TagNum: Integer; IFDNumber: Integer): WideString; safecall;
function EnumTiffTags(var FileToSearch: WideString; IFDNumber: Integer): OleVariant; safecall;
procedure GetTagData(var TagIndex: Integer; var TagValue: Integer; var TagName: WideString;
var TagDesc: WideString); safecall;
function GetTiffTagNumByIndex(var FileToSearch: WideString; IndexNum: Integer;
IFDNumber: Integer): Integer; safecall;
function TransmitCurrentImage(const ImgFileName: WideString; var StatusMsg: WideString;
var MTParams: OleVariant): Integer; safecall;
function SendNextImage(const ImgFileName: WideString; var StatusMsg: WideString;
var MTParams: OleVariant): Integer; safecall;
property CommPort: Smallint read Get_CommPort write Set_CommPort;
property Settings: WideString read Get_Settings write Set_Settings;
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 DSRHolding: WordBool read Get_DSRHolding;
end;// *********************************************************************//
// DispIntf: _MicrImageDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}
// *********************************************************************//
_MicrImageDisp = dispinterface
['{7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}']
//deleted....
end;// *********************************************************************//
// DispIntf: __MicrImage
// Flags: (4240) Hidden NonExtensible Dispatchable
// GUID: {991313A3-D27E-45A1-97F2-3420D1528330}
// *********************************************************************//
__MicrImage = dispinterface
['{991313A3-D27E-45A1-97F2-3420D1528330}']
procedure MicrDataReceived; dispid 1;
end;implementationuses ComObj;end.
__MicrImage = dispinterface
['{991313A3-D27E-45A1-97F2-3420D1528330}']
procedure MicrDataReceived; dispid 1;
end;里的MicrDataReceived函数?我试过CreateComObject(‘MTMicrImage.MicrImage’) as __MicrImage不行,有人能给点建议的吗?谢谢unit MTMicrImage_TLB;// ************************************************************************ //
// Type Lib: C:\Program Files\MicrImage\MTMicrImage.ocx (1)
// LIBID: {9B698AE6-8CE3-4E8E-A0D9-717CF3CF06DA}
// LCID: 0
// Helpfile:
// HelpString: MagTek ActiveX Comp For Micr Image Device
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interfaceuses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
const
// TypeLibrary Major and minor versions
MTMicrImageMajorVersion = 1;
MTMicrImageMinorVersion = 0; LIBID_MTMicrImage: TGUID = '{9B698AE6-8CE3-4E8E-A0D9-717CF3CF06DA}'; IID__MicrImage: TGUID = '{7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}';
DIID___MicrImage: TGUID = '{991313A3-D27E-45A1-97F2-3420D1528330}';
CLASS_MicrImage: TGUID = '{9E8EBAA8-573C-45D2-A64C-DD93489744DE}';
type// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
_MicrImage = interface;
_MicrImageDisp = dispinterface;
__MicrImage = dispinterface;// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
MicrImage = _MicrImage;
// *********************************************************************//
// Interface: _MicrImage
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}
// *********************************************************************//
_MicrImage = interface(IDispatch)
['{7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}'] function Get_CommPort: Smallint; safecall;
procedure Set_CommPort(Param1: Smallint); safecall;
function Get_Settings: WideString; safecall;
procedure Set_Settings(const Param1: WideString); safecall;
function GetTrack(var TrackNum: Smallint): WideString; safecall;
function GetFName: WideString; safecall;
function GetLName: WideString; safecall;
function FindElement(TrackNum: Smallint; const RefChar: WideString; Displacement: Smallint;
const NumDigits: WideString; var DirectionBack: OleVariant): WideString; safecall;
function GetDefSetting(const Key: WideString; var Default: OleVariant): WideString; safecall;
procedure SaveDefSetting(const Key: WideString; const Setting: 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;
procedure About; safecall;
function MicrCommand(const strCommand: WideString; var BReturnData: OleVariant): WideString; safecall;
function StoreImage(var strTag: OleVariant): WideString; safecall;
function FileMemoryStatus: WideString; safecall;
function FileMemoryErase: WideString; safecall;
function FileMemoryResetPointer: WideString; safecall;
function AddTag(const strTag: WideString): WideString; safecall;
function Version: WideString; safecall;
function Reset: WideString; safecall;
function FormatShow: WideString; safecall;
function FormatChange(const strFormat: WideString): WideString; safecall;
function Save: WideString; safecall;
function Get_MicrTimeOut: Single; safecall;
procedure Set_MicrTimeOut(Param1: Single); safecall;
function Get_DSRHolding: WordBool; safecall;
function GetTiffTagByNumber(var FileToSearch: WideString; TagNum: Integer; IFDNumber: Integer): WideString; safecall;
function EnumTiffTags(var FileToSearch: WideString; IFDNumber: Integer): OleVariant; safecall;
procedure GetTagData(var TagIndex: Integer; var TagValue: Integer; var TagName: WideString;
var TagDesc: WideString); safecall;
function GetTiffTagNumByIndex(var FileToSearch: WideString; IndexNum: Integer;
IFDNumber: Integer): Integer; safecall;
function TransmitCurrentImage(const ImgFileName: WideString; var StatusMsg: WideString;
var MTParams: OleVariant): Integer; safecall;
function SendNextImage(const ImgFileName: WideString; var StatusMsg: WideString;
var MTParams: OleVariant): Integer; safecall;
property CommPort: Smallint read Get_CommPort write Set_CommPort;
property Settings: WideString read Get_Settings write Set_Settings;
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 DSRHolding: WordBool read Get_DSRHolding;
end;// *********************************************************************//
// DispIntf: _MicrImageDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}
// *********************************************************************//
_MicrImageDisp = dispinterface
['{7FF3C2BF-94AC-4E2A-B559-536C0072DEAA}']
//deleted....
end;// *********************************************************************//
// DispIntf: __MicrImage
// Flags: (4240) Hidden NonExtensible Dispatchable
// GUID: {991313A3-D27E-45A1-97F2-3420D1528330}
// *********************************************************************//
__MicrImage = dispinterface
['{991313A3-D27E-45A1-97F2-3420D1528330}']
procedure MicrDataReceived; dispid 1;
end;implementationuses ComObj;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货