Client-Server Delphi Application Using Firebird 2.5 Embedded Connection Error

Question

I have a long question. First of all, I'm still very new when it comes to Delphi programming, and my experience is mainly developing small applications for a single-user database using ADO and Access database.

I need to go now to the client server application, and here the problem begins. I decided to use Firebird 2.5 as my database, as it is open source and can be used with interbase components in Delphi and that several clients can access the database at the same time. So I followed the interbase tutorial at Delphi. I managed to connect the client to the server and see the data in the example (while both are running on my computer), but when I tried to move the client to another computer, leaving the server on my computer and running it to see, it could connect to the server, it gave me following error.

EIdSocketError exception in clientDemo.exe module at 0029DCAC. Socket Error # 10061 Connection refused.

I understand that this may be due to the fact that the host is defined as localhost on the client. But here is my first question. In TSQLConncetion, you can specify the host name under Driver-> Hostname. I want to know how to do this at runtime since I cannot get a property when I try to make an edit window to allow the user to enter a value and then set it using code, for example:

SQLConncetion1.Driver.Hostname: = edtHost.text; This cannot be done in this way, and the only way I can see is to set the host name using the object inspector, but it is not available at runtime, and I need to set the host name on the client when the program is running for the first time, so how do you set hostname / ip address at runtime?

Im using Delphi XE2

- , , , .

Answer 1

Embedded ( ). . . SO, .

, :

procedure TForm1.Button1Click(Sender: TObject);
var 
 Conn: TSQLConnection;
begin
  Conn := TSQLConnection.Create(Self);
  try
    Conn.DriverName := 'FirebirdConnection';
    Conn.Params.Add('User_Name=SYSDBA');
    Conn.Params.Add('Password=masterkey');

    // Replace the dbname in the next line with the
    // value obtained at runtime, as  in
    // Conn.Params.Add('Database=' + YourNewPathAndDBName);
    Conn.Params.Add('Database=C:\FireBirdData\YourDB.fdb');

    Conn.Open;
    if Conn.Connected then
      ShowMessage('Connection successfully made to DB');
  finally
    Conn.Free;
  end;
end;