GetOBject for my own DLL

[Andreex]

Helo everybody.. we have all seen the getObject function work on apps like excel and word. Now.. I want to use it for my own DLL. So far I created the DLL ActiveX. Then in another project I create an instance of that DLL. Then in a third project I use the getObject function to grab a reference of that DLL created in the second project... but it tells me it cannot create the activex....

what am I missing?
Thanks

[Cander]

hold on a few minutes..let me dig up the code.

[Andreex]

thanks!

[Cander]

put this code in every class that you need to use GetObject on in your dll and change VegaCOMM.clsSocket to yourprojectname.classname

That should do it.

' Declares needed to register object in the ROT
Private Const ACTIVEOBJECT_STRONG = 0
Private Const ACTIVEOBJECT_WEAK = 1
Private Declare Function CLSIDFromProgID Lib "ole32.dll" (ByVal ProgID As Long, rclsid As GUIDs) As Long
Private Declare Function CoDisconnectObject Lib "ole32.dll" (ByVal pUnk As IUnknown, pvReserved As Long) As Long
Private Declare Function RegisterActiveObject Lib "oleaut32.dll" (ByVal pUnk As IUnknown, rclsid As GUIDs, ByVal dwFlags As Long, pdwRegister As Long) As Long
Private Declare Function RevokeActiveObject Lib "oleaut32.dll" (ByVal dwRegister As Long, ByVal pvReserved As Long) As Long

Private OLEInstance As Long

Private Sub Class_Initialize()
Dim typGUID As GUIDs
Dim lp As Long

OLEInstance = 0
' This code is responsible for creating the entry in the rot
lp = CLSIDFromProgID(StrPtr("VegaCOMM.clsSocket"), typGUID)
If lp = 0 Then
    lp = RegisterActiveObject(Me, typGUID, ACTIVEOBJECT_WEAK, OLEInstance)
End If

End Sub


Private Sub Class_Terminate()
' Once we are done with the main program, lets clean up the rot
' by removing the entry for our ActiveX Server

If OLEInstance <> 0 Then
    RevokeActiveObject OLEInstance, 0
End If

CoDisconnectObject Me, 0

End Sub

[Andreex]

It sends me an error in the third line saying the data type hasent been defined....
do you knwo why?
I am looking for it...

[Cander]

oopss sorry forgot one part

Private Type GUIDs
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

[Andreex]

Thanks... it runs with no error.. but I still cant get the reference....
would it be too much to ask if you have an example?

Thanks

[Andreex]

wait.. I am such an idiot.. I havent replaces my class name...
ooppps

[Cander]

well there is really no example. beause all you have to do is

Dim myobj As Object
Set myobj = GetObject(,"yourproject.classname")

[Cander]

Originally posted by Andreex
wait.. I am such an idiot.. I havent replaces my class name...
ooppps

[Andreex]

it works better than bread and butter!!!

nice work man!

[Cander]

coolness..you are lucky. It took me 7 months to find that code.

[DanMarkoff]

I know this post is really old, but I'm trying to implement this in VB.net. Several of the items are no longer supported in VB.net. Has anyone done something similar in VB.net??

[westconn1]

you would probably be better to post a new thread in the .net forum,, with a link to this old thread
a moderator will probably do this for you

[Shaggy Hiker]

Actually, I think what would be best here is just to start the thread yourself and add a link to this thread if you feel it is appropriate. The question asked lacks enough information without this thread for it to stand on its own, so just moving it would result in a thread that required people to read this thread just to understand what was being asked. Further, this thread is so old that things have likely changed in the intervening 17 years.

So, start a new thread on the topic, it would be the best way to get an answer.

Also, I guess I should add that I'm not quite clear what it is that you want to implement. This thread could be read as talking about a plugin system, which would have a different, though straightforward implementation in .NET. On the other hand, the specifics of the question might have a different implementation.