Leer un Archivo INI en CodeTyphon para Windows

[TiammatMX]

¡Listo!, pues eso. Ya tengo mi proyecto, se conecta a MS SQLServer (gracias, olbeup (http://www.clubdelphi.com/foros/member.php?u=6527)) 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]

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.

...
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.