Client_ole2.Last_exception

Hi ,
I am suddenly getting an exception when i use Client_ole2 for opening a document .
In the exception handling , I retur client_ole2.last_exception.
This is returning an Number "-2147221008" .
Using overloaded Last_exception , I get the message and message = Null.
does anyone know , how to give the correct error message to User.

Hello,
Check you /forms/server/formsweb.cfg file. Maybe you have the Webutil parameter set to:
WebUtilErrorMode=AlertFrancois

Similar Messages

CLIENT_OLE2.INVOKE_NUM WITH IN OUT PARAMETER

Hi all,
I'm using oracle 10g forms to call out an OCX file. I'm successful in calling the OCX but not in retrieving the output parameters from the ocx function.
Example function inside the ocx file:
function getNextNumber(PNum OUT String , statusString OUT String, statusCode OUT String) return Number
The function returns 0 if the execution is successful. I'm successflul in calling this function and hence getting the value "0" after execution but i'm not able to retrieve the OUTPUT values from the function.
SQL CODE:
DECLARE
IFAOBJ CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;
StatusVal VARCHAR2(4000) := '0';
PersonNumber VARCHAR2(4000) := '0';
StatusStr VARCHAR2(4000) := '0';
I NUMBER;
BEGIN
IFAOBJ := CLIENT_OLE2.CREATE_OBJ('IFA_API_NG.clsIFA_API_NG');
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, PersonNumber);
CLIENT_OLE2.ADD_ARG(args, StatusStr);
CLIENT_OLE2.ADD_ARG(args, StatusVal);
I := CLIENT_OLE2.INVOKE_NUM(IFAOBJ,'IFA_GetNextPersonNumber',args);
message('I='||I);message('I='||I);
--PersonNumber := CLIENT_OLE2.GET_CHAR_PROPERTY(args,'PERSONNUMBER');
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_OLE2.RELEASE_OBJ(IFAOBJ);
EXCEPTION
     WHEN CLIENT_OLE2.OLE_ERROR THEN
     statusVal := CLIENT_OLE2.LAST_EXCEPTION(statusStr);
     MESSAGE('FATAL... '||statusStr);
     MESSAGE('FATAL... '||statusStr);
     CLIENT_OLE2.RELEASE_OBJ(IFAOBJ);
     WHEN OTHERS THEN
          MESSAGE(SQLERRM);
     MESSAGE(SQLERRM);
     CLIENT_OLE2.RELEASE_OBJ(IFAOBJ);
END;

Hi Gurus
I know this is very old post.
but dose anybody know the answer.
thanks

Not able to write to Excel using Client_OLE2 and webutil

Hi
I am working on Windows 2000 Pro SP4 Oracle Forms Builder 10.1.2.0.2
I am using webutil to invoke Excel Application .
The following code invokes Excel application and saves in the path specified as Test_Excel and writes the "Test Data to be written" to R1C1 when I use OLE2.
But when I replace OLE2 with Client_OLE2 the Excel file is getting created but the data is not written to the cell.
PL/SQL :could not find program unit being called is the error.
Can anybody help me solve this issue ?
Thanks in advance.
FUNCTION WRITE_TO_EXCEL(
excel_file_name in varchar2, ---for eg.. C:\Test_Excel.xls
buf in varchar2 ) ----Test Data to be written
return boolean is
application CLIENT_OLE2.OBJ_TYPE;
workbooks CLIENT_OLE2.OBJ_TYPE;
workbook CLIENT_OLE2.OBJ_TYPE;
worksheets CLIENT_OLE2.OBJ_TYPE;
worksheet CLIENT_OLE2.OBJ_TYPE;
cell CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;
begin
application := CLIENT_OLE2.CREATE_OBJ ('Excel.Application');
CLIENT_OLE2.SET_PROPERTY(application, 'Visible', 'True');
workbooks := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
workbook := CLIENT_OLE2.Invoke_Obj(workbooks, 'Add');
worksheets := CLIENT_OLE2.Get_Obj_Property(workbook, 'Worksheets');
worksheet := CLIENT_OLE2.Invoke_Obj(worksheets,'Add');
args:=CLIENT_OLE2.create_arglist;
CLIENT_OLE2.add_arg(args,1);
CLIENT_OLE2.add_arg(args,1);
cell:=CLIENT_OLE2.get_obj_property(worksheet, 'Cells', args);
CLIENT_OLE2.destroy_arglist(args);
CLIENT_OLE2.set_property(cell,'Value', buf);
CLIENT_OLE2.release_obj(cell);
CLIENT_OLE2.Release_Obj(worksheet);
CLIENT_OLE2.Release_Obj(worksheets);
args := CLIENT_OLE2.Create_Arglist;
CLIENT_OLE2.Add_Arg(args,excel_file_name);
CLIENT_OLE2.Invoke(workbook, 'SaveAs', args);
CLIENT_OLE2.Destroy_Arglist(args);
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args,'Caption');
CLIENT_OLE2.INVOKE(application,'Run',args);
CLIENT_OLE2.destroy_arglist(args);
CLIENT_OLE2.Release_Obj(workbook);
CLIENT_OLE2.Release_Obj(workbooks);
CLIENT_OLE2.Invoke(application, 'Quit');
CLIENT_OLE2.Release_Obj(application);
return(TRUE);
exception
when others then
message (error_type||'-'||error_code||':'||error_text);
message (' ');
SET_APPLICATION_PROPERTY(CURSOR_STYLE,'default');
CLIENT_OLE2.RELEASE_OBJ(application);
CLIENT_OLE2.RELEASE_OBJ(workbooks);
CLIENT_OLE2.RELEASE_OBJ(workbook);
CLIENT_OLE2.release_obj(worksheet);
CLIENT_OLE2.release_obj(worksheets);
return(FALSE);
END;

