Global objSession As k1aHostToolKit.HostSession
Sub SendCommand(sbuf As String)
'Clear KeyClear
If CONNECTAMADEUS Then _
objSession.SendSpecialKey keyClear
'Send IG Default Clear
If CONNECTAMADEUS Then _
objSession.Send "IG"
'Send TY When TYMODE
If CONNECTAMADEUS And TYMODE Then objSession.Send "TY"
在上面的代码中,k1aHostToolKit是一个dll 的文件名,hostsession 是个类名,在要翻写的DELPHI 代码中要引用 这个dll 文件,应该怎末声明,在什末地方声明. 请高手相助
Sub SendCommand(sbuf As String)
'Clear KeyClear
If CONNECTAMADEUS Then _
objSession.SendSpecialKey keyClear
'Send IG Default Clear
If CONNECTAMADEUS Then _
objSession.Send "IG"
'Send TY When TYMODE
If CONNECTAMADEUS And TYMODE Then objSession.Send "TY"
在上面的代码中,k1aHostToolKit是一个dll 的文件名,hostsession 是个类名,在要翻写的DELPHI 代码中要引用 这个dll 文件,应该怎末声明,在什末地方声明. 请高手相助
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货