I am trying to call a COM object (created using Dyalog APL) from VF using VF 6.6C. I get an unresolved external on the link. Following is code generated by Module Wizard:
!Initialize the Compass COM server
LOGICAL(2) FUNCTION CompassServerDisp_StartServer($OBJECT, $STATUS)
!DEC$ ATTRIBUTES DLLEXPORT:: CompassServerDisp_StartServer
IMPLICIT NONE
INTEGER(INT_PTR_KIND()), INTENT(IN):: $OBJECT ! Object Pointer
!DEC$ ATTRIBUTES VALUE:: $OBJECT
INTEGER(4), INTENT(OUT), OPTIONAL:: $STATUS ! Method status
!DEC$ ATTRIBUTES REFERENCE:: $STATUS
LOGICAL(2), VOLATILE :: $RETURN
INTEGER(4) $$STATUS
INTEGER(INT_PTR_KIND()) invokeargs
invokeargs = AUTOALLOCATEINVOKEARGS()
CALL AUTOADDARG(invokeargs, '$RETURN', $RETURN)
$$STATUS = AUTOINVOKE($OBJECT, 9, invokeargs)
IF (PRESENT($STATUS)) $STATUS = $$STATUS
CompassServerDisp_StartServer = $RETURN
CALL AUTODEALLOCATEINVOKEARGS (invokeargs)
END FUNCTION CompassServerDisp_StartServer
Following is code:
CALL COMCREATEOBJECT ("DYALOG.CompassServer", Compass, status)
IRET = CompassServerDisp_StartServer(Compass, status)
The COMCREATEOBJECT starts the server okay. When I add the second call it fails to link with following:
I have tried severaloptions like mutli-threading etc.
Any ideas?
