problema con fichero .ini

[Coco]

cual es el contenido del archivo ini?
Lo estas tomando del path correcto?

[coleleon]

El contenido es muy simple:
[Ficheros]
Comandos=C:\ComandosDB\Comandos.dbf
Estado=C:\ComandosDB\Estado.dbf
Log=C:\ComandosDB\Log.dbf
y el path lo obtengo de la función ChangeFileExt(Application.ExeName,'.ini') ,q creo q vale,no?

[delphi.com.ar]

Si vale... ¡Pero fíjate que sea lo mismo que imaginas que es!...
Prueba con un ShowMessage(ChangeFileExt(Application.ExeName,'.ini'));

Saludos!

[dec]

Hola,

Empezado por Federico

Código Delphi [-]
ShowMessage(ChangeFileExt(Application.ExeName,'.ini'));

Pero,... eso siempre le mostraría una ruta correcta, puesto que es claro que el ejecutable existe y nomás la ruta del ejecutable aparecerá con una extensión ".ini", que es justo lo que le dices que muestre, como puede verse. No sé... me llamó la atención esto Federico, disculpa la tontería: por otro lado no he leído el Hilo desde un principio así que no sé qué hago aquí... ¿respondiendo el qué?

[delphi.com.ar]

Empezado por dec

Pero,... eso siempre le mostraría una ruta correcta, puesto que es claro que el ejecutable existe y nomás la ruta del ejecutable aparecerá con una extensión ".ini", que es justo lo que le dices que muestre, como puede verse.

Si, mi idea es que compare esa ruta con el ini que esta creando a mano... si verdaderamente el programa la va a buscar donde el cree que la esta buscando..

Saludos!

[coleleon]

Sí,lo acabo de comprobar,y la ruta que resulta es correcta.No sé..ya dudo...no será q no se puede hacer desde un archivo de texto normal y corriente?

[coleleon]

Una pregunta:no hay otra manera de crear el .ini sin tener q ejecutar antes las funciones WriteString ..etc para introducir los datos iniciales?

[dec]

Hola,

Algo así debiera funcionar:

Código Delphi [-]
uses
  IniFiles;

procedure TfrmPrincipal.btnLeerIniClick(Sender: TObject);
var
  ini: TIniFile;
begin
  ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  try
    ShowMessage( 'Clave Comandos = ' + ini.ReadString('Ficheros', 'Comandos', 'Error') );
    ShowMessage( 'Clave Estado = ' + ini.ReadString('Ficheros', 'Estado', 'Error') );
    ShowMessage( 'Clave Log = ' + ini.ReadString('Ficheros', 'Log', 'Error') );
  finally
    ini.Free;
  end;
end;

Te adjunto un sencillo ejemplo en donde se hace uso del código de arriba.

[dec]

Hola,

Empezado por coleleon

Una pregunta:no hay otra manera de crear el .ini sin tener q ejecutar antes las funciones WriteString ..etc para introducir los datos iniciales?

Claro, hombre, digitalmente: como lo he hecho yo en el ejemplo de arriba: con los puritos dedos.

Es un archivo de texto plano: puedes escribirlo con el Bloc de notas, por ejemplo, sin problemas, siempre que te percates de que incluyes las secciones, claves y valores tal y como esperes encontrarlas.

Claro, que, una ayuda podría ser que usases cierto programa que creo que se llama XEditor (no lo recuerdo bien), el cual puede resaltarte la sintaxis de los archivos INI, de tal manera que algo podrá ayudarte. Y, por supuesto, desde el propio Delphi, yo creo que también te resaltará la sintaxis de dichos archivos.

Edito: De todas formas, que tampoco se te haga especialmente complicado el hecho de utilizar el método "WriteString" para escribir los valores oportunos en el archivo INI, oyes:

Código Delphi [-]
procedure EscribirValoresIni(const log, estado, comandos: string);
var
  ini: TIniFile;
begin
  ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));
  try
    ini.WriteString('Ficheros', 'Log', log);
    ini.WriteString('Ficheros', 'Estado', estado);
    ini.WriteString('Ficheros', 'Comandos', comandos);
  finally
    ini.Free;
  end;
end;

[coleleon]

Jo ,no gano para disgustos,resulta que los datos q leo del ini son los nombres de las tablas DBase que utilizo en el programa.Ahora me pregunto, si tengo un componente Ttable xa cada tabla, en que propiedad tengo q asignar los valores leidos antes en tiempo de ejecución,para poder acceder a las tablas desde los componentes ttable,TABLENAME o DATABASENAME?Gracias d nuevo