PDA

Ver la Versión Completa : Archivos INI


Paulao
15-05-2008, 17:31:59
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:
[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
[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
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;

enecumene
15-05-2008, 17:48:59
Hola, prueba de esta manera, a ver:

HostParam.WriteString('');

:confused::confused:

Saludos.

Paulao
15-05-2008, 17:56:56
Ya lo hizo y no funciona. Tiene error.

enecumene
15-05-2008, 17:58:45
Ya lo hizo y no funciona. Tiene error.

y asi?:

HostParam.WriteString('SERVER','','');

Paulao
15-05-2008, 18:27:23
El no acepta un valor en branco, siempre da error. Y si pongo asi no da error pero queda como estas:
HostParam.WriteString('SERVER','DRIVERNAME','');