Leer fichero ini

[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.

[ecfisa]

Hola Angel.

Estuve probando, básicamente con tu código y no tengo ningún problema, te adjunto el código:

Código PHP:

#include <inifiles.hpp>

AnsiString iniName = ChangeFileExt(Application->ExeName, ".ini");
AnsiString cEntorno, cAcceso, cTablas;

void __fastcall TForm1::btnSaveClick(TObject *Sender) {
  TIniFile* ini = new TIniFile (iniName);

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

  delete ini;
}

void __fastcall TForm1::btnToStringClick(TObject *Sender) {

  TIniFile* ini = new TIniFile(iniName);

  cEntorno = ini->ReadString("Datos", "Entorno", cEntorno);
  cAcceso  = ini->ReadString("Datos", "Acceso" , cAcceso);
  cTablas  = ini->ReadString("Datos", "Tablas" , cTablas);

  delete ini;
  Memo1->Clear();
  Memo1->Lines->Add(cEntorno);
  Memo1->Lines->Add(cAcceso);
  Memo1->Lines->Add(cTablas);
}

void __fastcall TForm1::btnToStringsClick(TObject *Sender) {
  TIniFile* ini = new TIniFile(iniName);
  TStrings* sl = new TStringList;

  ini->ReadSectionValues("Datos", sl);
  Memo2->Clear();
  Memo2->Lines->Assign(sl);

  delete ini;
  delete sl;
 } 


Muestra:


Saludos

[Angel.Matilla]

Empezado por Casimiro Notevi

Á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.

Siento haberme expresado mal. El contenido del fichero que puse en el primer mensaje es un copiado y pegado a partir del bloc de notas, lo que me dice que el fichero está bien grabado.

Empezado por ecfisa

Estuve probando, básicamente con tu código y no tengo ningún problema, te adjunto el código:

Entonces, básicamente, no lo entiendo.
Lo he probado yo también en un proyecto vacío y efectivamente funciona; ¿por qué demonios no me funciona a mi un código que como dices es en lo esencial igual? Seguiré probando.

[Casimiro Notevi]

¿No limpiarás las variables antes de volver a leerlas?

[Angel.Matilla]

Empezado por Casimiro Notevi

¿No limpiarás las variables antes de volver a leerlas?

No. Las inicializo al principio de la función. No quería extenderme en exceso proque hay llamadas a funciones externas y demás, pero este es el código completo que estoy usando:

void __fastcall TfPersona::FormCreate(TObject *Sender)
{
    BROWSEINFO bi;
    int nDirectorio = 0;
    LPITEMIDLIST ItemID;
    TStringList *slIniFile = new TStringList();
    UnicodeString cInicio;
    wchar_t WDir[MAX_PATH], FolderName[MAX_PATH];

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

    cAux = ChangeFileExt(Application->ExeName, ".ini");
    if (!FileExists(cAux))
    {
        slBotones->Clear();
        slBotones->Text = "Buscar\r\nCancelar";
        if (Mensaje(this, String("Instalación"), String("Indique la situación de la base de datos"), tdiShield, slBotones) == mrCancel)
        {
            slBotones->Text = "Abandonar";
            Mensaje(this, String("Instalación"), String("No puede iniciarse la sesión.\r\nDesconozco la situación de los ficheros."), tdiError, slBotones);
            Application->Terminate();
            return;
        }

        while (nDirectorio == 0)
        {
            memset(&bi, 0, sizeof(BROWSEINFO));
            memset(WDir, 0, MAX_PATH);
            bi.hwndOwner = NULL;
            bi.pszDisplayName = FolderName;
            bi.lpszTitle = String("Seleccione la situación de la base de datos").c_str();
            ItemID = SHBrowseForFolder(&bi);
            SHGetPathFromIDList(ItemID, WDir);
            GlobalFreePtr(ItemID);
            cInicio = String(WDir);

            if (cInicio == "")
            {
                slBotones->Text = "Abandonar";
                Mensaje(this, String("Instalación"), String("No puede iniciarse la sesión.\r\nDesconozco la situación de los ficheros."), tdiError, slBotones);
                Application->Terminate();
                return;
            }

            if (cInicio[1] > 'B')
               {
                    if (cInicio.LastDelimiter("\\") == cInicio.Length())
                         cInicio = cInicio.SubString(1, cInicio.LastDelimiter("\\") - 1);

                    cAux = "La base de datos de afiliados se ";
                    if (DirectoryExists(cInicio + "\\DatAfi21"))
                         cAux = cAux + "encuentra";
                    else
                         cAux = cAux + "creará";
                    cAux = cAux + " en:\r\n\r\n" + cInicio + "\\DatAfi21\r\n\r\n¿Es correcta la elección?";
                slBotones->Text = "Es correcta\r\nCambiar ubicación";
                if (Mensaje(this, String("Instalación"), cAux, tdiNone, slBotones) == 100)
                {
                    nDirectorio = 1;
                    try
                    {
                        System::ChDir(cInicio);
                    }
                    catch(...)
                    {
                        slBotones->Text = "Volver";
                        Mensaje(this, String("Instalación"), String("La vía seleccionada no está accesible.\r\nRevise su elección, por favor."), tdiError, slBotones);
                              nDirectorio = 0;
                         }
                    }
               }
               else
            {
                slBotones->Text = "Volver";
                Mensaje(this, String("Instalación"), String("La vía seleccionada no está accesible.\r\nRevise su elección, por favor."), tdiError, slBotones);
                nDirectorio = 0;
               }
        }

        TIniFile *fIni = new TIniFile(ChangeFileExt(Application->ExeName, ".ini"));
        fIni->WriteString("DATOS", "Entorno", cInicio + "\\DatAfi21\\Gia.ini");
        fIni->WriteString("DATOS", "Acceso" , cInicio + "\\DatAfi21\\Acceso");
        fIni->WriteString("DATOS", "Tablas" , cInicio + "\\DatAfi21\\Tablas");
        delete fIni;
    }

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

[Angel.Matilla]

Después de toda la mañana dando vueltas y probando diferentes códigos he encontardo, más o menos. una solución.

TIniFile *fIni = new TIniFile(cIniFile);
TStringList *Entorno  = new TStringList();
fIni->ReadSectionValues("Datos", Entorno);

Entorno->Strings[0] = Entorno->Strings[0].SubString(Entorno->Strings[0].Pos("=") + 1, Entorno->Strings[0].Length());
Entorno->Strings[1] = Entorno->Strings[1].SubString(Entorno->Strings[1].Pos("=") + 1, Entorno->Strings[1].Length());
Entorno->Strings[2] = Entorno->Strings[2].SubString(Entorno->Strings[2].Pos("=") + 1, Entorno->Strings[2].Length());
delete fIni;

No es la forma que más me seduce pero no he encontrado otra ya que si trato de hacer esto:

UnicodeString cEntorno = Entorno->Strings[0].SubString(Entorno->Strings[0].Pos("=") + 1, Entorno->Strings[0].Length());

dentro de la variable me devuelve siempre una cadena vacía.