Subject Create Database access internet
Author christophermarkstrauss
When trying to create the database the code in IB_Intf at the
procedure below (on the Result = line) attempts to access the
internet on IP 66.18.65.1 when I have an invalid Userid/password
combination. With a valid combination it does not. I have referred
this to FibPlus support and they said it is not their code doing it
but that I should send this to the firebird support group

I discovered this since I have a firewall installed that also
monitors outgoing Internet activity.

Can you please let me know why this is the case as I do not want to
have an application that I am going to market, access the internet
for any other reason than one that I elect it to do. Also if I deny
access to the internet then the Creation fails and the database is
not created

function TIBClientLibrary.isc_dsql_execute_immediate(

status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;

tran_handle: PISC_TR_HANDLE; length: UShort; statement: PChar;

dialect: UShort; xsqlda: PXSQLDA): ISC_STATUS;

begin

if Assigned(Fisc_dsql_execute_immediate) then

Result:=

Fisc_dsql_execute_immediate(status_vector, db_handle,tran_handle,
length,statement,dialect,xsqlda)

else

raise

EAPICallException.Create(Format(SCantFindApiProc,
['isc_dsql_execute_immediate',FLibraryName]));

end;



The function above is called from the FIB procedure below when I
create a database

procedure TFIBDatabase.CreateDatabase;

var

tr_handle: TISC_TR_HANDLE;

begin

// Create database interprets the DBParams string list

// as mere text. It makes it extremely simple to do this way.

CheckInactive; // Make sure the database ain't connected.

LoadLibrary;

tr_handle := nil;

Call(

FClientLibrary.isc_dsql_execute_immediate(StatusVector, @FHandle,
@tr_handle, 0,

PChar('CREATE DATABASE ''' + FDBName + ''' ' +DBParams.Text

), SQLDialect, nil),

True

);

end;



When I browse for the IP address I get a Gif returned