Zeoslib Portal

Code: Select all

  // Zeos method
  //
  with SQLConnection do
  begin
    // Create the dB connection to a Firebird database
    //SQLConnection := TZConnection.Create(nil);

    // This is the default IP if the config file does not specify an alternative path
    HostName                := AHostName;
    // A zero hostname or HTTP Port #80. Zero if hostname is localhost and #80
    // otherwise
    Port                    := APort;
    Database                := TNSNAME;
    Protocol                := 'firebird-2.5';
    User                    := LOGIN_ID;
    Password                := LOGIN_PW;
    AutoCommit              := False;
    TransactIsolationLevel  := tiReadCommitted;

    // UTF-8 connection properties
    with Properties do
    begin
      Add('character_set_client=utf8');
      Add('character_set_connection=utf8');
      Add('character_set_database=utf8');
      Add('character_set_results=utf8');
      Add('character_set_server=utf8');
      Add('character_set_system=utf8');
      Add('collation_connection=utf8_general_ci');
      Add('collation_database=utf8_general_ci');
      Add('collation_server=utf8_general_ci');
      Add('Codepage=utf8');
      Add('isc_tpb_concurrency');       // needed for multiuser environments
      Add('isc_tpb_nowait');            // needed for multiuser environments
      Add('isc_tpb_read_committed');    // Added on 04/12/2015 source: http://tracker.firebirdsql.org/browse/CORE-3108
      Add('isc_tpb_rec_version');       // Added on 04/12/2015 source: http://tracker.firebirdsql.org/browse/CORE-3108
    end;      // with Properties do

    // Connect to the database
    Connect;
  end;