Leer fichero ini

[Angel.Matilla]

Teniendo puesto el lógico include (#include <inifiles.hpp>), tengo este fichero ini:

[Datos]
Entorno=C:\DatAfi21\Gia.ini
Acceso=C:\DatAfi21\Acceso
Tablas=C:\DatAfi21\Tablas

que he grabado con este código:

TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
fIni->WriteString("Datos", "Entorno", "C:\DatAfi21\\DatAfi21\\Gia.ini");
fIni->WriteString("Datos", "Acceso" , "C:\DatAfi21\\DatAfi21\\Acceso");
fIni->WriteString("Datos", "Tablas" , "C:\DatAfi21\\DatAfi21\\Tablas");
delete fIni;

Sin embargo si trato de leerlo con este otro código:

TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
cEntorno = fIni->ReadString("Datos", "Entorno", cEntorno);
cAcceso  = fIni->ReadString("Datos", "Acceso" , cAcceso);
cTablas  = fIni->ReadString("Datos", "Tablas" , cTablas);
delete fIni;

Siempre me devuelve cadenas vacías y no entiendo el motivo. Y me da lo mismo hacerlo sobre Builde 6 que sobre Builder XE3.

[[duilioisola]]

No tengo mucha experiencia con C, pero:

Veo que la primera barra separadora de carpetas es simple (una sola) y esto puede que C lo considere como terminador de cadena.

fIni->WriteString("Datos", "Entorno", "C:\DatAfi21\\DatAfi21\\Gia.ini");

[Angel.Matilla]

Empezado por duilioisola

No tengo mucha experiencia con C, pero:

Veo que la primera barra separadora de carpetas es simple (una sola) y esto puede que C lo considere como terminador de cadena.

fIni->WriteString("Datos", "Entorno", "C:\DatAfi21\\DatAfi21\\Gia.ini");

Ha sido una erra al copiar; están puestas las barras dobles. De hecho, esa primera parte (C:\DatAfi21) está guardada en una variable que capturo a través de un SHBrowseForFolder.

[Casimiro Notevi]

¿El fichero ini está bien? Si está mal es que no lo grabas bien. Si está bien es que no lo lees bien.
Sigue con el depurador paso a paso hasta llegar hasta esa línea y mira el contenido de la variable.

[Angel.Matilla]

Gracias por la respuesta. Centrándome en que ya estoy probando sólo con Builder XE3.

La grabación es la que he puesto antes y lo hago con el primer trozo de código que puse, de lo que deduzco que está bien hecho. En la segunda parte, cuando intento leerlo, incializo las variables (por si acaso)

cAcceso  = "";
cEntorno = "";
cTablas  = "";

y ejecuto el segundo código que he puesto. Me he dado cuenta que si pongo esto:

TStringList *slIniFile = new TStringList();
TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
fIni->ReadSectionValues(UnicodeString("DATOS"), slIniFile);
cAux = slIniFile->Text;

en este slIniFile->Text aparece esto mirando con el depurador:

"Entorno=C:\\DatAfi21\\Gia.ini\r\nAcceso=C:\\DatAfi21\\Acceso\r\nTablas=C:\\DatAfi21\\Tablas\r\n "

lo que significa que estar la información está, pero si hago esto:

cEntorno = slIniFile->Strings[0];

que en teoría debería valer Entorno=C:\\DatAfi21\\Gia.ini, ¡no hay ningún valor en la variable!Me devuelve NULL. Me tiene total y aboslutamente despistado.

[Casimiro Notevi]

Empezado por Angel.Matilla

La grabación .. deduzco que está bien hecho.

Ángel, antes de probar la lectura, debes asegurarte, no solamente deducir, que se han grabado bien los datos.
Lo mínimo a probar es buscar el fichero ini en el disco y abrirlo con cualquier editor de textos para ver si está correcto.

Luego, si está bien, es cuando hay que seguir con el problema de la lectura.

[Kiranov]

Buenas tardes,

La verdad hace mucho que no programo en C, pero se que la sintaxis para ReadString es la misma tanto en C como en Delphi.
La sintaxis es la siguiente:

Delphi

Código Delphi [-]
function ReadString(const Section, Ident, Default: string): string; override;

C++
virtual System::UnicodeString __fastcall ReadString(const System::UnicodeString Section, const System::UnicodeString Ident, const System::UnicodeString Default);

Section= La sección del archivo INI que vamos a leer.
Ident= La clave que estamos buscando.
Default= Al valor que va a tomar en casi de que no exista la clave.

En tu caso tienes asignado la misma valor en donde va "default":

Código PHP:

TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
cEntorno = fIni->ReadString("Datos", "Entorno", cEntorno);
cAcceso  = fIni->ReadString("Datos", "Acceso" , cAcceso);
cTablas  = fIni->ReadString("Datos", "Tablas" , cTablas);
delete fIni; 


Intenta cambiando el valor default por un valor vacio por ejemplo:

Código PHP:

TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
cEntorno = fIni->ReadString("Datos", "Entorno", "");
cAcceso  = fIni->ReadString("Datos", "Acceso" , "");
cTablas  = fIni->ReadString("Datos", "Tablas" , "");
delete fIni; 


Saludos!

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias