Tema: Archivos INI
Ver Mensaje Individual
  #1  
Antiguo 15-05-2008
Paulao Paulao is offline
Miembro
 
Registrado: sep 2003
Ubicación: Rua D 31 Casa 1 - Inhoaíba - Rio de Janeiro - RJ - Brasil
Posts: 637
Reputación: 21
Paulao Va por buen camino
Archivos INI

Señores, tengo una aplicacion que quendo se instala el programa el genera um archivo INI. No tengo problemas, pero mi gustaria de hacer una cosa que yo no consegui todavia. Que entre las llaves del archivo, fuera puesta una linea en blanco, haciendo una separacion como si yo hiciera en la mano, como sigue el ejemplo abajo:

Asi hago en la mano:
Cita:
[LOJA]
1=0051

[CAIXA]
1=01
2=02

[ECF]
PORTA=1
VELOCIDADE=9600
TIMEOUT=2
LOG=1
ERRO=0
MARCA=SWEDA
MODELO=IF ST100
FABRICANTE=SW010500000000000232
VERSAO=01.00.04
NSERIE=MFDSW00000003300
Ahora con la aplicación haciendo
Cita:
[LOJA]
1=0051
[CAIXA]
1=01
2=02
[ECF]
PORTA=1
VELOCIDADE=9600
TIMEOUT=2
LOG=1
ERRO=0
MARCA=SWEDA
MODELO=IF ST100
FABRICANTE=SW010500000000000232
VERSAO=01.00.04
NSERIE=MFDSW00000003300
Mira que entre la llaves LOJA,CAIXA y ECF no hay espacio. Como hago para poner espacios entre ellos? Gracias!!! Abajo esta el codigo para crear mi archivo
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
 Sql:String;
 sHostIp,
 sPathBanco:String;
begin
  Brush.Style := bsClear;

  sHostIp := '127.0.0.1';
  sPathBanco := 'C:\Sistema\Dados\SAC_DB.FDB';

  HostParam := TIniFile.Create(ExtractFilePath(Application.ExeName)+'SAC_GARBO.INI');

  HostParam.WriteString('HOST','Address',sHostIp);
  HostParam.WriteString('HOST','HostName','');

  HostParam.WriteString('SERVER','DriverName','InterBase by Core Lab');
  HostParam.WriteString('SERVER','DataBase',sPathBanco);
  HostParam.WriteString('SERVER','UserName','sysdba');
  HostParam.WriteString('SERVER','Password','masterkey');
  HostParam.WriteString('SERVER','SqlDialect','3');
  HostParam.WriteString('SERVER','BlobSize','-1');
  HostParam.WriteString('SERVER','ErrorResourceFile',' ');
  HostParam.WriteString('SERVER','LocaleCode','0000');
  HostParam.WriteString('SERVER','InterBase by Core Lab TransIsolation','ReadCommited');
  HostParam.WriteString('SERVER','ProductName','Interbase');
  HostParam.WriteString('SERVER','DriverAssemblyLoader','CoreLab.DbxIda.DriverLoader.TCRDynalinkDriver  Loader,CoreLab.DbxIda.DriverLoader,Version=1.0.0.5001,Culture=neutral,PublicKeyToken=09af7300eec2370  1');
end;
Responder Con Cita