OLE2.CREATE_OBJ problems on client side (handle return null)

From: Jonathan <gouletjon_at_yahoo.com>
Date: Wed, 06 Feb 2002 18:44:54 -0500
Message-ID: <8vf36u8lsthjhpb31t5cqi9fapjtd75g8m_at_4ax.com>


Hi,

I have a little problem with a small part of my code. When i run this code on the IAS Server everything goes as planned (the applet is running very well and i dont get a "0" from the handle.) but when i try to run it on the client side i get a null result in my handle from Forms runtime.

I really dont know what might be the problem. If anyone could help me, it would be greatly appreciate. I paste the code below this email.

Jonathan
please reply at this message at gouletjo_at_videotron.ca

PACKAGE BODY WOKSP IS
--

  • Nom de l'OLE Automatisation pour la gestion du context
    --
    C_OBJ_NAME CONSTANT varchar2(23) := 'DQSContext.DQSContext.1';

--

  • Constante pour les opérations à faire sur les WorksSpace
    --
    C_LOAD_WORKS_FUNCT CONSTANT varchar2(12) := 'loadContext2'; C_SAVE_WORKS_FUNCT CONSTANT varchar2(12) := 'saveContext2'; C_ERASE_WORKS_FUNCT CONSTANT varchar2(14) := 'eraseWorkspace'; C_CREAT_WORKS_FUNCT CONSTANT varchar2(15) := 'createWorkspace'; C_ATACH_WORKS_FUNCT CONSTANT varchar2(15) := 'attachWorkspace'; C_DETAC_WORKS_FUNCT CONSTANT varchar2(15) := 'detachWorkspace'; C_GET_VALUE_FUNCT CONSTANT varchar2(9) := 'getValue2'; C_PUT_VALUE_FUNCT CONSTANT varchar2(8) := 'putValue'; C_ERASE_VALUE_FUNCT CONSTANT varchar2(10) := 'eraseValue'; C_GET_EROR_FUNCT CONSTANT varchar2(16) := 'getLastErrorCode'; C_LOCK_OBJ_FUNCT CONSTANT varchar2(10) := 'lockServer'; C_UNLOC_OBJ_FUNCT CONSTANT varchar2(12) := 'unlockServer'; C_SHOW_INTERNAL CONSTANT varchar2(17) := 'showInternalState'; C_ADD_TO_SYSTEM_TRAY CONSTANT varchar2(17) := 'addSystemTrayIcon'; -- (§19981126-1) C_REMOVE_FROM_SYSTEM_TRAY CONSTANT varchar2(20) := 'removeSystemTrayIcon'; -- (§19981126-1)
--
////////////\\\\\\\\\\\
-- ------------------------------------------------------------------<
GESTION DES INSTANCES |
--
\\\\\\\\\\\\///////////
-- Creer une instance OLE2 de DQSContext
FUNCTION o_Creat_Insta(P_vcDescr varchar2 default '<null>')
         RETURN  OLE2.OBJ_TYPE  IS

   oInsta   OLE2.OBJ_TYPE;

BEGIN
   DQS_Trace('WOKSP.o_Creat_Insta', P_vcDescr);


-- Inscrire le paramètre dans le contexte...
oInsta := OLE2.CREATE_OBJ( C_OBJ_NAME );
-- l'objet n'existe pas, on ne peut l'obtenir!
if oInsta = C_NULL_OBJECT then
-- §19981118-1
-- Msg.Displ_Systm( 'DQS.100020', True ); message( 'Initialisation de l''objet de contexte en problème. Cause probable: non installé sur le poste. Veuillez contacter le responsable.' ); EROR.Raise_Eror( 'Initialisation de l''objet de contexte en problème. Cause probable: non installé sur le poste. Veuillez contacter le responsable.' ); exit_form; end if; RETURN oInsta; END;
Received on Thu Feb 07 2002 - 00:44:54 CET

Original text of this message