What line is actually causing the error? Also, I assume you tested the exact same code which works when using straight OLE2 (and not the webutil client_ version)?
Regards
Grant Ronald
Oracle Product Management

How do I call a SAP RFC from an Oracle Form using webutils CLIENT_OLE2?

Hi guys,
Your help on this problem would be greatly appreciated.
We have an older forms 6i application which we are currently updating to 10g (which is a pain itself... but that's a different story.) which currently uses unssupported c++ routines to connect to the SAP system, we want to do away with this c++.
What I have so far is the following test code:
PROCEDURE cmd_summary
IS
o_sap_log client_ole2.obj_type;
o_sap_conn client_ole2.obj_type;
o_sap_rfcc client_ole2.obj_type;
-- o_sap_rfcx client_ole2.obj_type;
-- o_sap_rfc client_ole2.obj_type;
v_args ole2.list_type;
v_logon BOOLEAN := FALSE;
BEGIN
:block3.txt_result := 'TEST Started!';
--create logon control object
o_sap_log := client_ole2.create_obj ('SAP.logoncontrol.1');
--create the function object
o_sap_rfcc := client_ole2.create_obj ('SAP.Functions');
--create a new connection object
o_sap_conn := client_ole2.invoke_obj (o_sap_log, 'NewConnection');
--set the connection properties
client_ole2.set_property (o_sap_conn, 'System', caps$get_sys_param ('SAP_DST'));
client_ole2.set_property (o_sap_conn, 'MessageServer', caps$get_sys_param ('SAP_HST'));
client_ole2.set_property (o_sap_conn, 'GroupName', 'DEVELOP');
client_ole2.set_property (o_sap_conn, 'client', caps$get_sys_param ('SAP_CLT'));
client_ole2.set_property (o_sap_conn, 'SystemNumber', caps$get_sys_param ('SAP_SYN'));
client_ole2.set_property (o_sap_conn, 'User', caps$get_sys_param ('SAP_USR'));
client_ole2.set_property (o_sap_conn, 'Password', caps$get_sys_param ('SAP_PWD'));
client_ole2.set_property (o_sap_conn, 'language', caps$get_sys_param ('SAP_LNG'));
--set up the logon arguements
v_args := client_ole2.create_arglist;
client_ole2.add_arg (v_args, 1);
client_ole2.add_arg (v_args, TRUE);
--run the logon function
v_logon := client_ole2.get_bool_property (o_sap_conn, 'logon', v_args);
client_ole2.destroy_arglist (v_args);
IF v_logon
THEN
:block3.txt_result := :block3.txt_result || CHR (10) || 'LOGON Worked!!';
ELSE
:block3.txt_result := :block3.txt_result || CHR (10) || 'LOGON Failed!!';
END IF;
:block3.txt_result := :block3.txt_result || CHR (10) || 'TEST Ended!';
EXCEPTION
WHEN OTHERS
THEN
:block3.txt_result := :block3.txt_result || CHR (10) || SQLERRM (SQLCODE);
END cmd_summary;
NOTE: the get_sys_param functionis returning text from a table.
This seems to work okay, the logon command returning a TRUE. All good so far.
However, when I try to then use this connection for anything then I stumble and fall!
I've seen an example in VB where the SAP RFC object is "assigned" the connection object by simply stating:
Set oSAPrfc.Connection = oSAPconn
Where oSAPconn is setup in a similar way to my o_Sap_conn in the above example.
I have tried using the CLIENT_OLE2.SET_PROPERTY procedures but I don't think that's quite right.
I've tried using invoke, to try and "run" the method like:
v_args := CLIENT_OLE2.CREATE_ARGLIST;
client_ole2.add_arg_obj(v_args,o_sap_conn);
client_ole2.invoke(o_sap_rfcc,'Connection',v_args);
client_ole2.destroy_arglist(v_args);
but it fails.
I have also tried using the actual Connection function directly:
SAP_ISAPFUNCTIONS.connection(o_sap_rfcc, o_sap_conn);
But that just causes the Forms Server to crash... :?
Has anyone connected to SAP via Forms? I noticed one post on this forum which an example of some code using a SAPBAPI control but not WEBUTIL (Which I think I'd need to use because we are running 10g)
As a side note we are also looking into SAP Adapter as a possible "other" route but this too is getting very complicated... And I can't see a way of connecting a form to the Adpater anyway :(
Any advice would be very much appreciated.

Can anyone help?
Mike

WebUtil & Client_OLE2 - Urgent!

Hi!
I use Oracle9iASR2, Forms9i (Patch 9.2.0.3) and JInitiator 1.3.1.13!
I was following all webutil_manual.pdf and readme.html steps!
I have no problem with client_get_file_name or client_host calls, but I have a tedious problem when I'm trying to call Client_OLE2.create_obj('Excel.Application'), for instance.
Java Console shows:
Exception occurred during event dispatching:
java.lang.NoClassDefFoundError
     at oracle.forms.webutil.ole.OleFunctions.create_obj(OleFunctions.java:513)
     at oracle.forms.webutil.ole.OleFunctions.getProperty(OleFunctions.java:218)
     at oracle.forms.handler.UICommon.onGet(Unknown Source)
     at oracle.forms.engine.Runform.onGetHandler(Unknown Source)
     at oracle.forms.engine.Runform.processMessage(Unknown Source)
     at oracle.forms.engine.Runform.processSet(Unknown Source)
     at oracle.forms.engine.Runform.onMessageReal(Unknown Source)
     at oracle.forms.engine.Runform.onMessage(Unknown Source)
     at oracle.forms.engine.Runform.processEventEnd(Unknown Source)
     at oracle.ewt.lwAWT.LWComponent.redispatchEvent(Unknown Source)
     at oracle.ewt.lwAWT.LWComponent.processEvent(Unknown Source)
     at java.awt.Component.dispatchEventImpl(Unknown Source)
     at java.awt.Container.dispatchEventImpl(Unknown Source)
     at java.awt.Component.dispatchEvent(Unknown Source)
     at java.awt.LightweightDispatcher.retargetMouseEvent(Unknown Source)
     at java.awt.LightweightDispatcher.processMouseEvent(Unknown Source)
     at java.awt.LightweightDispatcher.dispatchEvent(Unknown Source)
     at java.awt.Container.dispatchEventImpl(Unknown Source)
     at java.awt.Window.dispatchEventImpl(Unknown Source)
     at java.awt.Component.dispatchEvent(Unknown Source)
     at java.awt.EventQueue.dispatchEvent(Unknown Source)
     at java.awt.EventDispatchThread.pumpOneEventForHierarchy(Unknown Source)
     at java.awt.EventDispatchThread.pumpEventsForHierarchy(Unknown Source)
     at java.awt.EventDispatchThread.pumpEvents(Unknown Source)
     at java.awt.EventDispatchThread.run(Unknown Source)
This is my classpath parameter in default.env file:
CLASSPATH=d:\Oracle9iAS2\jlib\importer.jar;d:\Oracle9iAS2\forms90\java;D:\Oracle9iAS2\jlib\debugger.jar;D:\Oracle9iAS2\jlib\ewt3.jar;D:\Oracle9iAS2\jlib\share.jar;D:\Oracle9iAS2\jlib\utj90.jar;d:\webutil\lib\webutil.jar;D:\Oracle9iAS2\jdk\jre\lib\rt.jar
Could someone help me, please?
Dejan

A machine of Oracle9iAS must be powerful, I guess! I have 512MB RAM, only, and a recommendation is 1GB at least. It works slowly, but that's only a test environment. I have strong servers in my company, so the most significant thing at the moment is that webutil concept works. That is the basic reason for migration from 6i, but not the only one. Now I need a library of properties for the word and excel invoking, for a complete settings of any document or worksheet. If someone has something similar, please send me! My address is [email protected] . Thank you in advance!

Error Handling in WebUtil CLIENT_OLE2.get_obj_property

Hello,
we have a problem with the error handling in WebUtil's CLIENT_OLE2.get_obj_property function. The WebUtil version is 1.0.2 and the problem can be reproduced on the 9iAS, 9iDS and 10gAS as well.
Problem description:
The get_obj_property function does not throw a PL/SQL exception when it is given an invalid object as first argument (i.e. an object handle to an application that has intermittently been closed by the user). Instead, the function returns a NULL value and the control flow of our application code continues as if the function had succeeded. So the problem is that the get_obj_property function neither throws an exception nor can the failure be caught by calling WEBUTIL_CORE.IsError as this returns that no error occurred.
Example:
PACKAGE BODY word IS
OBJ_HND CLIENT_OLE2.OBJ_TYPE := NULL;
mydocs CLIENT_ole2.obj_type;
-- Start Word97
PROCEDURE wordopen is
BEGIN
obj_hnd := null;
obj_hnd := CLIENT_OLE2.create_obj ('Word.Application');
CLIENT_OLE2.Set_property(obj_hnd,'Visible',1);
END;
PROCEDURE test is
BEGIN
IF obj_hnd IS NULL THEN
wordopen;
END IF;
BEGIN
mydocs := CLIENT_OLE2.get_obj_property(obj_hnd,'Documents');
EXCEPTION WHEN OTHERS THEN
-- Word has probably been closed by the user
-- so just start it again and retry...
wordopen;
mydocs := CLIENT_OLE2.get_obj_property(obj_hnd,'Documents');
END;
END;
END;
If the procedure test is called once then the Word application is started and the procedure performs some work. The procedure could be called several times on the same Word instance but fails in case the user closes the Word application because the procedure does not get an exception or error from WebUtil's get_obj_property function. Only a JACOB Java exception is logged in the Java console of the user's computer - the PL/SQL code has no way of knowing that an error has occurred.
Possible solution / patch for webutil.pll:
The webutil.pll can be patched to throw an exception if it is given an invalid object handle. In webutil.pll version 1.0.2 in get_object_property, line 1205, just add the condition "(v_javaHandle IS NULL) or " at the beginning of the if-statement in that line so that an OLE_ERROR will be raised if v_javaHandle is NULL:
if (v_javaHandle IS NULL) or (v_javaHandle = 0) or (v_javaHandle='') or (v_javaHandle=-1) then
raise OLE_ERROR;
end if;
Can you confirm the error and re-release a patched webutil.pll at a later time?
Regards,
Andreas Leidner
infoteam GmbH Berlin

Hi
It is mentioned in webutil doc that, you must regenerate webutil.pll before using it; otherwise you’ll encounter error ORA-06508 when running a form with the attached library.
Hope this helps...
Regards,
Amatu Allah

Bookmark through CLIENT_OLE2

Hello Seniors/Guru/experts
we have custom built oralce application (forms 11g).
Here is the detail:
we have word template(employee record.dot) store in database through blob. And each template have bookmark .i.e. "Emp name". We are able to call that stored .dot file which is stored in blob column/table via WEBUTIL . And we want to pass value in that template ((employee record.dot) for boommark name "Emp Name" through forms 11g.
We are able to open word and pass value through forms 11g but not in that template where bookmark is stored . so issue is :
1.how to pass value in that bookmark which is template (And template is in table blob column).
********"We are able to call that stored .dot file which is stored in blob column/table via WEBUTIL ." Here the code.
PROCEDURE Open_Doc
IS
-- Open a stored document --
LC$Cmd Varchar2(128) ; -- command to be run in Windows
LC$Nom Varchar2(100) ;
LC$Fic Varchar2(128);
LC$Path Varchar2(128);
LC$Sep Varchar2(1) ;
LN$But Pls_Integer ;
LB$Ok Boolean ;
FType VARCHAR2(20); -- File Type (Extension)
CType VARCHAR2(128); -- Command Type (in Windows)
-- Current Process ID --
ret WEBUTIL_HOST.PROCESS_ID ;
V_EMPID number(10);
cursor c1 is select emp_name from employee where emp_id=:emp.emp_id
Begin
     -- Local temporary file name --
     LC$Sep := '\'; -- you can use WEBUTIL_FILE.Get_File_Separator ;
--     LC$Nom := Substr( :BIN_DOCS.Name, instr( :BIN_DOCS.Name, LC$Sep, -1 ) + 1, 100 ) ;
     LC$Nom :=:EMP.EMP_NAME;
--message(LC$Nom);
     LC$Path := 'C:\Temp'; -- use standard DOS dir -- can use CLIENT_WIN_API_ENVIRONMENT.Get_Temp_Directory ;
     -- File Path with File name in Windows
     LC$Fic := LC$Path || LC$Sep || LC$Nom ;
--message('File info '||LC$Fic);
-- File extension
FType := SUBSTR(:EMP.DETAIL,INSTR(:EMP.DETAIL,'.') + 1, 4);
-- Based on File extension will assign Windows Command
CType := NULL; -- by default command in Windows is NULL - taken Windows default
-- Default Command is NOT working for WINWORD
IF UPPER(FType) IN ('DOC','DOTM','DOTX') THEN
CType := 'WINWORD /W';
END IF;
     -- File extraction --
OPEN c1;
FETCH c1 into V_EMPID;
IF NOT PKG_TRANSFERTS.DB_To_Client
LC$Fic ,
'EMPLOYEE',
'NAME',
'EMP_ID = ' || To_Char( :EMP.EMP_ID)
) THEN
Set_Alert_Property( 'AL_ERROR', TITLE, 'DB to Client' ) ;
Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Error transfering local file' ) ;
LN$But := Show_Alert( 'AL_ERROR' ) ;
Raise Form_trigger_Failure ;
ELSE
Message('Transferred to Client');
END IF ;
close c1;
-- this command will be run from Windows
LC$Cmd := 'cmd /c start "My script" /WAIT '|| CType||' "'||LC$Fic ||'" ';
--message ('Host command: '||LC$Cmd);
     Ret := WEBUTIL_HOST.blocking( LC$Cmd ) ;
     LN$But := WEBUTIL_HOST.Get_return_Code( Ret ) ;
     IF LN$But <> 0 Then
          Set_Alert_Property( 'AL_ERROR', TITLE, 'Host() command' ) ;
Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Host() command error : ' || To_Char( LN$But ) ) ;
LN$But := Show_Alert( 'AL_ERROR' ) ;
LB$Ok := WEBUTIL_FILE.DELETE_FILE( LC$Fic ) ;
Raise Form_Trigger_Failure ;
     END IF;
     -- Re-store the modified file in the database --
     LC$Fic :=LC$Fic||CAN;
IF NOT PKG_TRANSFERTS.Client_To_DB
LC$Fic ,
'EMPLOYEE',
'NAME',
'EMP_ID = ' || To_Char( :EMP.EMP_ID)
) Then
Set_Alert_Property( 'AL_ERROR', TITLE, 'Client to DB' ) ;
Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Error on storing file' ) ;
LN$But := Show_Alert( 'AL_ERROR' ) ;
Raise Form_trigger_Failure ;
ELSE
     -- The changes are commited to Database --> Build better interface
     COMMIT;
     Clear_Message ;
     Message('File re-stored in the database /Commited', no_acknowledge ) ;
END IF ;
-- Remove the temporary local file --
     LB$Ok := WEBUTIL_FILE.DELETE_FILE( LC$Fic ) ;
     IF LB$Ok = FALSE Then
          Bell ;
          Message( 'Error removing local file ', no_acknowledge ) ;
     END IF;
     Clear_Message ;
Exception
          When Form_Trigger_Failure Then
          Raise ;
End Open_Doc ;
and as i said throgh CLIENT_OLE2 ,we are able to pass value in new winword but not in stored template ..Here is the code for only new winword...
DECLARE
app CLIENT_OLE2.OBJ_TYPE;
docs CLIENT_OLE2.OBJ_TYPE;
doc CLIENT_OLE2.OBJ_TYPE;
selection CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;
BEGIN
-- create a new document
app := CLIENT_OLE2.CREATE_OBJ('Word.Application');
CLIENT_OLE2.SET_PROPERTY(app,'Visible',1);
docs := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Documents');
doc := CLIENT_OLE2.INVOKE_OBJ(docs, 'add');
selection := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Selection');
message('1');
--doc := CLIENT_OLE2.GET_OBJ_PROPERTY(doc,'ActiveDocument');
-- insert data into new document from long item
CLIENT_OLE2.SET_PROPERTY(selection, 'Text',:emp.emp_no);
-- save document as example.doc
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 'c:\temp\Employee.doc');
CLIENT_OLE2.INVOKE(doc, 'SaveAs', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
-- close example.doc
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 0);
CLIENT_OLE2.INVOKE(doc, 'Close', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_OLE2.RELEASE_OBJ(selection);
CLIENT_OLE2.RELEASE_OBJ(doc);
CLIENT_OLE2.RELEASE_OBJ(docs);
-- exit MSWord
--CLIENT_OLE2.INVOKE(app,'Quit');
END;
so please help ,how to pass value in that stored template which has bookmark. Seniors/guru/experts please help ,its kind urgent.Thanks

Hi Seniors,guru,experts please help.Thanks in advance.

CLIENT_OLE2 got WUC-15 error

I'm migrating an application from Forms6 to Forms9 using 10gDS(9.0.4) and WebUtil.
I've been using webutil.pll and webutil.olb in a form for CLIENT_HOST command. It works fine. So, it should mean that the config and settings for WebUtil are correct.
With the same application, I attached webutil.pll and subclassed webutil.olb in another form for the command CLIENT_OLE2, I got the WUC-15 error. I also tried the same thing on another form; it didn't show the error message, but the command didn't work (no response). Can you think of any reason?

A couple of things.
Have you installed Jacob to use the OLE functionality this must be installed?
First sign jacob.jar as per the readme.
You need to add to the full path to jacob.jar in a couple of places (at least windows)
Design time: To the CLASSPATH environment variable and for
runtime: To the appropriate env files eg ..\forms90\server\default.env ..\forms90\server\test.env etc
Also if you look on the forms product page you will see that there is a new version of webutil available 1.06

OPENING AND GETTING MS WORD ACTIVE DOCUMENT THROUGH CLIENT_OLE2

I am opening a word document through webutil host command. Now I need to get the active document of the opened word file.
How it is possible?. Since I need to fire Callback trigger 'MY_TRIGGER' I can not define 'Word.Application' and get the
'ACTIVEDOCUMENT'.
DECLARE
PID WEBUTIL_HOST.PROCESS_ID;
app CLIENT_ole2.OBJ_TYPE;
ADOC CLIENT_ole2.OBJ_TYPE;
BEGIN
PID := WEBUTIL_HOST.NonBlocking_With_Callback('D:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE C:\MYWORD.DOC','MY_TRIGGER');
--APP := CLIENT_OLE2.CREATE_OBJ('WORD.APPLICATION');
--ADOC := CLIENT_OLE2.INVOKE_OBJ(APP,'ACTIVEDOCUMENT');
END;

hi
i did not get u very well but i am trying to help u.what do u want to achieve?
check this code.
DECLARE
app CLIENT_OLE2.OBJ_TYPE;
docs CLIENT_OLE2.OBJ_TYPE;
doc CLIENT_OLE2.OBJ_TYPE;
selection CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;
BEGIN
-- create a new document
app := CLIENT_OLE2.CREATE_OBJ('Word.Application');
CLIENT_OLE2.SET_PROPERTY(app,'Visible',1);
docs := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Documents');
doc := CLIENT_OLE2.INVOKE_OBJ(docs, 'add');
selection := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Selection');
-- insert data into new document from long item
CLIENT_OLE2.SET_PROPERTY(selection, 'Text', :long_item);
-- save document as example.doc
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 'c:\temp\example.doc');
CLIENT_OLE2.INVOKE(doc, 'SaveAs', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
-- close example.doc
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 0);
CLIENT_OLE2.INVOKE(doc, 'Close', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_OLE2.RELEASE_OBJ(selection);
CLIENT_OLE2.RELEASE_OBJ(doc);
CLIENT_OLE2.RELEASE_OBJ(docs);
-- exit MSWord
CLIENT_OLE2.INVOKE(app,'Quit');
END;sarah

Client_ole2 EXCEL.EXE process not killed

Hi,
In a webForm, using webutil I open an Excel file with Client_ole2.
When I close Excel the underlying process is not killed; I can still see an EXCEL.EXE process in my task manager.
The consequence is that I cant open an Excel file while the above mentioned process is still running.
The EXCEL.EXE process keep on running until the local JVM shuts down.
Can anyone give some advise what to do?
Is this perhaps a known bug in webutil?
Code.
I use the following code (Extract):
elsif upper(substr(l_locatie_client,-4,4)) in ('.XLS','.CSV') then
-- open Excel
application := CLIENT_OLE2.CREATE_OBJ ('Excel.Application');
-- maak visible
CLIENT_OLE2.SET_PROPERTY(application,'Visible',1);
-- open document
workbooks := CLIENT_OLE2.get_obj_property(application, 'workbooks');
ArgList := CLIENT_OLE2.create_arglist;
CLIENT_OLE2.Add_Arg(ArgList, l_locatie_client);
workbook := CLIENT_OLE2.Invoke_obj(workbooks,'Open', Arglist);
CLIENT_OLE2.Destroy_Arglist(Arglist);
-- release objects
CLIENT_OLE2.Release_Obj(workbook);
CLIENT_OLE2.Release_Obj(workbooks);
CLIENT_OLE2.Release_Obj(Application);                         -
else
qms$show_message('Cant open this type of file.', 'I', FALSE);
end if;
specifications.
server:
Microsoft Windows 2000
Service Pack 3
Oracle 9iAS 9.0.2.3.0
Webutil 1.0.2
Client:
Microsoft Windows XP
Professionel version 2002
JInitiator version 1.3.1.13
Greetings,
Wouter

Please post your question to the FOrms page - and click on the forums link
otn.oracle.com/products/forms
Regards
Grant Ronald

Problem with CLIENT_OLE2 functions, please help

Hi all,
I´m trying to create a new excel document on client side, filled with data from database tables.
When server tries to execute the following line:
aplicacion := CLIENT_OLE2.CREATE_OBJ('Excel.Application');
it hangs up and in the Java console appears the following trace:
"Exception occurred during event dispatching:
java.lang.NoClassDefFoundError
at oracle.forms.webutil.ole.OleFunctions.create_obj(OleFunctions.java:513)
at oracle.forms.webutil.ole.OleFunctions.getProperty(OleFunctions.java:218)
at oracle.forms.handler.UICommon.onGet(Unknown Source)
at oracle.forms.engine.Runform.onGetHandler(Unknown Source)
at oracle.forms.engine.Runform.processMessage(Unknown Source)
at oracle.forms.engine.Runform.processSet(Unknown Source)
at oracle.forms.engine.Runform.onMessageReal(Unknown Source)
at oracle.forms.engine.Runform.onMessage(Unknown Source)
at oracle.forms.engine.Runform.processEventEnd(Unknown Source)
at oracle.ewt.lwAWT.LWComponent.redispatchEvent(Unknown Source)
at oracle.ewt.lwAWT.LWComponent.processEvent(Unknown Source)
at java.awt.Component.dispatchEventImpl(Unknown Source)
at java.awt.Container.dispatchEventImpl(Unknown Source)
at java.awt.Component.dispatchEvent(Unknown Source)
at java.awt.LightweightDispatcher.retargetMouseEvent(Unknown Source)
at java.awt.LightweightDispatcher.processMouseEvent(Unknown Source)
at java.awt.LightweightDispatcher.dispatchEvent(Unknown Source)
at java.awt.Container.dispatchEventImpl(Unknown Source)
at java.awt.Window.dispatchEventImpl(Unknown Source)
at java.awt.Component.dispatchEvent(Unknown Source)
at java.awt.EventQueue.dispatchEvent(Unknown Source)
at java.awt.EventDispatchThread.pumpOneEventForHierarchy(Unknown Source)
at java.awt.EventDispatchThread.pumpEventsForHierarchy(Unknown Source)
at java.awt.EventDispatchThread.pumpEvents(Unknown Source)
at java.awt.EventDispatchThread.run(Unknown Source)"
I think webutil configuration is right, because other webutil functions like "client_get_file_name" work correctly... and the same code worked fine in my test server.
More info:
Test server: Windows XP, Oracle 10g, Forms 9.0
Final server: Unix, Oracle 10g, Forms 9.0
Any help?
Thanks in advance.

Have you got the Jacob files installed on the application server? These are not part of webutil, you will need to do a web search to find them.
See section 2.3 of the Webutil Users Guide.

Column Headers in Excel using CLIENT_OLE2

Hello guys,
I have muti record block that has 10 columns which I want to display in Excel. I created a procedure RUN_EXCEL and everything works fine when the button is pressed and the procedure is called. However, I want to add the column prompts and when I try to do that using the prompt text I get the column headers but all the rows and colums mess up. Can anyone tell me how to get the column header to work to add in my current procedure. Right now if I run this way it doesn't display the promt headers.
Thanks
PROCEDURE RUN_EXCEL IS
application Client_OLE2.Obj_Type;
workbooks Client_OLE2.Obj_Type;
workbook Client_OLE2.Obj_Type;
worksheets Client_OLE2.Obj_Type;
worksheet Client_OLE2.Obj_Type;
args Client_OLE2.List_Type;
cell client_ole2.Obj_Type;
font client_ole2.obj_type;
range client_ole2.obj_type;
range_col client_ole2.obj_type;
item_prompt VARCHAR2(32767);
j INTEGER;
k INTEGER;
l INTEGER;
BEGIN
application := Client_OLE2.create_obj('Excel.Application');
Client_OLE2.Set_Property ( application , 'visible', 1);
workbooks := Client_OLE2.Get_Obj_Property(application, 'Workbooks');
workbook := Client_OLE2.Invoke_Obj(workbooks, 'Add');
worksheets := Client_OLE2.Get_Obj_Property(workbook, 'Worksheets');
worksheet := Client_OLE2.Invoke_Obj(worksheets, 'Add');
go_block('DM_T_EXCEPTION_LOG');
first_record;
j:=1;
k:=1;
while :system.last_record = 'FALSE'
loop
for k in 1..10 /* Table has 10 columns */
loop
If not name_in(:system.cursor_item) is NULL Then
item_prompt := get_item_property(:SYSTEM.CURRENT_BLOCK||'.'||:SYSTEM.CURRENT_ITEM, prompt_text);
args:=Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
Client_OLE2.set_property(cell, 'Value', name_in(:system.cursor_item));
Client_OLE2.release_obj(cell);
range := client_ole2.get_obj_property (worksheet, 'UsedRange');
range_col := client_ole2.get_obj_property (range, 'Columns');
client_ole2.invoke (range_col, 'AutoFit');
End If;
next_item;
end loop;
j:=j+1;
next_record;
end loop;
/* For the last record */
for k in 1..10
loop
If not name_in(:system.cursor_item) is NULL Then
args:=Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:=Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
Client_OLE2.set_property(cell, 'Value', name_in(:system.cursor_item));
-- imessage('in k again'||' '||:system.cursor_item||' '||item_prompt);
Client_OLE2.release_obj(cell);
range := client_ole2.get_obj_property (worksheet, 'UsedRange');
range_col := client_ole2.get_obj_property (range, 'Columns');
client_ole2.invoke (range_col, 'AutoFit');
End If;
next_item;
end loop;
ole2.set_property(application, 'Visible', 'false');
client_ole2.release_obj (range);
client_ole2.release_obj (range_col);
Client_OLE2.Release_Obj(worksheet);
Client_OLE2.Release_Obj(worksheets);
END;

Re: Problem area in code
"Match" is a worksheet function and is not used in VBA unless it is identified as a worksheet function, such as...
X = Application.WorksheetFunction.Match(arg, arg, arg)
Jim Cone
Portland, Oregon USA
free 'Save Selection as Picture' excel add-in
(a couple of clicks & you have a picture file of the selected cells)
https://jumpshare.com/b/O5FC6LaBQ6U3UPXjOmX2

CLIENT_OLE2 - Attempting to insert additional rows into a table in MS Word

I cannot find the commands to perform the above. I have looked at the Microsoft site but it only gives the VB equivalent and I cannot work out the syntax for CLIENT_OLE2 commands. Does anyone know where I can find a list of Word.Application commands that directly correspond to the old Word.Basic commands?

Jeff·Þ·Bohrer wrote:
2) Why is it that after every other iteration the row values are erased?
Classic race condition. dump the for loop and p-node and just wire the 2D array to the table terminal.!
I'm not seeing the race condition. What I am seeing is the table emptying after the last element was written to it on every other run. I saw watched this with highlight execution on.
But I'm in full agreement with just writing to the terminal. It is a 1D array, so you will need to use a build array and transpose 2D array in order for it to write properly.
There are only two ways to tell somebody thanks: Kudos and Marked Solutions
Unofficial Forum Rules and Guidelines

