Error on "webutil_c_api.invoke_int"

Question

Hello,
i'm testing a DLL that was used in Oracle Forms 6i using ORA_FFI.
the function that i'm testing it on Oracle 10g is :
Function LS100_Open (hwnd in out pls_integer,
Hinst in out pls_integer,
Type_com in char) return pls_integer
The Code in Oracle 10g is :
declare
ret_val      pls_integer;
hwnd          pls_integer;     
handle          pls_integer;     
typ_com          varchar2(1):= 'S';
f_handle      webutil_c_api.FunctionHandle;
args          webutil_c_api.ParameterList;
param1          webutil_c_api.ParameterHandle;
param2          webutil_c_api.ParameterHandle;
param3          webutil_c_api.ParameterHandle;
begin
f_handle := webutil_c_api.register_function('Ls100.dll','LS100_Open');
args := webutil_c_api.create_parameter_list;
param1 := webutil_c_api.add_parameter(args,webutil_c_api.c_int,webutil_c_api.param_out,hwnd);
param2 := webutil_c_api.add_parameter(args,webutil_c_api.c_int,webutil_c_api.param_out,handle);
param3 := webutil_c_api.add_parameter(args,webutil_c_api.c_char,webutil_c_api.param_in,typ_com,1);
ret_val     := webutil_c_api.invoke_int('Ls100.dll','LS100_Open',args);
WEBUTIL_C_API.Destroy_Parameter_List(args);
WEBUTIL_C_API.Deregister_Function(f_handle);
end;
when i execute this code the following error appears:
"WUL-910 Invoking the function failed: java.lang.IllegalArgumentException: unrecognized argument type"
Is there anything wrong in my code ???

Answer 1

hi,
the function in dll is:
-- pll in 6i ---
LS100_lhandle ORA_FFI.LIBHANDLETYPE;
LS100_Open_fhandle ORA_FFI.FUNCHANDLETYPE;
FUNCTION ff_LS100_Open (LS100_Open_fhandle ORA_FFI.FUNCHANDLETYPE,
hWnd IN OUT PLS_INTEGER,
Hinst IN OUT PLS_INTEGER,
Type_com IN CHAR) RETURN PLS_INTEGER;
PRAGMA interface (C, ff_LS100_Open, 11265);
FUNCTION LS100_Open (hWnd IN OUT PLS_INTEGER, --not a pointer
Hinst IN OUT PLS_INTEGER, -- not a pointer
Type_com IN CHAR) -- not a pointer
RETURN PLS_INTEGER IS
BEGIN
RETURN( FF_LS100_Open( LS100_Open_fhandle, hWnd, Hinst, Type_com));
END; /* function LS100_Open() */
and in the documentation of the function in the library is defined as :
LS100_Open
#include "LS100.h"
Result API LS100_Open (HWND      hwnd,
HANDLE      Hinst,
CHAR      Type_com);
Description
Open a connection between client and LS service.
Parameters
Hwnd     
Handle of the application windows which will receive the notification messages.
Hinst     
Hinstance of the application window
Type_com     
Execution mode of the command:
SUSPENSIVE_MODE = Synchronous mode
NOT_SUSPENSIVE_MODE = Asynchronous mode
Return Value
LS100_OKAY if successful
LS100_TRY_TO_RESET if the peripheral is in error state otherwise standard reply code.
I have already the howto_ffi.html file and i have already did the following:
- configuring the Webutil 1.0.5 (production release)
- adding the library "LS100" to the Webutil.cfg
- copy the library "LS100" and paste it into webutil\lib
I also tried the following:
I did omit the register/deregister_function, the code become as following and the same error occured after the 3rd add_parameter :
declare
ret_val      pls_integer;
hwnd          number;     
handle          number;     
typ_com          varchar2(1):= 'S';
len_typ          pls_integer := 1;
f_handle      webutil_c_api.FunctionHandle;
args          webutil_c_api.ParameterList;
param1          webutil_c_api.ParameterHandle;
param2          webutil_c_api.ParameterHandle;
param3          webutil_c_api.ParameterHandle;
xx number;
yy number;
begin
-- f_handle := webutil_c_api.register_function('Ls100.dll','LS100_Open');
args     := webutil_c_api.create_parameter_list;
message('1');
param1      := webutil_c_api.add_parameter(args,webutil_c_api.c_int,webutil_c_api.param_out,hwnd);
message('2');
param2      := webutil_c_api.add_parameter(args,webutil_c_api.c_int,webutil_c_api.param_out,handle);
message('3');
param3      := webutil_c_api.add_parameter(args,webutil_c_api.c_char,webutil_c_api.param_in,typ_com,len_typ);
Now the same error appears in this stage:
" WUL-910 Invoking the function failed: java.lang.IllegalArgumentException: unrecognized argument type "
and the running continue
message('before invoke_int');
-- the "invoke_int" runs without any errors
ret_val     := webutil_c_api.invoke_int('Ls100.dll','LS100_Open',args);
xx := webutil_c_api.get_parameter_number(args,param1);
yy := webutil_c_api.get_parameter_number(args,param2);
message('hwnd ='||xx); -- => 0
message('handle ='||yy); -- => 0
message('ret_val ='||ret_val); -- => <nothing>
WEBUTIL_C_API.Destroy_Parameter_List(args);
--WEBUTIL_C_API.Deregister_Function(f_handle);                                        
end;
Thanks