Lazarus: TStringList.LoadFromFile error cuando la ruta tiene eñes/acentos

[euMesmo]

Hola a todos/as.

He estado buscando por varios foros de delphi/lazarus pero no encuentro nada que funcione.

El problema es el siguiente, un programa simple en Windows:

Cargo un archivo de texto, que se encuentra en la misma ruta que el ejecutable, a un stringlist mediante loadfromfile, pues bien, si el ejecutable está en una carpeta (o ruta) cuyo nombre no tiene eñes ni acentos funciona sin más problema. En cuanto cambio el nombre de carpeta por otro que tenga acentos deja de funcionar (si cambio el nombre de carpeta por otro sin acentos funciona).

El código lo podemos resumir en algo como:

Código Delphi [-]
ruta:=AnsiToUtf8(ExtractFilePath(Application.ExeName));
fichero:=TStringList.Create;
fichero.LoadFromFile(ruta+'app.cfg');

Ya he probado, creo que todos, los utf8encode, decode utf8toansi.

¿ Alguna idea?.

Gracias por vuestro tiempo.

[ecfisa]

Hola euMesmo, bienvenido a Club Delphi

Cuando incluyas código en tus mensajes usa las etiquetas de este modo:


Y como es costumbre con los iniciados te invitamos a leer nuestra guía de estilo.

En cuanto a tu consulta, intenta de este modo:

Código Delphi [-]
var
  fichero: TStringList;
begin
  fichero:= TStringList.Create;
  try
    fichero.LoadFromFile(UTF8ToAnsi(ExtractFilePath(Application.ExeName)+'app.cfg'));
    Memo1.Lines.Assign(fichero); // Acción de ejemplo
  finally
    fichero.Free;
  end;
end;

Saludos

[euMesmo]

Gracias ecfisa.

Lo primero mis disculpas por lo del código y gracias por tu respuesta.

Ya había intentando esto sin conseguir el éxito. Intentaré explicar mejor el problema.

En una aplicación, en el evento "FormCreate" creo el stringlist y lo cargo mediante loadfromfile, si el ejecutable y el cfg (es un fichero de texto utf-8) están en la carpeta "Aplicacion" funciona (carga el archivo de configuración), si pongo cualquier nombre a esa carpeta que no tenga eñes o acentos sigue funcionando, pero si lo cambio por "Aplicación" aparece el error que de que no puede cargar el archivo (Unable to open file) aunque la ruta que aparece en el mensaje es la correcta, acento incluido.

De momento todo me hace pensar que es un bug de lazarus en windows ya que en linux el mismo código no genera el error.

¿ Alguna idea?. Muchas gracias.

[ecfisa]

Hola euMesmo.

Es verdaderamente extraño... En mi código original de prueba funciona correctamente:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  fichero: TStringList;
begin
  fichero:= TStringList.Create;
  try
    fichero.LoadFromFile(UTF8ToAnsi('C:\tmp\ÁéíóúÑñ\ÁéíóúÑñ.txt'));
    Memo1.Lines.Assign(fichero);
  finally
    fichero.Free;
  end;
end;

Muestra:


Prueba realizada en Windows 7 y Lazarus Ver: 1.2.6 - Revisión SVN: 46529

Saludos

[euMesmo]

Si efectivamente funciona, pero si ejecutable y archivo de texto lo mueves a una carpeta cuyo nombre no tenga acentos sigue funcionando, pero al cambiar el nombre de esa carpeta con un acento deja de funcionar, no por el nombre del archivo (eñé.cfg en mi prueba) si no por el de la carpeta que lo contiene.

Pongo el código con el que he probado (uso W7 y Lazarus 1.2.6):

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  fichero: TStringList;
begin
  fichero:= TStringList.Create;
  try
    fichero.LoadFromFile(UTF8ToAnsi(ExtractFilePath(Application.ExeName)+'eñé.cfg'));
    Memo1.Lines.Assign(fichero);
  finally
    fichero.Free;
  end;
end;

Como dices es muy extraño. De momento estoy diciendo a los usuarios de windows que coloquen la carpeta con el programa en "c:" para evitar problemas pero, al ser una aplicación que no necesita ningún tipo de instalación, la verdad queda mal.

[euMesmo]

Bien, creo que encontré el problema.
El código funciona si quito "UTF8ToAnsi"

Gracias a todos.

[ecfisa]

Hola euMesmo.

Empezado por euMesmo

Bien, creo que encontré el problema.
El código funciona si quito "UTF8ToAnsi"

Gracias a todos.

¿ Es decir que el código del mensaje #5 te funciona quitando la función UTF8ToAnsi ?, entonces quedo mas perplejo que antes...

De ese modo obtengo este mensaje de error:



Sin embargo, de este modo sí funciona correctamente:

Código Delphi [-]
const
  FNAME = 'Márgen ñato.txt';

procedure TForm1.Button1Click(Sender: TObject);
var
   fichero: TStringList;
begin
  fichero:= TStringList.Create;
  try
    fichero.LoadFromFile( ExtractFilePath(Application.ExeName) + UTF8ToAnsi(FNAME) );
    Memo1.Lines.Assign( fichero ); // Acción de ejemplo
  finally
    fichero.Free;
  end;
end;

Lo que me induce a pensar que la función ExtractFilePath realiza la conversión necesaria.

Nombres que usé para la prueba:

• Ruta: c:\tmp\Cápita moño
• Archivo: Márgen ñato.txt

Saludos

[euMesmo]

Veamos, el código #5 me funciona para el fichero "app.cfg" (sin acentos ni eñes en su nombre). Como apuntas, ExtractFilePath hace su trabajo, de hecho, en el mensaje que aparece, se ven claramente los acentos y no "?" o "Ã" como tu caso en el nombre del fichero, pero la cosa no acaba ahí y ya no sé que pensar.

