Oracle/es

 program oracharset;

 { Muestra información del conjunto de caracteres/NLS (Soporte Nacional de Lenguaje) utilizado en Cliente y Servidor}
 { Por favor edita los datos de conexión primero: nombre usuario, contraseña, nombre de servidor y base de datos. }

 {$mode objfpc}{$H+}

 uses {$IFDEF UNIX} {$IFDEF UseCThreads}
   cthreads, {$ENDIF} {$ENDIF}
   Classes,
   SysUtils,
   sqldb,
   oracleconnection;

 var
   Col: integer;
   Conn: TOracleConnection; { para la conexión }
   Tran: TSQLTransaction;   { para la transacción }
   Q: TSQLQuery;            { para la query o consulta }
 begin
   Conn := TOracleConnection.Create(nil); { Creamos Conexión reservando recursos }
   Tran := TSQLTransaction.Create(nil); {Creamos Transacción reservando recursos}
   Q := TSQLQuery.Create(nil); { Creamos consulta reservando recursos }
   try
     // * EDITAR INFORMACIÓN DE IDENTIFICACIÓN SEGÚN SEA NECESARIO *
     Conn.HostName := '';             { HostName: nombre del equipo al que conectamos }
     Conn.UserName := 'system';       { UserName: usuario de BB.DD con el que nos validamos }    
     Conn.Password := '';             { Password: contraseña del usuario para conectar a la BB.DD }
     Conn.DatabaseName := 'XE';       { DatabaseName: nombre de la base de datos (BB.DD)a la que conectamos dentro del servidor }
     // * FIN INFORMACIÓN DE IDENTIFICACIÓN *
     Conn.Transaction := Tran;
     Q.DataBase := Conn; { Pasamos los datos de conexión a la Query }
     Conn.Open; { Abrimos conexión }
     Tran.Active := true;

     writeln('Información del conjunto de caracteres del Servidor:');
     Q.SQL.Text := 'SELECT value$ FROM sys.props$ WHERE name like ''NLS_%'' ';
     Q.Open;
     Q.First;
     while not (Q.EOF) do  { Mientras la query no nos devuelva final hacer esto... }
      begin
       writeln('*****************');
       for Col := 0 to Q.Fields.Count - 1 do { desde columna 0 hasta cuenta de campos-1...}
        begin
         try
          writeln(Q.Fields[Col].DisplayLabel + ':'); { Imprimimos en pantalla la etiqueta del campo con índice Col }
          writeln(Q.Fields[Col].AsString); { Imprimimos en pantalla el campo con índice Col de la query, retornado como cadena }
         except
          writeln('Error solicitando campo ', Col);
         end;
        end;
       Q.Next;
      end;
      Q.Close;

      writeln('');
      writeln('Información del conjunto de caracteres del cliente:');
      Q.SQL.Text := 'SELECT * FROM NLS_SESSION_PARAMETERS ';
      Q.Open;
      Q.First;
      while not (Q.EOF) do
       begin
        writeln('*****************');
        for Col := 0 to Q.Fields.Count - 1 do
         begin
          try
           writeln(Q.Fields[Col].DisplayLabel + ':');
           writeln(Q.Fields[Col].AsString);
          except
           writeln('Error solicitando campo ', Col);
          end;
         end;
         Q.Next;
       end;
       Q.Close;
       // *FIN DE CÓDIGO DE EJEMPLO DE TESTEO DE ERROR*
       Conn.Close; { Cerramos la conexión }
   finally
    Q.Free; { Liberamos los recursos de la query }
    Tran.Free; { Liberamos los recursos de la transacción }
    Conn.Free; { Liberamos los recursos de la conexión }
   end;
   writeln('Programa completado. Presiona cualquier tecla para continuar.');
   readln;
 end.