Trying to write a COM accessible DLL

[Terry Olsen]

Following the instructions here:

http://www.csharpfriends.com/Articles/getArticle.aspx?articleID=113

The following is my ClassLibrary code:

Imports System

Namespace Test

Public Class Test2

Public Sub Test3()
End Sub

Private outMxRecords As String()

Public ReadOnly Property MxRecords() As String()
Get
Return outMxRecords
End Get
End Property

Public Sub GetMxRecords(By Val Domain As String)
outMxRecords = "test1.test2".S plit(".")
End Sub

End Class

End Namespace

I build the DLL, copy it to the C:\WINNT\System 32 directory, then run
REGASM on it, it tells me "Types Registered Successfully"

The following is my VBScript code:

dim oDLL
set oDLL = Createobject("T est.Test2")
if err.number<>0 then
msgbox "ERROR " & err.number & " opening DLL"
else
msgbox "Success"
end if

When I run the script, I get the following error:

ActiveX component can't create object: 'Test.Test2'

Error code is 800A01AD

I can't see anything wrong with this. Hopefully someone here can help me
out.

*** Sent via Developersdex http://www.developersdex.com ***

[Michel Posseth [MCP]]

RE: Trying to write a COM accessible DLL

well i see already one thingy you missed

A com creatable class must have a parameterless public sub new

here is an example i once showed in this newsgroup :

http://groups.google.com/group/microsoft.public.dotnet.languages.vb/browse_thread/thread/b9974554b8d68a52/ca996d74d250974e?lnk=st&q=michel+posseth+COM+VB.Net&rnum=28#ca996d74d250974e

"csharpfrie nds" you could have known this wouldn`t work in VB ;-)


regards

Michel Posseth [MCP]


"Terry Olsen" wrote:

Following the instructions here:

http://www.csharpfriends.com/Articles/getArticle.aspx?articleID=113

>
The following is my ClassLibrary code:
>
Imports System
>
Namespace Test
>
Public Class Test2
>
Public Sub Test3()
End Sub
>
Private outMxRecords As String()
>
Public ReadOnly Property MxRecords() As String()
Get
Return outMxRecords
End Get
End Property
>
Public Sub GetMxRecords(By Val Domain As String)
outMxRecords = "test1.test2".S plit(".")
End Sub
>
End Class
>
End Namespace
>
I build the DLL, copy it to the C:\WINNT\System 32 directory, then run
REGASM on it, it tells me "Types Registered Successfully"
>
The following is my VBScript code:
>
dim oDLL
set oDLL = Createobject("T est.Test2")
if err.number<>0 then
msgbox "ERROR " & err.number & " opening DLL"
else
msgbox "Success"
end if
>
When I run the script, I get the following error:
>
ActiveX component can't create object: 'Test.Test2'
>
Error code is 800A01AD
>
I can't see anything wrong with this. Hopefully someone here can help me
out.
>
*** Sent via Developersdex http://www.developersdex.com ***
>