CLIENT_OLE2 v/s Word , ERROR in the package

Hi ...
I used the package webutil (very useful) , but when execute
The next code :
Code
goto_marcador('MC_LOCALIDAD_01', 'Espanol');
inserttext (<any value>, 'Espanol');
Procedures
procedure Goto_marcador (marcador in varchar2, idioma varchar2) is
arglist CLIENT_OLE2.list_type;
begin
arglist := CLIENT_OLE2.create_arglist;
CLIENT_OLE2.add_arg (arglist, marcador);
if idioma = 'Ingles' then
     CLIENT_OLE2.invoke (obj_hnd, 'EditFind', arglist);
else
     CLIENT_OLE2.invoke (obj_hnd, 'Edici�nBuscar', arglist);
end if;
CLIENT_OLE2.destroy_arglist (arglist);
end;
procedure inserttext (txt in varchar2, idioma varchar2) is
arglist CLIENT_OLE2.list_type;
begin
arglist := CLIENT_OLE2.create_arglist;
if not txt IS NULL THEN
     CLIENT_OLE2.add_arg (arglist, txt);
else
     CLIENT_OLE2.add_arg (arglist, ' ');
end if;
if idioma = 'Ingles' then
     CLIENT_OLE2.invoke (obj_hnd, 'insert', arglist);
