int main(void)
{
OCI_Connection *cn;
OCI_Statement *st;
OCI_Object *racing_car;
OCI_TypeInfo *vehicule_type_inf;
OCI_TypeInfo *car_type_inf;
OCI_TypeInfo *racing_car_type_inf;
char buffer[512];
unsigned int size = sizeof(buffer) - 1;
if (!OCI_Initialize(err_handler, NULL, OCI_ENV_DEFAULT))
{
return EXIT_FAILURE;
}
cn = OCI_ConnectionCreate("db", "usr", "pwd", OCI_SESSION_DEFAULT);
st = OCI_StatementCreate(cn);
racing_car = OCI_ObjectCreate(cn, OCI_TypeInfoGet(cn, "racing_car_type", OCI_TIF_TYPE));
OCI_Prepare(st, "begin :obj := racing_car_type(1,'Formula1', 123456789, 300); end;");
OCI_BindObject(st, "obj", racing_car);
OCI_Execute(st);
OCI_ObjectToText(racing_car, &size, buffer);
printf("Object => %s\n", buffer);
racing_car_type_inf = OCI_ObjectGetTypeInfo(racing_car);
car_type_inf = OCI_TypeInfoGetSuperType(racing_car_type_inf);
vehicule_type_inf = OCI_TypeInfoGetSuperType(car_type_inf);
printf("Is type '%s' final => %d\n", OCI_TypeInfoGetName(racing_car_type_inf), OCI_TypeInfoIsFinalType(racing_car_type_inf));
printf("Is type '%s' final => %d\n", OCI_TypeInfoGetName(car_type_inf), OCI_TypeInfoIsFinalType(car_type_inf));
printf("Is type '%s' final => %d\n", OCI_TypeInfoGetName(vehicule_type_inf), OCI_TypeInfoIsFinalType(vehicule_type_inf));
OCI_ObjectFree(racing_car);
OCI_StatementFree(st);
OCI_ConnectionFree(cn);
OCI_Cleanup();
return EXIT_SUCCESS;
}
int main(int argc, char **argv)
{
OCI_Connection *cn;
OCI_Statement *st;
OCI_Object *obj_sdo;
OCI_Coll *coll_inf, *coll_ord;
OCI_Elem *elem_inf, *elem_ord;
OCI_TypeInfo *tif_inf, *tif_ord, *tif_sdo;
int i;
/* check command line */
if (argc < 3)
{
fprintf(stderr, "Usage: %s user password\n", argv[0]);
return EXIT_FAILURE;
}
/* init OCILIB */
if (OCI_Initialize(error, NULL, OCI_ENV_DEFAULT))
{
/* connect to oracle */
if (cn = OCI_ConnectionCreate(NULL, argv[1], argv[2], OCI_SESSION_DEFAULT))
{
printf ("\nConnected to Oracle.\n");
/* retreive type info */
tif_sdo = OCI_TypeInfoGet(cn, "MDSYS.SDO_GEOMETRY", OCI_TIF_TYPE);
tif_inf = OCI_TypeInfoGet(cn, "MDSYS.SDO_ELEM_INFO_ARRAY", OCI_TIF_TYPE);
tif_ord = OCI_TypeInfoGet(cn, "MDSYS.SDO_ORDINATE_ARRAY", OCI_TIF_TYPE);
/* create sdo object */
obj_sdo = OCI_ObjectCreate(cn, tif_sdo);
/* create sub arrays */
coll_inf = OCI_CollCreate(tif_inf);
coll_ord = OCI_CollCreate(tif_ord);
/* create sub array element accessors */
elem_inf = OCI_ElemCreate(tif_inf);
elem_ord = OCI_ElemCreate(tif_ord);
/* build ordinates collection with test values */
for (i = 0; i < NB_ELEM; i++)
{
OCI_ElemSetDouble(elem_ord, (double) i);
OCI_CollAppend(coll_ord, elem_ord);
OCI_CollAppend(coll_ord, elem_ord);
}
/* setup information collection attribute 'starting_offset' */
OCI_ElemSetUnsignedInt(elem_inf, 1);
OCI_CollAppend(coll_inf, elem_inf);
/* setup information collection attribute 'element_type' */
OCI_ElemSetUnsignedInt(elem_inf, 1);
OCI_CollAppend(coll_inf, elem_inf);
/* setup information collection attribute 'interpretation' */
OCI_ElemSetUnsignedInt(elem_inf, 1);
OCI_CollAppend(coll_inf, elem_inf);
/* set sdo object member attributes */
OCI_ObjectSetInt(obj_sdo, "SDO_GTYPE", 4);
OCI_ObjectSetNull(obj_sdo, "SDO_SRID");
OCI_ObjectSetNull(obj_sdo, "SDO_POINT");
OCI_ObjectSetColl(obj_sdo, "SDO_ELEM_INFO", coll_inf);
OCI_ObjectSetColl(obj_sdo, "SDO_ORDINATES", coll_ord);
/*create statement object */
st = OCI_StatementCreate(cn);
/* prepare, bind and excute statement then commit*/
OCI_Prepare(st, "INSERT INTO test_insert (gid, geometry) VALUES (1, :sdo)");
OCI_BindObject(st, "sdo", obj_sdo);
OCI_Execute(st);
OCI_Commit(cn);
/* free local objects */
OCI_ObjectFree(obj_sdo);
OCI_CollFree(coll_inf);
OCI_CollFree(coll_ord);
OCI_ElemFree(elem_inf);
OCI_ElemFree(elem_ord);
}
}
/* disconnect from oracle and cleanup OCILIB */
OCI_Cleanup();
printf ("\nDisconnected from Oracle.\n");
return EXIT_SUCCESS;
}
