请问： tlb 档该如何注册

[fatcoder]

我用regsvr32 aaa.tlb
出错，说不能注册这个类型

[fatcoder]

up

[fatcoder]

写了一个Active exe文件,需要远程调用,
因此生成了一个.TLB文件,
但在客户端用regsvr32 注册时,
却出现了不支持的注册类型的错误.

请高手指点,该如何解决,

[bbe]

'vbAccelerator vbRegTypeLib
---------------------------------------------------------------


Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Enum eSYSKIND
SYS_WIN16 = 0&
SYS_WIN32 = 1&
SYS_MAC = 2&
End Enum

Private Declare Function LoadTypeLib Lib "oleaut32.dll" ( _
pFileName As Byte, pptlib As Object) As Long
Private Declare Function RegisterTypeLib Lib "oleaut32.dll" ( _
ByVal ptlib As Object, szFullPath As Byte, _
szHelpFile As Byte) As Long
Private Declare Function UnRegisterTypeLib Lib "oleaut32.dll" ( _
libID As GUID, _
ByVal wVerMajor As Integer, _
ByVal wVerMinor As Integer, _
ByVal lCID As Long, _
ByVal tSysKind As eSYSKIND _
) As Long

Public Function RegTypelib(sLib As String, ByVal bState As Boolean) As Long
Dim suLib() As Byte
Dim errOK As Long
Dim tlb As Object
If bState Then
' Basic automatically translates strings to Unicode Byte arrays
' but doesn't null-terminate, so you must do it yourself
suLib = sLib & vbNullChar
' Pass first byte of array
errOK = LoadTypeLib(suLib(0), tlb)
If errOK = 0 Then
errOK = RegisterTypeLib(tlb, suLib(0), 0)
End If
RegTypelib = errOK

End If

End Function

Public Function UIRegisterTypeLib(ByVal sLib As String, ByVal bState As Boolean, ByVal bShowMessage As Boolean) As Boolean
Dim errNo As Long
Dim sPre As String

errNo = RegTypelib(sLib, bState)
If bShowMessage Then
If bState Then
sPre = "Register Type Library "
Else
sPre = "Unregister Type Library "
End If
If errNo = 0 Then
MsgBox sPre & sLib & " succeeded.", vbInformation
Else
MsgBox sPre & sLib & " failed: the error returned was " & Hex$(errNo), vbCritical
End If
End If
UIRegisterTypeLib = (errNo = 0)
End Function

[fatcoder]

up一下

[guanchen]

up