Devart Forums

-ChrisE-

Hello,

we also have this problem. Do you know when the next Version will be released with the fix for this problem?

Best regards,

Chris

-ChrisE-

Thank you for support.

Work's fine

-ChrisE-

Hello,

we use Delphi 2007 and have IBDAC with Source-Code. Till Version 3.XX everything works fine with our project-options (record-alignment 1 instead of 8 ).
Now with Version 4.X it works only with record-alignment 8.

You can reproduce it with an new project with an Button and an TIBConnection. In the ButtonClick try to connect to any DB.
Set the project-options -> record-alignment to 1. Build and run

Can you please fix this.

Thanks, Chris

-ChrisE-

Hello,

that's ok for me.

Thanks for support.

Chris

-ChrisE-

Hello,

ok. I know what's wrong

It is not possible in Firebird to access an db on an volumen that is not owned by the maschine where the process is runnig.

But when you use Firebird 2.5 you are able to set an parameter in the firebird.conf to do this.
It's extrem risky to do this - see the comments in firebird.conf for the parameter.

RemoteFileOpenAbility

I think there should be an way with extrem careful programming to access the db with this parameter.

Thats all.

Best regards,

Chris

-ChrisE-

Hello,

thx for this. But there is one thing.

When I connect to an server with this code

Code: Select all

IBCConnection.Server := 'server'; 
IBCConnection.Database := 'testdb'; // Alias-Conf in Server
IBCConnection.Connect;

everything works fine.

I just copy the DB-File from the server to an folder on the maschine and change the Server and Database-Property as described above, recompile and got this error.
Change this propertys back to the server-connection and everythiong works fine.
And when I do the "Workarround" with SetCurrentDir before and after the connect, I can connect to EMB-Files and also to installed servers.

That is reason for this thread.

THX for help,

Chris

BTW: Here are the changes in the Release Notes for FB 2.5 http://firebirdsql.org/rlsnotesh/rlsnot ... ne-embddll for loading the fbemded.dll. They wrote, that we do not longer have to copy the EMB-Files into the app-directory.
And also in the Mailing-List you can find some programmers who have problems with that http://sourceforge.net/mailarchive/foru ... bird-devel They solved the problem also with

- call SetDllDirectory() on the directory where fbembed.dll is before
calling LoadLibrary(), or
- call LoadLibraryEx() with LOAD_WITH_ALTERED_SEARCH_PATH

-ChrisE-

Hello,

IBDAC V 3.50.0.21
Firebird 2.5.0 Emb (without installation)

I try to connect to an Databasefile directly

Code: Select all

IBCConnection.Server := '';
IBCConnection.Database := 'D:\DBs\testdb.db';

