| Webutil call to C functions [message #587109] |
Wed, 12 June 2013 10:05 |
|
|
Hi
I have a c function as
WORD WINAPI ORA_SAMS_OPEN ([IN]LPSTR lpPID, [IN]LPSTR lpGID, WORD *pwResult,WORD *pwSysErr);
I am using below code to call same...
declare
l_reg_handle WEBUTIL_C_API.FunctionHandle;
r_param_list WEBUTIL_C_API.ParameterList;
param1 WEBUTIL_C_API.ParameterHandle;
param2 WEBUTIL_C_API.ParameterHandle;
param3 WEBUTIL_C_API.ParameterHandle;
param4 WEBUTIL_C_API.ParameterHandle;
param5 WEBUTIL_C_API.ParameterHandle;
SM_PROGRAMID char(6) := 'CRE001';
SM_MYGROUPID char(6) := ' ';
Result_l integer :=1;
Syserr_l integer :=1;
rc int;
l_result number;
begin
l_reg_handle := WEBUTIL_C_API.register_function('bestora32.dll','ORA_SAMS_OPEN');
r_param_list := WEBUTIL_C_API.create_parameter_list;
param1 := WEBUTIL_C_API.add_parameter(r_param_list,WEBUTIL_C_API.c_char_ptr,WEBUTIL_C_API.PARAM_OUT,SM_PROGRAMID,6);
param2 := WEBUTIL_C_API.add_parameter(r_param_list,WEBUTIL_C_API.c_char_ptr,WEBUTIL_C_API.PARAM_INOUT,SM_MYGROUPID,6);
param3 := WEBUTIL_C_API.add_parameter(r_param_list,WEBUTIL_C_API.c_short_ptr,WEBUTIL_C_API.PARAM_OUT,Result_l);
param4 := WEBUTIL_C_API.add_parameter(r_param_list,WEBUTIL_C_API.c_short_ptr,WEBUTIL_C_API.PARAM_OUT,Syserr_l);
--rc := WEBUTIL_C_API.INVOKE_INT( l_reg_handle,r_param_list);
WEBUTIL_C_API.INVOKE( l_reg_handle,r_param_list);
end;
It hangs with generating attached file.
Your help will be appreciated.
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
