| steps to call a function in VC+ dll [message #31207] |
Tue, 15 June 2004 13:30  |
Subhasini
Messages: 2
Registered: June 2004
|
Junior Member |
|
|
Hi,
I am trying to call a VC++ function from Oracle. I have used
extern "C" in the function definition in the DLL. Can someone help me with the steps I should follow in Oracle Environment settings that should be done and the way to call the procedure
from Oracle?
thanks in advance, Subhasini
|
|
|
|
| Re: steps to call a function in VC+ dll [message #31217 is a reply to message #31207] |
Tue, 15 June 2004 22:36  |
Himanshu
Messages: 457
Registered: December 2001
|
Senior Member |
|
|
Hi,
Use ORA_FFI package. Heres an example of code for a form.
The prototype of the function call in the dll is
int splitstr (char *str, int len, int bold, int start);
This returns a number and modifies the string passed in, hence the first parameter is a char pointer.
The first function loads the DLL into the form workspace.
Function 1:
FUNCTION Fn_Load_Function (p_func_name IN VARCHAR2)
RETURN ORA_FFI.FuncHandleType IS
l_lib ORA_FFI.LibHandleType;
l_func ORA_FFI.FuncHandleType;
BEGIN
BEGIN
l_lib := ORA_FFI.Find_Library('MYDLL.dll');
EXCEPTION
WHEN OTHERS
THEN
l_lib := ORA_FFI.Load_Library('.','MYDLL.dll');
END;
--
l_func := ORA_FFI.Register_Function(l_lib,p_func_name,ORA_FFI.C_STD);
--
Return l_func;
EXCEPTION
WHEN OTHERS
THEN
FOR c IN 1..Tool_Err.NErrors
LOOP
Message(Tool_Err.Message);
Tool_Err.Pop;
END LOOP;
END Fn_Load_Function;
And now the form function to actually make the call to the DLL.
FUNCTION Fn_Split (p_text IN OUT VARCHAR2,
p_wid IN BINARY_INTEGER,
p_att IN VARCHAR2,
p_start IN BINARY_INTEGER)
RETURN NUMBER IS
l_fn ORA_FFI.FuncHandleType;
--
FUNCTION dll_split(pFh IN ORA_FFI.funcHandleType,
str IN OUT VARCHAR2,
wid IN BINARY_INTEGER,
bld IN BINARY_INTEGER,
strt IN BINARY_INTEGER)
RETURN pls_integer;
--
PRAGMA interface( c, dll_split, 11265);
BEGIN
IF p_text IS NULL
THEN
Return NULL;
END IF;
--
l_fn := Fn_Load_Function('splitstr');
--
ORA_FFI.register_parameter(l_fn,ORA_FFI.C_CHAR_PTR );
ORA_FFI.register_parameter(l_fn,ORA_FFI.C_INT );
ORA_FFI.register_parameter(l_fn,ORA_FFI.C_INT );
ORA_FFI.register_parameter(l_fn,ORA_FFI.C_INT );
ORA_FFI.register_return(l_fn,ORA_FFI.C_INT );
--
Return dll_split(l_fn,p_text,p_wid,p_att,p_start);
END Fn_Split;
If you have a function in your library that returns nothing, you do not need to register a return value.
HTH
Himanshu
|
|
|
|
|
|
|
|
| Re: steps to call a function in VC+ dll [message #668136 is a reply to message #668092] |
Thu, 08 February 2018 08:53 |
 |
Kokew2000
Messages: 12
Registered: December 2017
|
Junior Member |
|
|
hi
thanks for replay but i still cant understand the parameters and how to use it
this is my c dll code
const hasp_feature_t feature = 8;
hasp_handle_t handle = HASP_INVALID_HANDLE_VALUE;
hasp_status_t status;
unsigned char vendor_code[] =
"P+bvguFqumejqvwOmvNDruTN3d0v4O5YpN+Q3sDSPPP8EnanCZJP/9P6a3KQvkXtjZTLAUnoZSnzM0d+";
status = hasp_login(feature, vendor_code, &handle);
/* check if operation was successful */
if (status != HASP_STATUS_OK)
{
switch (status)
{
case HASP_FEATURE_NOT_FOUND:
break;
case HASP_HASP_NOT_FOUND:
break;
case HASP_OLD_DRIVER:
break;
case HASP_NO_DRIVER:
break;
case HASP_INV_VCODE:
break;
case HASP_FEATURE_TYPE_NOT_IMPL:
break;
case HASP_TMOF:
break;
case HASP_TS_DETECTED:
break;
default:
break;
}
}
if you can make it for me please help
many thanks for you again
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
