mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 16:25:54 +01:00
220 lines
6.6 KiB
C
220 lines
6.6 KiB
C
/*
|
|
* Program type: API
|
|
*
|
|
* Description:
|
|
* This program demonstrates constructing a database
|
|
* parameter buffer and attaching to a database.
|
|
* First manually set sweep interval, then
|
|
* The user and password is set to "guest" with expand_dpb
|
|
* Then get back the sweep interval and other useful numbers
|
|
* with an info call.
|
|
* This program will accept up to 4 args. All are positional:
|
|
* api15 <db_name> <user> <password> <sweep_interval>
|
|
*
|
|
* Note: The system administrator needs to create the account
|
|
* "guest" with password "guest" on the server before this
|
|
* example can be run.
|
|
* The contents of this file are subject to the Interbase Public
|
|
* License Version 1.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy
|
|
* of the License at http://www.Inprise.com/IPL.html
|
|
*
|
|
* Software distributed under the License is distributed on an
|
|
* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
|
|
* or implied. See the License for the specific language governing
|
|
* rights and limitations under the License.
|
|
*
|
|
* The Original Code was created by Inprise Corporation
|
|
* and its predecessors. Portions created by Inprise Corporation are
|
|
* Copyright (C) Inprise Corporation.
|
|
*
|
|
* All Rights Reserved.
|
|
* Contributor(s): ______________________________________.
|
|
*/
|
|
|
|
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
#include "example.h"
|
|
#include <ibase.h>
|
|
|
|
int main (int argc, char** argv)
|
|
{
|
|
isc_db_handle db = NULL; /* database handle */
|
|
isc_tr_handle trans = NULL; /* transaction handle */
|
|
isc_stmt_handle stmt = NULL;
|
|
ISC_STATUS_ARRAY status; /* status vector */
|
|
char dbname[128];
|
|
char user_name[31], uname[81];
|
|
short nullind;
|
|
char password[31];
|
|
|
|
/* Query to find current user name */
|
|
static char *query = "SELECT USER FROM RDB$DATABASE";
|
|
char * dpb = NULL, /* DB parameter buffer */
|
|
*d, *p, *copy;
|
|
XSQLDA *sqlda;
|
|
|
|
short dpb_length = 0;
|
|
long l,sweep_interval = 16384;
|
|
|
|
/* All needed for analyzing an info packet */
|
|
char buffer[100]; /* Buffer for db info */
|
|
char item;
|
|
short length;
|
|
long value_out;
|
|
|
|
/* List of items for db_info call */
|
|
static char db_items [] = {
|
|
isc_info_page_size,
|
|
isc_info_allocation,
|
|
isc_info_sweep_interval,
|
|
isc_info_end
|
|
};
|
|
|
|
strcpy(user_name, "guest");
|
|
strcpy(password, "guest");
|
|
strcpy(dbname, "employee.fdb");
|
|
|
|
if (argc > 1)
|
|
strcpy(dbname, argv[1]);
|
|
if (argc > 2)
|
|
strcpy(user_name, argv[2]);
|
|
if (argc > 3)
|
|
strcpy(password, argv[3]);
|
|
if (argc > 4)
|
|
sweep_interval = atoi(argv[4]);
|
|
|
|
/* Adding sweep interval will be done by hand
|
|
** First byte is a version (1), next byte is the isc_dpb_sweep
|
|
** byte, then a length (4) then the byte-swapped int we want
|
|
** to provide -- 7 bytes total
|
|
*/
|
|
|
|
copy = dpb = (char *) malloc(7);
|
|
p = dpb;
|
|
*p++ = '\1';
|
|
*p++ = isc_dpb_sweep_interval;
|
|
*p++ = '\4';
|
|
l = isc_vax_integer((char *) &sweep_interval, 4);
|
|
d = (char *) &l;
|
|
*p++ = *d++;
|
|
*p++ = *d++;
|
|
*p++ = *d++;
|
|
*p = *d;
|
|
dpb_length = 7;
|
|
|
|
/* Add user and password to dpb, much easier. The dpb will be
|
|
** new memory.
|
|
*/
|
|
isc_expand_dpb(&dpb, (short *) &dpb_length,
|
|
isc_dpb_user_name, user_name,
|
|
isc_dpb_password, password, NULL);
|
|
|
|
/*
|
|
** Connect to the database with the given user and pw.
|
|
*/
|
|
printf("Attaching to %s with user name: %s, password: %s\n",
|
|
dbname, user_name, password);
|
|
printf("Resetting sweep interval to %ld\n", sweep_interval);
|
|
|
|
if (isc_attach_database(status, 0, dbname, &db, dpb_length, dpb))
|
|
isc_print_status(status);
|
|
|
|
|
|
/* Prove we are "guest" . Query a single row with the
|
|
** key word "USER" to find out who we are
|
|
*/
|
|
if (isc_start_transaction(status, &trans, 1, &db, 0, NULL))
|
|
isc_print_status(status);
|
|
|
|
/* Prepare sqlda for singleton fetch */
|
|
sqlda = (XSQLDA *) malloc(XSQLDA_LENGTH(1));
|
|
sqlda->sqln = sqlda->sqld = 1;
|
|
sqlda->version = 1;
|
|
sqlda->sqlvar[0].sqldata = uname;
|
|
sqlda->sqlvar[0].sqlind = &nullind;
|
|
|
|
/* Yes, it is possible to execute a singleton select without
|
|
** a cursor. You must prepare the sqlda by hand.
|
|
*/
|
|
isc_dsql_allocate_statement(status, &db, &stmt);
|
|
if (isc_dsql_prepare(status, &trans, &stmt, 0, query, 1, sqlda))
|
|
{
|
|
ERREXIT(status, 1)
|
|
}
|
|
/* Force to type sql_text */
|
|
sqlda->sqlvar[0].sqltype = SQL_TEXT;
|
|
|
|
if (isc_dsql_execute(status, &trans, &stmt, 1, NULL))
|
|
{
|
|
ERREXIT(status, 1)
|
|
}
|
|
/* There will only be one row. If it isn't there, something is
|
|
** seriously wrong.
|
|
*/
|
|
if (isc_dsql_fetch(status, &stmt, 1, sqlda))
|
|
{
|
|
ERREXIT(status, 1)
|
|
}
|
|
|
|
isc_dsql_free_statement(status, &stmt, DSQL_close);
|
|
|
|
uname[sqlda->sqlvar[0].sqllen] = '\0';
|
|
printf ("New user = %s\n", uname);
|
|
if (isc_commit_transaction(status, &trans))
|
|
{
|
|
ERREXIT(status, 1)
|
|
}
|
|
|
|
/* Look at the database to see some parameters (like sweep
|
|
** The database_info call returns a buffer full of type, length,
|
|
** and value sets until info_end is reached
|
|
*/
|
|
|
|
if (isc_database_info(status, &db, sizeof(db_items), db_items,
|
|
sizeof (buffer), buffer))
|
|
{
|
|
ERREXIT(status, 1)
|
|
}
|
|
|
|
for (d = buffer; *d != isc_info_end;)
|
|
{
|
|
value_out = 0;
|
|
item = *d++;
|
|
length = (short) isc_vax_integer (d, 2);
|
|
d += 2;
|
|
switch (item)
|
|
{
|
|
case isc_info_end:
|
|
break;
|
|
|
|
case isc_info_page_size:
|
|
value_out = isc_vax_integer (d, length);
|
|
printf ("PAGE_SIZE %ld \n", value_out);
|
|
break;
|
|
|
|
case isc_info_allocation:
|
|
value_out = isc_vax_integer (d, length);
|
|
printf ("Number of DB pages allocated = %ld \n",
|
|
value_out);
|
|
break;
|
|
|
|
case isc_info_sweep_interval:
|
|
value_out = isc_vax_integer (d, length);
|
|
printf ("Sweep interval = %ld \n", value_out);
|
|
break;
|
|
}
|
|
d += length;
|
|
}
|
|
|
|
isc_detach_database(status, &db);
|
|
isc_free(dpb);
|
|
free(copy);
|
|
free(sqlda);
|
|
|
|
return 0;
|
|
}
|
|
|