Leer un Archivo INI en CodeTyphon para Windows

[TiammatMX]

¡Listo!, pues eso. Ya tengo mi proyecto, se conecta a MS SQLServer (gracias, olbeup) pero ahora necesito guardar las variables de conexión en un archivo INI..., pero de repente me doy cuenta que no es tan fácil como en Delphi...

¿Alguna idea o solución para éste caso? Gracias de antemano.

[Casimiro Notevi]

Es igual, ¿no?
Añades el inifiles al uses y... como siempre.

[arturom]

Empezado por Casimiro Notevi

Es igual, ¿no?
Añades el inifiles al uses y... como siempre.

Cierto, tal y como dice Casimiro.

Saludos

[olbeup]

Hola TiammatMX,

Es exactamente como dicen los compañero, el tratamiento es el mismo en delphi que en CodeTyphon, te pongo un ejemplo, defines una variable en el TForm como SQLConfig de tipo record, tambien la puedes definir como una class.

Código Delphi [-]
...
interface

uses
  etc, etc, etc, IniFiles;

type

  TSQLConfig = record
    Provider: String;
    DataSource: String;
    InitialCatalog: String;
    Port: Integer;
  end;

...
var
  IniTmp: TIniFile;
begin
  IniTmp := TIniFile.Create('C:\PruebasINI\Config.ini');
  with IniTmp do
  begin
    if (not SectionExists('MSSQL.Connection', 'Provider')) then
    begin
      WriteString('MSSQL.Connection', 'Provider', 'SQLOLEDB');
      WirteString('MSSQL.Connection', 'Data Source', 'TuServidorSQL');
      WriteString('MSSQL.Connection', 'Initial Catalog', 'TuBaseDeDatos');
      WriteInteger('MSSQL.Connection', 'Port', 1433);
    end
    else begin
      SQLConfig.Provider := ReadString('MSSQL.Connection', 'Provider', '');
      SQLConfig.DataSource := ReadString('MSSQL.Connection', 'Data Source', '');
      SQLConfig.InitialCatalog := ReadString('MSSQL.Connection', 'Initial Catalog', '');
      SQLConfig.Port := ReadInteger('MSSQL.Connection', 'Port', 0);
    end;
    UpdateFileIni;
  end;
  FreeAndNil(IniTmp);
end;

Esto lo puedes poner en OnCreate del formulario o hacer una función o lo que tu quieras.


Un saludo.