Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #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
Poder: 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
  #2  
Antiguo 15-05-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 21
enecumene Va por buen camino
Hola, prueba de esta manera, a ver:

Código Delphi [-]
HostParam.WriteString('');



Saludos.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #3  
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
Poder: 21
Paulao Va por buen camino
Ya lo hizo y no funciona. Tiene error.
Responder Con Cita
  #4  
Antiguo 15-05-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 21
enecumene Va por buen camino
Cita:
Empezado por Paulao Ver Mensaje
Ya lo hizo y no funciona. Tiene error.
y asi?:

Código Delphi [-]
HostParam.WriteString('SERVER','','');
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #5  
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
Poder: 21
Paulao Va por buen camino
El no acepta un valor en branco, siempre da error. Y si pongo asi no da error pero queda como estas:
Cita:
HostParam.WriteString('SERVER','DRIVERNAME','');
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Abrir archivos con nombres de archivos de otra codificación. matabyte Windows 2 01-05-2008 01:40:13
Archivos PDF ovargas Gráficos 1 19-01-2007 13:24:39
Archivos DCU sierraja Varios 4 10-05-2005 17:37:40
Archivos djmiller Varios 1 05-09-2003 15:40:34


La franja horaria es GMT +2. Ahora son las 07:53:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi