KB193295 - How To Reference an MTS Context Object From a COM DLL

MORE INFORMATION

There are two objects that need to be instantiated and referenced by the Visual FoxPro custom COM DLL. The following statement creates the first object:

   oMTS=CREATEOBJECT("MTXAS.APPSERVER.1")

To create the reference to the current object's MTS Object Context use the following command:


   oMTSCont=oMTS.GetObjectContext()

The following sample is the custom COM server 'ComTest1'. When built into a COM DLL and placed in an MTS Package, you can run the following Client Code to test it.

   ******************Server Code************************
   DEFINE CLASS MTSTEST AS CUSTOM OLEPUBLIC
      oMTS=.NULL.
      oMTSCont=.NULL.
      FUNCTION GetContext
         THIS.oMTS = CREATEOBJECT("MTXAS.APPSERVER.1")
         IF TYPE('THIS.oMTS')='O' THEN
            THIS.oMTSCont=THIS.oMTS.GetObjectContext()
            IF TYPE('THIS.oMTSCont')#'O' THEN
               RETURN "oMTSCont FAILED"
            ENDIF
         ELSE
            RETURN "oMTS FAILED"
         ENDIF
         RETURN "oMTS & oMTSCont Succeeded"
      ENDFUNC
    ENDDEFINE
   *****************End Server Code**********************

   *****************Begin Client Code********************
   oX=CREATEOBJECT("ComTest1.MTSTest")
   Y=oX.getcontext()
   ? Y
   *****************End Client Code***********************

REFERENCES

How To Reference an MTS Context Object From a COM DLL

SUMMARY

MORE INFORMATION