[vb] interface pointers (voor MSN)

[rjsomeone]

Ik probeer wat te klooien met Add-Ins voor MSN messenger.

Uit de help:
Your IMessengerAddIn_GetFeature method would return a pointer to the IMessengerEmail interface that is exposed by your add-in component.

Ik heb dus:

code:

Implements IMessengerAddIn
Implements IMessengerEmail

Public Function IMessengerAddIn_GetFeature(ByVal bstrFeatureGuid As String) As Variant
IMessengerAddIn_GetFeature = IMessengerEmail
End Function

Als ik het zo gebruik, dan gebeurt er niks.. wat doe ik verkeerd?

edit: m.a.w. die pointer naar de IMessengerEmail werkt niet.. hoe moet ie dan wel?

[Crazy D]

IMessengerEmail is ook geen pointer
Probeer eens
IMessengerAddIn_GetFeature = Me

[rjsomeone]

Op donderdag 06 juni 2002 17:59 schreef Crazy_D het volgende:
IMessengerEmail is ook geen pointer
Probeer eens
IMessengerAddIn_GetFeature = Me

'k begrijp je niet helemaal..
= me? (edit: Geeft in vb de volgende error: "Object doesn't support this property or method")
IMessengerEmail is toch een interface? Waar je naar moet verwijzen met een pointer?

[Gerco]

Het is inderdaad een interface, maar hij vraagt om een pointer naar een object wat die interface ONDERSTEUND. In dit geval is dat dus "Me".

Probeer dit eens:

code:

Public Function IMessengerAddIn_GetFeature(ByVal bstrFeatureGuid As String) As Variant
Set IMessengerAddIn_GetFeature = Me
End Function

[rjsomeone]

Op donderdag 06 juni 2002 19:17 schreef Gerco het volgende:
Het is inderdaad een interface, maar hij vraagt om een pointer naar een object wat die interface ONDERSTEUND. In dit geval is dat dus "Me".

Probeer dit eens:

code:

Public Function IMessengerAddIn_GetFeature(ByVal bstrFeatureGuid As String) As Variant
Set IMessengerAddIn_GetFeature = Me
End Function

JEAH!
Het werkt!!!
Thanx Man!!

[rjsomeone]

In dezelfde categorie:

wat is het verschil tussen een 'object reference' en een 'object expression'.

geval 1:

code:

object.IsRegistered(bstrAddInCLSID as String) As Boolean

object
An object reference that resolves to the name of the IMessengerAddInManager interface.
oplossing:

code:

Private Addin As New MessengerAddInManager
Private Sub Command4_Click()
Adin.RegisterAddIn "Test", CLassCLSID
End Sub

geval 2:

code:

object.OnNewMessage(ByVal bstrFromText as String,ByVal bstrContext as String)

object
An object expression that resolves to the name of the Messenger object.
oplossing:
die weet ik dus niet!

code:

Private test As IMessengerEmailEvents (of 
Private test As Messenger)
Private Sub Command4_Click()
test.OnNewMessage "Test","test"
End Sub

In het 2e geval krijg ik de volgende foutmelding:
"Object variable or withblock variable not set".

[Gerco]

Misschien is OnNewMessage wel een Event?

In dat geval moet je de object variabele WithEvents declareren en dan kun je met die comboboxjes bovenaan je code de event procedures maken.

Anders weet ik het ooknie

[rjsomeone]

Op donderdag 06 juni 2002 22:56 schreef Gerco het volgende:
Misschien is OnNewMessage wel een Event?

In dat geval moet je de object variabele WithEvents declareren en dan kun je met die comboboxjes bovenaan je code de event procedures maken.

Anders weet ik het ooknie

Neey, het zijn juist geen events, maar methods. het lukt dus niet om ze aan te roepen. Het zijn events voor de messenger client, niet voor mijn addin. Daarom die rare namen.

Behalve dat als ik toch withevents toevoeg, krijg ik de volgende error:
"Object does not source automation events".

[rjsomeone]

*kick*..

heeft iemand een antwoord?

ff voor de duidelijkheid nog, alle problemen hebben te maken met AddIns voor msn messenger.
op
http://download.microsoft.com/download/windowsmessenger/Install/4.6/WIN98MeXP/EN-US/MessengerAddIn.exe
staat een helpfile met voorbeelden erin, daar komen de problemen ook van