When I call connect (after solving this http://www.devart.com/forums/viewtopic.php?t=20559), everything works fine.

But when I set the Database-Porperty to an File on an Networkdrive e.g. Z:\testdb.db I got this Error:

Unable to complete network request to host "SERVER".
Failed to establish a connection.

where SERVER is the Networkshare-Provider.

Do you have any idea what's wrong in this code. Server-Property is blank.

Thanks for help.

Chris

-ChrisE-

Hello again

Now, i have got the error again. And I know how to reproduce:
- Blank system (no Firebird-Installation)
- Own application with an subfolder \DBLibs (content is the whole FBEmb-ZIP 2.5.0)
- Setting ClientLibrary of Connection like this

Code: Select all

IBCConnection.ClientLibrary := ExtractFilePath(Application.ExeName) + 'DBLibs\fbembed.dll';

- Connecting filebased to an Database with

Code: Select all

IBCConnection.Server := '';
IBCConnection.Database := D:\FB_DBs\testdb.db';
IBCConnection.Connect;

So you get an error:

COLLATION UNICODE_CI for CHARACTER SET UTF8 is not installed (Error: -204)

If you make an own connect like this

Code: Select all

function TForm1.OwnConnect: Boolean; 

var 
  origDir: string; 
begin 
  origDir := GetCurrentDir; 
  try 
    SetCurrentDir(ExtractFilePath(ExpandFileName(IBCConnection.ClientLibrary))); 
    IBCConnection.Connect; 

    // do some other stuff 

  finally 
    SetCurrentDir(origDir); 
  end; 
end;

it works perfect.

Do you have any idea, why there is an difference between connecting to an Server and connecting filebased/direct to an DB?

Thanks for help.

Chris

-ChrisE-

I'm sorry.

The error is gone - I don't know why.

We already did it in that way (Full-Path + \DBLibs\fbembed.dll).

Sorry for this post

Chris

-ChrisE-

Hello,

we use IBDAC 3.50.0.21 with Firebird-Emb 2.5.

We don't install the Firebird-Emb-Files on the maschine. We just put all of them (the hole content of the zip-file from FireBird-Emb-ZIP) into an Subfolder DBLibs of the application.

Now we set the property ClientLibrary of the TIBCConnection to this Path
(+'DBLibs\fbembed.dll').

When we call "connect" this doesn't work. Only if we put some code arround connect like this:

Code: Select all

function TForm1.OwnConnect: Boolean;

var
  origDir: string;
begin
  origDir := GetCurrentDir;
  try
    SetCurrentDir(ExtractFilePath(ExpandFileName(FIBCConnection.ClientLibrary)));
    FIBCConnection.Connect;

    // do some other stuff

  finally
    SetCurrentDir(origDir);
  end;
end;

Is it possible to make this behavior part of the code from IBDAC. So we don't need to put the hole Firebird-Dlls into the Application-Path.

Thank you for help.

Chris

-ChrisE-

FireBird 2.5

-ChrisE-

Hello AndreyZ,

thx for reply. Work's perfect

Because I have an Before-Insert-DB-Trigger for the generator it's a little simpler:

Code: Select all

FIBCQuery.SQL.Clear; 
FIBCQuery.SQL.Add('INSERT INTO mytable (ID, NAME)'); 
FIBCQuery.SQL.Add('VALUES (:NAME)'); 
FIBCQuery.SQL.Add('RETURNING ID'); 
FIBCQuery.Prepare; 
FIBCQuery.ParamByName('NAME').AsString := 'test'; 
FIBCQuery.Execute; 
result := FIBCQuery.ParamByName('RET_ID').AsLargeInt;

THX for support

Chris

-ChrisE-

Hello calou,

thx for help

For all the other who need a solution here is the full code

Code: Select all

FIBCQuery.SQL.Clear; 
FIBCQuery.SQL.Add('INSERT INTO mytable (NAME)'); 
FIBCQuery.SQL.Add('VALUES (:NAME)'); 
FIBCQuery.SQL.Add('RETURNING ID');

with TParam(FIBCQuery.Params.Add) do
begin
  ParamType := ptResult;
  DataType := ftLargeint;
  Name := 'RET_ID';
end;

FIBCQuery.ParamByName('NAME').AsString := AName; 

FIBCQuery.Prepare; 
FIBCQuery.Execute; 
result := FIBCQuery.ParamByName('RET_ID').Value; // Need Value because ID is BigInt/LargInt/Int64

Chris

-ChrisE-

Hello,

sorry, but I can't find anything in the Help-File or the demos for this "easy" problem.

I use an TIBCQuery to insert data into an Table

Code: Select all

MyTable
ID: BigInt;
Name: VarChar(100);

The table has an generator for the ID.

The InsertCode is:

Code: Select all

FIBCQuery.SQL.Clear;
FIBCQuery.SQL.Add('INSERT INTO mytable (NAME)');
FIBCQuery.SQL.Add('VALUES (:NAME)');
FIBCQuery.SQL.Add('RETURNING ID');

FIBCQuery.ParamByName('NAME').AsString := AName;

FIBCQuery.Prepare;
FIBCQuery.Execute;
if FIBCQuery.RecordCount > 0 then
begin
  result := FIBCQuery.ParamByName('ID').Value;
end else
begin
  result := -1;
end;

How can I get the return value?

I have tried several things:

Code: Select all

FIBCQuery.Options.ReturnParams := TRUE;
//---
FIBCQuery.DMLRefresh := TRUE;

What is wrong?

I use Delphi 2007 with IBDAC 3.50.19

Chris

-ChrisE-

Hello Dimon,

as I wrote above everything works now. It was just an wrong configured EventPort in the FireBird-Server (firebird.conf).

[Edit]... so the the server Windows-Firewall blocked the event communication...[/Edit]

The Version is 3.10.0.14.

THX for reply.

Chris

Devart Forums

Search found 17 matches

Re: TIBCAlerter error after upgrading to 5.6.20

Record-Alignment and Version 4.0.1

Filebased connection to Databasefile on Networkshare

TIBCConnection and setting ClientLibrary

TIBCQuery and RETURNING-Statemant