else
     CLIENT_OLE2.invoke (obj_hnd, 'insertar', arglist);
end if;
CLIENT_OLE2.destroy_arglist (arglist);
end;
Appears the next error in the Java Console:
JInitiator: Versi�n 1.3.1.9
Usar versi�n JRE 1.3.1.9 Java HotSpot(TM) Client VM
Directorio local del usuario = C:\Documents and Settings\hulloa
Configuraci�n del delegado: sin delegado
JAR cache enabled
Location: C:\Documents and Settings\hulloa\Oracle Jar Cache
Maximum size: 50 MB
Compression level: 0
c: clear console window
f: finalize objects on finalization queue
g: garbage collect
h: display this help message
l: dump classloader list
m: print memory usage
q: hide console
s: dump system properties
t: dump thread list
x: clear classloader cache
0-5: set trace level to <n>
Loading http://mlfwebsvt.metlife.cl:7778/forms90/webutil/webutil.jar from JAR cache
Loading http://mlfwebsvt.metlife.cl:7778/forms90/webutil/jacob.jar from JAR cache
Loading http://mlfwebsvt.metlife.cl:7778/forms90/java/f90all_jinit.jar from JAR cache
RegisterWebUtil - Loading Webutil Version 1.0.2 Beta
Loading http://mlfwebsvt.metlife.cl:7778/forms90/java/iconic_files.jar from JAR cache
connectMode=HTTP, native.
La versi�n del applet Forms es: 90290
2003-oct-22 12:48:05.827 ERROR>WUO-714 [OleFunctions.setExceptionValues()] Unable to get the last OLE Error details; Exception
null
2003-oct-22 12:48:05.827 ERROR>WUO-707 [OleFunctions.invoke_obj()] Unable to invoke Method: insert; Exception
com.jacob.com.ComFailException: A COM exception has been encountered:
At Invoke of: insert
Description: No se ha encontrado el miembro.
2003-oct-22 12:48:11.171 ERROR>WUO-707 [OleFunctions.invoke_obj()] Unable to invoke Method: filesaveas; Exception
com.jacob.com.ComFailException: Invoke of: filesaveas
Source: Microsoft Word
Description: Word no puede guardar este archivo porque est� abierto en otro lugar.
(C:\TEMP\NCO-1131.DOC)
2003-oct-22 12:48:14.734 ERROR>WUC-14 [getFromObjectCache] Object Cache Error: Specified object handle 4 not found in the cache
2003-oct-22 12:48:14.796 ERROR>WUC-14 [getFromObjectCache] Object Cache Error: Specified object handle 4 not found in the cache
2003-oct-22 12:48:14.796 ERROR>WUC-14 [getFromObjectCache] Object Cache Error: Specified object handle 4 not found in the cache
2003-oct-22 12:48:14.796 ERROR>WUC-12 [OleFunctions.invoke_obj()] Object Cache Error: Object is not the expected JacobObject,Vector type
2003-oct-22 12:48:14.937 ERROR>WUC-14 [getFromObjectCache] Object Cache Error: Specified object handle 4 not found in the cache
2003-oct-22 12:48:14.984 ERROR>WUC-14 [getFromObjectCache] Object Cache Error: Specified object handle 4 not found in the cache
2003-oct-22 12:48:14.984 ERROR>WUC-14 [getFromObjectCache] Object Cache Error: Specified object handle 4 not found in the cache
2003-oct-22 12:48:14.984 ERROR>WUC-12 [OleFunctions.invoke_obj()] Object Cache Error: Object is not the expected JacobObject,Vector type
Why the method Insert is working bad???
The file jacob.jar is signed correctly
In the file *.dot exist the marker MC_LOCALIDAD_01 , however CLIENT_OLE2.invoke (obj_hnd, 'EditFind', arglist); , not found , why???
The method is valid??
Where found more descriptions of this method or all methods of CLIENT_OLE2??
Thanks very much
Regards
Hector
PD : Sorry my english

