Problem under 6i with OLE2, ocx for MODI, and multi-page tifs... [message #154109] |
Thu, 05 January 2006 14:24 ![Go to next message Go to next message](/forum/theme/orafaq/images/down.png) |
rebuch
Messages: 2 Registered: January 2006
|
Junior Member |
|
|
Under Oracle 6i I'm tring to to use the ocx for the Microsoft Document Image Viewer to open a multi-page tif within a form. I have the following code attached to a trigger and receive a "ORA-305500" error when I try to activate the trigger.
DECLARE
MyApplication OLE2.OBJ_TYPE;
MyDocuments OLE2.OBJ_TYPE;
MyDocument OLE2.OBJ_TYPE;
MySelection OLE2.OBJ_TYPE;
obj_hnd OLE2.OBJ_TYPE;
args ole2.list_type;
BEGIN
MyApplication := ole2.create_obj('MSPaper.Document');
ole2.set_property(MyApplication,'Visible',1);
MyDocuments := ole2.get_obj_property(MyApplication,'Documents');
args := ole2.create_arglist;
ole2.add_arg(args,'c:\E4660399.tif');
ole2.add_arg(args,0);
Mydocument := ole2.invoke_OBJ(MyDocuments,'Open',args);
ole2.destroy_arglist(args);
END;
Any help would be great, thanks.
|
|
|
|
Re: Problem under 6i with OLE2, ocx for MODI, and multi-page tifs... [message #154273 is a reply to message #154137] |
Fri, 06 January 2006 09:43 ![Go to previous message Go to previous message](/forum/theme/orafaq/images/up.png) ![Go to next message Go to next message](/forum/theme/orafaq/images/down.png) |
rebuch
Messages: 2 Registered: January 2006
|
Junior Member |
|
|
I tried switching out OLE2.INVOKE_OBJ with OLE2.GET_OBJ_PROPERTY and still get the error
FRM-40735: WHEN-MOUSE-CLICK trigger raised unhandled exception ORA-305500.
I might be missing something simple because I pretty much know just enough to be dangerous. Again any help would be great...
DECLARE
MyApplication OLE2.OBJ_TYPE;
MyApplication1 OLE2.OBJ_TYPE;
MyDocuments OLE2.OBJ_TYPE;
MyDocument OLE2.OBJ_TYPE;
MySelection OLE2.OBJ_TYPE;
obj_hnd OLE2.OBJ_TYPE;
args ole2.list_type;
BEGIN
MyApplication := ole2.create_obj('MiDocViewer.MiDocView.1');
--MyApplication1 := FORMS_OLE.get_interface_pointer('block3.item41');
ole2.set_property(MyApplication,'Visible',1);
MyDocuments := ole2.get_obj_property(MyApplication,'MyDocuments');
args := ole2.create_arglist;
ole2.add_arg(args,'c:\E4660399.tif');
--ole2.add_arg(args,0);
Mydocument := OLE2.GET_OBJ_PROPERTY(MyDocuments,'Open',args);
--OLE2.set_property(MyApplication1,'SRC',args);
ole2.destroy_arglist(args);
END;
|
|
|
|
|
|
|