OLEVAR doesn't work on 10G Forms (Urgent)

Question

Hi all,
I currently use 10g Forms. but every time have a error
occur
FRM-92101 : There was a failure in the Forms Server during startup. This could happen due to invalid configuration. Please look into the web-server log file for details.
Java Exception :
oracle.forms.netConnectionException: Forms .....
at oracle.forms.net.ConnectionException.createConnectionException(Unknown Source)
at oracle.forms.net.HTTPNStream.getResponse(Unknown Source)
at oracle.forms.net.HTTPNStream.doFlush(Unknown Source)
at oracle.forms.net.HTTPNStream.flush(Unknown Source)
at java.io.DataOutputStream.flush(Unknown Source)
at oracle.forms.net.StreamMessageWriter.run(Unknown Source)
when execute "var:=TO_VARIANT( strs );" in when-button-press trigger. anybody know that what is the problem occur ?
pls find below coding : -
PROCEDURE EXP_EXCEL IS
TYPE TStrs IS TABLE OF varchar2(1000) INDEX BY BINARY_INTEGER;
MyApp ole2.obj_type;
MyBook ole2.obj_type;
MyWorkbooksCollection ole2.obj_type;
myWorksheets ole2.obj_type;
mySheet ole2.obj_type;
args OLE2.LIST_TYPE;
myRange ole2.obj_type;
val varchar2(32000);
startTime pls_integer;
endTime pls_integer;
-- Here is extra variable for this method
strs TStrs;
var OLEVAR;
firstCell varchar2(100);
lastCell varchar2(100);
id pls_integer;
BEGIN
/* Open Excel and create new document */
MyApp:=OLE2.Create_Obj('Excel.Application');
OLE2.Set_Property( MyApp,'VISIBLE', 1 );
MyWorkbooksCollection:=OLE2.GET_OBJ_PROPERTY( MyApp, 'Workbooks' );
MyBook:=OLE2.Invoke_Obj( MyWorkbooksCollection,'Add' );
myWorksheets:=OLE2.GET_OBJ_PROPERTY( MyBook,'Worksheets');
/* Get the WorkSheet to work */
args := OLE2.CREATE_ARGLIST; -- create argument list
OLE2.ADD_ARG( args, 1 ); -- add worksheet INDEX
MySheet := OLE2.GET_OBJ_PROPERTY( myWorksheets, 'Item', args);
OLE2.DESTROY_ARGLIST( args);
-- startTime:=WIN32.GetTickCount;
/* Add the information */
FOR myRowNum IN 1..8 LOOP
strs.delete;
-- Prepare the information for the row
FOR myColumnNum IN 1..38 LOOP
val:='t'||myRowNum||'_'||myColumnNum;
strs(myColumnNum):=val;
END LOOP;
/* Get the address of the first and the last cells */
args := OLE2.CREATE_ARGLIST; -- create argument list
OLE2.ADD_ARG( args, myRowNum );
OLE2.ADD_ARG( args, 1 );
myRange:=OLE2.GET_OBJ_PROPERTY( mySheet, 'Cells', args );
OLE2.DESTROY_ARGLIST( args);
firstCell:=OLE2.GET_CHAR_PROPERTY( myRange, 'Address' );
OLE2.RELEASE_OBJ( myRange );
args := OLE2.CREATE_ARGLIST; -- create argument list
OLE2.ADD_ARG( args, myRowNum );
OLE2.ADD_ARG( args, 38 );
myRange:=OLE2.GET_OBJ_PROPERTY( mySheet, 'Cells', args );
OLE2.DESTROY_ARGLIST( args);
lastCell:=OLE2.GET_CHAR_PROPERTY( myRange, 'Address' );
OLE2.RELEASE_OBJ( myRange );
/* Get the range */
args := OLE2.CREATE_ARGLIST; -- create argument list
OLE2.ADD_ARG( args, firstCell );
OLE2.ADD_ARG( args, lastCell );
myRange:=OLE2.GET_OBJ_PROPERTY( mySheet, 'Range', args );
OLE2.DESTROY_ARGLIST( args);
/* Set the cell value for range */
var:=TO_VARIANT( strs );
id:=GET_OLE_MEMBERID( myRange, 'Value' );
SET_OLE( myRange, id, var );
DESTROY_VARIANT( var );
OLE2.RELEASE_OBJ( myRange );
END LOOP;
-- endTime:=WIN32.GetTickCount;
-- :BLOCK1.FAST2_TIME:=TO_CHAR( (endTime-startTime) );
OLE2.RELEASE_OBJ(mySheet);
OLE2.RELEASE_OBJ(myWorksheets);
OLE2.RELEASE_OBJ(MyBook);
OLE2.RELEASE_OBJ(MyWorkbooksCollection);
-- OLE2.INVOKE (MyApp,'Quit');
OLE2.RELEASE_OBJ(MyApp);
END;
best regards
boris

Answer 1

Hi all,
Any expert can help me ?
best regards
boris