Hi Andrew
You says , i can not use the Marker and the template (*.dot) in the forms9i?
the solution :
-- insert data into new document from long item
OLE2.SET_PROPERTY(selection, 'Text', :long_item);
Not help me , because i use the sofisticated template and i create a template will quasi impossible ..
Where i found more descriptions of method for example insert???
Thanks Andrew
Observation : If i can not use marker or template , the Forms9i is not help me....

Trying to close an excel workbook with client_ole2 leaves an excel process

Hello ,
I 'm trying to import data from forms (10g) to an excel workbook and i use client_ole2.
Everything seems to work fine except the last part of my code. The excel application is closing but it leaves a process open ( Windows Task Manager).The procedure I'm using
is the following
PROCEDURE fill_excel
IS
v_ole_excel client_ole2.obj_type;
v_ole_workbooks client_ole2.obj_type;
v_ole_workbook client_ole2.obj_type;
v_ole_worksheets client_ole2.obj_type;
v_ole_worksheet client_ole2.obj_type;
cell client_ole2.obj_type;
v_file_name VARCHAR2 (2000) := 'C:\F101.xls';
obj_hnd client_ole2.obj_type;
v_ole_range client_ole2.obj_type;
arglist client_ole2.list_type;
v_date_from DATE;
v_date_to_xr DATE;
v_date_to_chr VARCHAR2(20);
v_date_to DATE;
BEGIN
     -- INITIALIZATION OF DATES
     GET_XRISI('GEL',v_date_from,v_date_to_xr);
     select iso_lib.Get_ISO_CONFIG_Value('DATEE')
     into v_date_to_chr
     from dual;
     v_date_to:=to_date(v_date_to_chr,'DD/MM/YYYY');
