khaled022498
asked on
OLE Integration with FileNet
Does any one have any ideas on how can I integrate FileNet imaging software "Watermark" through OLE
with Oracle Forms 4.5 and above , in order to get the full functionality of that software,
using Visual Basic I did that through CreateObject statement.
using set statement I can control any function like scanning, setting document properties, ...
thank you.
with Oracle Forms 4.5 and above , in order to get the full functionality of that software,
using Visual Basic I did that through CreateObject statement.
using set statement I can control any function like scanning, setting document properties, ...
thank you.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Hi,
I can't test what the code below but I think that's the way I would do it...
Declare
application ole2.obj_type
begin
-- That will start an ole server.
application := ole2.create_obj('WaterMark .Applicati on');
/*
** Here use ole2 built-in functions to call functions, get properties...etc..etc...
*/
-- that will stop the ole server
ole2.release_obj(applicati on);
end;
I can't test what the code below but I think that's the way I would do it...
Declare
application ole2.obj_type
begin
-- That will start an ole server.
application := ole2.create_obj('WaterMark
/*
** Here use ole2 built-in functions to call functions, get properties...etc..etc...
*/
-- that will stop the ole server
ole2.release_obj(applicati
end;
ASKER
Thank you, you have been very helpful
ASKER
Public Sub CustomizeWorkspace()
Dim wmMainWindow As Object
Dim wmApp As Object
set wmApp=CreateObject("Waterm
Set wmMainWindow = g_wmWorkspace.MainWindow
' set the caption of the window
wmMainWindow.Caption = "Out of Place Watermark Workspace"
' only show toolbars (no menu)
wmMainWindow.ShowUI (2 Or 4)
wmMainWindow.ShowWindow (2 Or 64)
'Start Scanning
wmApp.scan StartPage, Increment, MaxPages, Flags
'OCR The Current Page and Set user Index Fields
wmApp.Document.UserIndex("
Exit Sub
ErrorHandler:
If (Err) Then MsgBox Err.Description
End Sub
forget about error handler, and all other accessories, the thing i want is how to start OLE server, passing commands from my program to OLE.
Thanks.