Un programa exclusivamente con ese código no devuelve ningún error independientemente de si la ruta tiene o no acentos. Bien.

Ahora, en mi programa, el módulo principal, en el evento "formcreate" empieza exactamente lo mismo (incluido nombres y declaraciones de variables). Pues bien, en mi programa aparece el error de open file en "app.cfg" cuando cambio el nombre de la carpeta (Aplicacion) por el mismo con acento (Aplicación), evidentemente cierro el programa antes de cambiar el nombre y lo vuelvo a ejecutar. He comprobado que la aplicación no abriese "en otro lugar" este archivo y nada.

Como te imaginarás he dudado hasta de mi sombra, llevo casi 20 años programando en pascal (desde el Delphi 1) y creía haber visto "de todo".

En fin si a alguien se le ocurre algo que no dude en comentarlo.

Gracias por tu tiempo ecfisa

[[nlsgarcia]]

euMesmo,

Empezado por euMesmo

...Cargo un archivo de texto, que se encuentra en la misma ruta que el ejecutable, a un stringlist mediante loadfromfile...si el ejecutable está en una carpeta (o ruta) cuyo nombre no tiene eñes ni acentos funciona sin más problema. En cuanto cambio el nombre de carpeta por otro que tenga acentos deja de funcionar...

Revisa este código:

Código Delphi [-]
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Memo1: TMemo;
    ToggleBox1: TToggleBox;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure ToggleBox1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  FileStrList : TStringList;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ToggleBox1Change(Sender: TObject);
var
   openDialog : TOpenDialog;
   AuxStr : String;
   MsgUser : String;

begin

  openDialog := TOpenDialog.Create(self);
  openDialog.InitialDir := GetCurrentDir;
  openDialog.Options := [ofFileMustExist];
  openDialog.Filter := 'Text Files|*.txt';

  if openDialog.Execute then
  begin
     FileStrList := TStringList.Create;
     AuxStr := openDialog.FileName;
     FileStrList.LoadFromFile(UTF8ToAnsi(AuxStr));
     Memo1.Lines.Text := AnsiToUtf8(FileStrList.Text);
  end
  else
  begin
     MsgUser := 'No se Selecciono Ningún Archivo de Texto para Visualizar';
     MessageDlg(MsgUser,mtinformation,[mbok],0);
  end;

  openDialog.Free;

end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  FileStrList.Free;
  CloseAction := cafree;
end;

end.

El código anterior en Lazarus Versión #:1.2.6 FPC Version 2.6.4 bajo Windows 7 Professional x32, permite visualizar archivos de texto que contengan caracteres acentuados o con ñ tanto en su contenido como en el nombre del directorio en donde residen, como se muestra en las siguientes imágenes:





Espero sea útil

Nelson.

[euMesmo]

Hola nlsgarcia, disculpa por no contestar antes.

Veamos, el problema no es el contenido del archivo a abrir si tiene o no palabras con acentos. El problema está en la ruta en la que se ejecuta el programa, si en esa ruta ninguna de las carpetas tiene acentos, eñes, espacios en blanco, funciona, abre el archivo y lee correctamente el archivo, si cambio el nombre de cualquiera de las carpetas de la ruta y no pongo acentos, sigue funcionando, en cuanto cambio el nombre de una carpeta por uno con acento aparece el error de "open file".

Dicho de otra forma, si se copia la carpeta que contiene el programa y todos los archivos necesarios en el escritorio de un usuario que se llame "José" ya aparece el error dado que "José" está en la ruta de acceso al archivo.

Gracias por tu atención.

[[nlsgarcia]]

euMesmo,

Empezado por euMesmo

...el problema no es el contenido del archivo a abrir si tiene o no palabras con acentos...El problema está en la ruta en la que se ejecuta el programa...en cuanto cambio el nombre de una carpeta por uno con acento aparece el error de "open file"...

Revisa el código y las imágenes del Msg #9, este permite visualizar archivos de texto que contengan caracteres acentuados o con ñ tanto en su contenido como en el nombre del archivo y directorio/ruta en donde residen en cualquier combinación.

Espero sea útil

Nelson.

[euMesmo]

Gracias Nelson.

Pero el código que se plantea carga el archivo mediante un "OpenDialog", yo lo hago directamente llamando al archivo ya que sé su ubicación mediante un "loadfromfile(ruta)".

[[nlsgarcia]]

euMesmo,

Empezado por euMesmo

...el código que se plantea carga el archivo mediante un "OpenDialog", yo lo hago directamente llamando al archivo ya que sé su ubicación mediante un "loadfromfile(ruta)"...

Revisa este código:

Código Delphi [-]
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  FileStrList : TStringList;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
   Label1.Caption := EmptyStr;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   S : String;
   FileName : String;

begin

   FileName := 'FileTest-áéíóúäëïöüñ ÁÉÍÓÚÄËÏÖÜÑ.txt';

   FileStrList := TStringList.Create;

   S := ExtractFilePath(AnsiToUtf8(Application.Exename)) + FileName;

   Label1.Caption := S;

   FileStrList.LoadFromFile(Utf8ToAnsi(S));

   Memo1.Lines.Text := AnsiToUtf8(FileStrList.Text);

end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  FileStrList.Free;
  CloseAction := cafree;
end;

end.

El código anterior en Lazarus Versión #:1.2.6 FPC Version 2.6.4 bajo Windows 7 Professional x32 es una variación del código del Msg #9, el cual permite visualizar archivos de texto que contengan caracteres acentuados o con ñ tanto en su ruta, nombre o contenido en cualquier combinación, como se muestra en la siguiente imagen:



Espero sea útil

Nelson.