-- OPEN EXCEL
v_ole_excel := client_ole2.create_obj ('Excel.Application');
client_ole2.set_property (v_ole_excel, 'visible', 0);
-- OPEN WORKBOOKS - WORKBOOK
v_ole_workbooks := client_ole2.get_obj_property (v_ole_excel, 'Workbooks');
arglist := client_ole2.create_arglist;
client_ole2.add_arg (arglist, v_file_name);
v_ole_workbook :=client_ole2.invoke_obj (v_ole_workbooks, 'open', arglist);
client_ole2.destroy_arglist (arglist);
--OPEN WORKSHEETS - WORKSHEET (1)
v_ole_worksheets := client_ole2.get_obj_property (v_ole_workbook, 'Worksheets');
arglist := client_ole2.create_arglist;
client_ole2.add_arg (arglist, 1);
v_ole_worksheet :=client_ole2.get_obj_property (v_ole_worksheets, 'Item', arglist);
client_OLE2.invoke(v_ole_worksheet,'activate');
client_ole2.destroy_arglist (arglist);
fill_cell (v_ole_worksheet, 'H6', value);
-- OPEN WORKSHEET (2)
arglist := client_ole2.create_arglist;
client_ole2.add_arg (arglist, 2);
v_ole_worksheet :=client_ole2.get_obj_property (v_ole_worksheets, 'Item', arglist);
client_OLE2.invoke(v_ole_worksheet,'activate');
client_ole2.destroy_arglist (arglist);
FILL_CELL(v_ole_worksheet,'AY2',value);
-- save document as c:\F101_xxxx.xls
arglist := client_ole2.create_arglist;
client_ole2.add_arg (arglist, 'c:\F101_'||REPLACE(v_date_to_chr,'/' ,NULL)||'.xls');
client_ole2.invoke (v_ole_workbook, 'SaveAs', arglist);
client_ole2.destroy_arglist (arglist);
-- close C:\F101.xls
arglist := client_ole2.create_arglist;
client_ole2.add_arg (arglist, v_file_name);
client_ole2.invoke (v_ole_workbook, 'Close', arglist);
client_ole2.destroy_arglist (arglist);
-- exit Excel
client_ole2.invoke (v_ole_excel, 'Quit');
--To release all the memory object
client_ole2.RELEASE_OBJ (v_ole_worksheet);
client_ole2.RELEASE_OBJ (v_ole_workbook);
client_ole2.RELEASE_OBJ (v_ole_workbooks);
client_ole2.RELEASE_OBJ (v_ole_excel);
END;
Any suggestions will be appreciated...
Thanks Marina

