金碟的K3Login.dll的使用,原来他提供的是vb代码(50分)

  • 主题发起人 myriverman
  • 开始时间
M

myriverman

Unregistered / Unconfirmed
GUEST, unregistred user!
VB代码如下:
Option Explicit
Private K3Login As Object '当前连接对象
Sub main()
On Error GoTo HERROR
Set K3Login = CreateObject("K3Login.ClsLogin")
If Not K3Login.CheckLogin Then Err.Raise 1000, , "登录不成功"

Dim frm As frmLookUp
Set frm = New frmLookUp
frm.Show vbModal
Unload frm
Set frm = Nothing
Set K3Login = Nothing
End
Exit Sub

HERROR:
MsgBox Err.Description
End
End Sub

我想在delphi中调用次K3Login.dll中的ClsLogin方法,来作为软件的登陆窗体,不知道代码如何写?请大侠们赐教
 
不知道怎么说你,我承认我是菜鸟,但你更菜。明显是com组件的方式,注册后直接倒入就可以用了。别说你不知道怎么用啊,自己看看以前的帖子。
 
呵呵,我是标准菜鸟
 
delphi红如何导入com呀?
 
顶部