Subject | Create Database access internet |
---|---|
Author | christophermarkstrauss |
Post date | 2004-12-08T18:22:56Z |
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
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