Accessing developer 6i functions from C++ builder

Question

how can i call a function in dev 6i from a c++ builder application and pass its arguments and retrieving the result from an oracle database?

Answer 1

Hi,
you can not call a function from forms but you can call a stored procedure/function.
From Metalink, an example of How to call stored procedure returning date as out parameter
Overview
This example demonstrates how to call a stored procedure that returns
a date column as an OUT parameter. The program is written in C using
the ODBC API.
Program Notes
o Steps to build the sample application:
1. create the procedure check_date from the pl/sql provided using
SQL*PLUS or Sqlworksheet.
2. Create a new win-32 console application using MSVC 6.0.
3. Add the an empty cpp source file to the project.
4. Add the ODBC32.lib library to the project. (This should be located
in the Microsoft Visual Studio\vc98\lib directory)
5. Paste the code provided into the .cpp file.
6. Choose the build command from the Build pull down menu.
o The sample was tested using the following components:
1. Windows NT 4.0 SP 6
2. MSVC 6.0
3. Oracle ODBC Driver 8.1.6.2.0
4. Oracle RDBMS 8.1.6.0.0
5. Oracle Net 8 8.1.6.0.0
References
Information in this article was taken from Oracle Source Code Repository
Entry # 612.
Caution
The sample program in this article is provided for educational purposes only
and is NOT supported by Oracle Support Services. It has been tested
internally, however, and works as documented. We do not guarantee that it
will work for you, so be sure to test it in your environment before relying
on it.
Program
- - - - - - - - - - - - - - - - Code begins here - - - - - - - - - - - - - - - -
-- The PL/SQL procedure
create or replace procedure check_date(inNum IN number, outDate OUT DATE) is
begin
select sysdate into outDate from dual;
end;
// The C source code
#include <windows.h>
#include <stdio.h>
#include <sql.h>
#include <sqlext.h>
#pragma comment(lib, "odbc32.lib")
UCHAR szSqlState[200];
SDWORD pfNativeError;
UCHAR szErrorMsg[200];
SWORD cbErrorMsgMax = 200;
SWORD pcbErrorMsg;
int show_error();
static HENV henv;
HDBC hdbc;
HSTMT hStmt;
HWND hwnd;
int show_error();
int main() {
char db_name[100];
char username[100];
char password[100];
SDWORD cbOut;
TIMESTAMP_STRUCT inData2;
int inData1;
if ( SQLAllocEnv ( &henv ) != SQL_SUCCESS )
return -1 ;
if ( SQLAllocConnect (henv, &hdbc ) != SQL_SUCCESS )
return -1 ;
printf("Username: ");
gets((char *) username);
printf("Password: ");
gets((char *) password);
printf("Data Source Name: ");
gets((char *) db_name);
if ( SQLConnect ( hdbc, (unsigned char*)db_name, SQL_NTS,(unsigned char*)username, SQL_NTS, (unsigned char*)password, SQL_NTS ) != SQL_SUCCESS ) {
printf("Cannot connect as %s.\n", username);
printf("Try again.\n\n");
return -1;
if (SQLAllocStmt(hdbc, &hStmt) != SQL_SUCCESS) {
show_error() ;
return(-1);
inData1 = 10;
cbOut=0;
if ( SQLBindParameter(hStmt, 1, SQL_PARAM_INPUT, SQL_C_SSHORT, SQL_INTEGER, 0, 0,&inData1, 0, &cbOut) != SQL_SUCCESS ) {
show_error() ;
return(-1);
cbOut=sizeof(TIMESTAMP_STRUCT);
if ( SQLBindParameter(hStmt, 2, SQL_PARAM_OUTPUT, SQL_C_TIMESTAMP, SQL_TIMESTAMP, 19, 0,&inData2, 0, &cbOut) != SQL_SUCCESS ) {
show_error() ;
return(-1);
if ( SQLPrepare(hStmt, (unsigned char*)"{call check_date(?,?)}", SQL_NTS) != SQL_SUCCESS)
return(-1) ;
if (SQLExecute(hStmt) != SQL_SUCCESS) {
show_error() ;
return -1;
printf("The date is:\nyear: %d\nmonth: %d\nday: %d\n", inData2.year, inData2.month, inData2.day);
if (SQLFreeStmt(hStmt,SQL_DROP) != SQL_SUCCESS) {
show_error() ;
return -1;
if (SQLDisconnect(hdbc) != SQL_SUCCESS) {
show_error() ;
return -1;
return(0) ;
int show_error() {
int retcode;
retcode = SQLError(henv, hdbc, hStmt, szSqlState, &pfNativeError, szErrorMsg, cbErrorMsgMax, &pcbErrorMsg);
printf("%d - %s \n",retcode, szErrorMsg);
return(0);
- - - - - - - - - - - - - - - - Code ends here - - - - - - - - - - - - - - - -
Sample Output
The Date is:
year: 2000
month: 11
day: 9
press any key to continue
Monica