The slowness you are experiencing is largely owing to the fact that the WebUtil package is running on the middle tier -- but the Jacob bean is running on the client. Loading a spreadsheet requires a lot of network I/O. To speed things up, implement your operation within a custom Java bean, in such a way that communication between the tiers is minimized. For example, write a Java class that receives all the data in one call, and understands how to write it to an Excel document. Deploy this class as a Java bean, and call it from your form as needed using FBEAN.INVOKE( ).
The catch: passing data through PL/SQL imposes the 32K-character limit for VARCHAR2. If you cannot be certain that the data to be written can be expressed as a string of this size, you must consider introducing compression, passing the data over multiple calls, or possibly both.
I've been working with this, using Java's GZIP libraries for compression, and Apache Axis' BASE64 function for binary-to-String conversion. Since I'm passing a complex data structure, I use open-source XStream to serialize this structure to XML, GZIP the XML string, Base64-encode and pass it along. Sounds awkward and cumbersome, but has worked fairly well so far.
The XML step may not be needed for simple tabular data, but because GZIP minimizes the cost of wrapping every value in tags, the incredible convenience offered by XStream makes it worth at least trying. (One call to marshall, one call to unmarshall.)
Sorry, but this is all I have time to write, at the moment -- hopefully it at least gives you an idea regarding the problem and possible solutions.
Regards,
Eric Adamson
Lansing, Michigan

Client_ole2.Last_exception

Similar Messages

Maybe you are looking for