Spell check in oracle form

Question

spell check is done in oracle forms by clicking a button using client_ole.
the code behind the button is
DECLARE
application CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;
docs CLIENT_OLE2.OBJ_TYPE;
doc CLIENT_OLE2.OBJ_TYPE;
selection CLIENT_OLE2.OBJ_TYPE;
sel_text varchar2(2000);
var_text varchar2(2000);
start_pos number;
PROCEDURE Close_Word IS
BEGIN
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);
synchronize;
END Close_Word;
BEGIN
application:=CLIENT_OLE2.CREATE_OBJ('Word.Application');
if :B_HSN_ITEM_PRODUCT_INFO.PRODUCT_INFO1 IS NOT NULL THEN
CLIENT_OLE2.SET_PROPERTY(application,'Visible',0);
docs := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Documents');
doc := CLIENT_OLE2.INVOKE_OBJ(docs, 'add');
selection := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Selection');
-- Info 1
CLIENT_OLE2.SET_PROPERTY(selection, 'Text',:b_hsn_item_product_info.product_info1||chr(10));
CLIENT_OLE2.INVOKE(doc, 'CheckSpelling');
BEGIN
sel_text:=CLIENT_OLE2.GET_CHAR_PROPERTY(application, 'Selection');
--upgrade added condition to see if sel_text is null or not
if length(sel_text) > 1 then
var_text :=SUBSTR(sel_text, 1, (NVL(LENGTH(sel_text), 0)) - 1 );
var_text := replace(var_text,chr(146),chr(39));
var_text := replace(var_text,chr(13),chr(10));
:B_HSN_ITEM_PRODUCT_INFO.PRODUCT_INFO1 := var_text;
end if;
EXCEPTION
WHEN VALUE_ERROR THEN
Close_Word;
emessage('Spell check error. Text length cannot exceed 2000 characters. Any changes made during spell check were not applied.');
RAISE Form_Trigger_Failure;
WHEN OTHERS then
emessage(SQLERRM);
raise;
END;
Close_Word;
end if;
---info2
if :B_HSN_ITEM_PRODUCT_INFO.PRODUCT_INFO2 IS NOT NULL THEN
CLIENT_OLE2.SET_PROPERTY(application,'Visible',0);
docs := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Documents');
doc := CLIENT_OLE2.INVOKE_OBJ(docs, 'add');
selection := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Selection');
-- Info 1
CLIENT_OLE2.SET_PROPERTY(selection, 'Text',:b_hsn_item_product_info.product_info2||chr(10));
CLIENT_OLE2.INVOKE(doc, 'CheckSpelling');
BEGIN
sel_text:=CLIENT_OLE2.GET_CHAR_PROPERTY(application, 'Selection');
--upgrade added condition to see if sel_text is null or not
if length(sel_text) > 1 then
var_text :=SUBSTR(sel_text, 1, (NVL(LENGTH(sel_text), 0)) - 1 );
var_text := replace(var_text,chr(146),chr(39));
var_text := replace(var_text,chr(13),chr(10));
:B_HSN_ITEM_PRODUCT_INFO.PRODUCT_INFO2 := var_text;
end if;
EXCEPTION
WHEN VALUE_ERROR THEN
Close_Word;
emessage('Spell check error. Text length cannot exceed 2000 characters. Any changes made during spell check were not applied.');
RAISE Form_Trigger_Failure;
WHEN OTHERS then
emessage(SQLERRM);
raise;
END;
Close_Word;
end if;
--info 3
if :B_HSN_ITEM_PRODUCT_INFO.PRODUCT_INFO3 IS NOT NULL THEN
CLIENT_OLE2.SET_PROPERTY(application,'Visible',0);
docs := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Documents');
doc := CLIENT_OLE2.INVOKE_OBJ(docs, 'add');
selection := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Selection');
-- Info 1
CLIENT_OLE2.SET_PROPERTY(selection, 'Text',:b_hsn_item_product_info.product_info3||chr(10));
CLIENT_OLE2.INVOKE(doc, 'CheckSpelling');
BEGIN
sel_text:=CLIENT_OLE2.GET_CHAR_PROPERTY(application, 'Selection');
--upgrade added condition to see if sel_text is null or not
if length(sel_text) > 1 then
var_text :=SUBSTR(sel_text, 1, (NVL(LENGTH(sel_text), 0)) - 1 );
var_text := replace(var_text,chr(146),chr(39));
var_text := replace(var_text,chr(13),chr(10));
:B_HSN_ITEM_PRODUCT_INFO.PRODUCT_INFO3 := var_text;
end if;
EXCEPTION
WHEN VALUE_ERROR THEN
Close_Word;
emessage('Spell check error. Text length cannot exceed 2000 characters. Any changes made during spell check were not applied.');
RAISE Form_Trigger_Failure;
WHEN OTHERS then
emessage(SQLERRM);
raise;
END;
Close_Word;
end if;
-- Info 4
IF :B_HSN_ITEM_PRODUCT_INFO.PRODUCT_INFO4 IS NOT NULL THEN
CLIENT_OLE2.SET_PROPERTY(application,'Visible',0);
docs := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Documents');
doc := CLIENT_OLE2.INVOKE_OBJ(docs, 'add');
selection := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Selection');
CLIENT_OLE2.SET_PROPERTY(selection, 'Text',:b_hsn_item_product_info.product_info4||chr(10));
CLIENT_OLE2.INVOKE(doc, 'CheckSpelling');
BEGIN
     sel_text:=CLIENT_OLE2.GET_CHAR_PROPERTY(application, 'Selection');
--upgrade added condition to see if sel_text is null or not
if length(sel_text) > 1 then
var_text :=SUBSTR(sel_text, 1, (NVL(LENGTH(sel_text), 0)) - 1 );
var_text := replace(var_text,chr(146),chr(39));
var_text := replace(var_text,chr(13),chr(10));
:B_HSN_ITEM_PRODUCT_INFO.PRODUCT_INFO4 := var_text;
end if;
EXCEPTION
WHEN VALUE_ERROR THEN
Close_Word;
eMessage('Spell check error. Text length cannot exceed 2000 characters. Any changes made during spell check were not applied.');
RAISE Form_Trigger_Failure;
END;
Close_Word;
END IF;
-- exit MSWord
CLIENT_OLE2.INVOKE(application,'Quit');
CLIENT_OLE2.RELEASE_OBJ(application);
EXCEPTION
     when OTHERS then
     emessage(SQLERRM);
     raise;
END;
but i am getting this error. can you please tell me whats the problem.
Exception in thread "AWT-EventQueue-7" java.lang.NoClassDefFoundError
     at oracle.forms.webutil.ole.OleFunctions.create_obj(Unknown Source)
     at oracle.forms.webutil.ole.OleFunctions.getProperty(Unknown Source)
     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.pumpEvents(Unknown Source)
     at java.awt.EventDispatchThread.run(Unknown Source)
Edited by: user565034 on Jul 14, 2009 11:59 AM

Answer 1

Your code works for me in Forms 10.1.2.3 and JRE Java Plug-in 1.5.0_15 with IE 7 ...
I am also using jacob.jar 1.8 ....
Why do not you try what I did ? Use the webutil demo form to test basic OLE functionality first ... then add your code to the Form ... that should test your webutil configuration ...
http://www.oracle.com/technology/products/forms/htdocs/webutil/Webutil_demo.zip
Let me know how that goes ...