LoadFromFile y la letra "Ñ"

[Flecha]

Gracias, pero no me vale porque el archivo no se crea desde ninguno de mis programas. Se crean desde otras empresas con sus propios programas, y que nos lo mandan a nosotros.

He comprobado que el formato en el que me llega el archivo es UTF-8, pero mi problema está en poder leer el contenido del fichero independientemente del formato en el que me llegue.

Hay quien me aconseja utilizar el TRichEdit para leer el archivo. Estoy probando.

¿Alguna opinión al respecto?

[dec]

Hola,

Acabo de probar con algo así y parece ir bien:

Código Delphi [-]
var
  t: TStrings;
begin
  t := TStringList.Create;
  try
    // pruebas.txt está codificado con "UTF-8"
    t.LoadFromFile('C:\pruebas.txt');
    ShowMessage(UTF8Decode(t.Strings[0]));
  finally
    t.Free;
  end;
end;

También podría valer utilizando "Utf8ToAnsi" en lugar de "UTF8Decode", pero... se supone aquí que tratamos con un archivo codificado en "UTF-8"... si el mismo no estuviera codificado así nos encontraríamos con problemas también...

Desde luego en Google aparece información sobre lo que nos ocupa. Esta página de Delphi Fundamentals tal vez ayude algo...

[dec]

Hola,

Acabo de recordar a los componentes SynEdit. Estos cuentan con una variante preparada para trabajar con archivos UTF-8. Se trata de UnicodeSynEdit. Estos componentes cuentan con un "SynEditMemo" que acaso podría serte de utilidad... Son unos componentes de código abierto y gratuitos, por cierto.

[[seoane]]

Jajaja, yo como siempre reinventando la rueda.

Llevo como 10 minutos para hacer esto:


EDITO: Leer el código que pongo mas abajo, el que estaba aquí no era correcto

Y viene aquí David y me cuenta que existe la función UTF8Decode, jajajaja

[dec]

Hola,

Pero no está demás saberlo hacer como tú lo sabes hacer Domingo. De hecho yo utilizo Delphi 7 y me huelo que la función susomentada no está disponible en versiones anteriores de Delphi.

[Flecha]

Muchísimas gracias a los dos.

Por cierto, mi programa está hecho en Delphi 5 así que, efectivamente, UTF8Decode y UTF8ToAnsi no las tengo disponibles.

He probado el curradísimo procedimiento de seoane, y no tengo buenas noticias. El programa se queda tonto cuando se ejecuta la línea

Código Delphi [-]
Result:= WideString(Str);

De todos modos, y como comenta dec, ¿funcionaría tambien si el formato del archivo no es UTF8?
¿Hay alguna forma de saber qué formato tiene el archivo antes de cargarlo para así saber exactamente con qué procedimiento leer sus datos?

[[seoane]]

Prueba con esto:

Código Delphi [-]
function LoadUTF8FromFile(Filename: string): WideString;
var
  Stream: TMemoryStream;
  Size: Integer;
  Str: PWChar;
begin
  Result:= '';
  Stream:= TMemoryStream.Create;
  try
    Stream.LoadFromFile(Filename);
    Size:= MultiByteToWideChar(CP_UTF8,0,Stream.Memory,
      Stream.Size,nil,0);
    if Size > 0 then
    begin
      GetMem(Str,(Size+1)*Sizeof(WideChar));
      FillChar(Str^,(Size+1)*Sizeof(WideChar),#0);
      try
        if MultiByteToWideChar(CP_UTF8,0,Stream.Memory,
           Stream.Size,Str,Size) > 0 then
        begin
          Result:= WideString(Str);
        end;
      finally
        FreeMem(Str);
      end;
    end;
  finally
    Stream.Free;
  end;
end;

[marcoszorrilla]

Yo he estado haciendo unas pruebas de la siguiente manera

En un fichero Ms-Dos pongo distintos textos, con eñes, acentos etc,. lo cargo a un memo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('E:\Pruebas\Fichero.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s:Pchar;
begin
OemToChar(PChar(Memo1.Lines[2]),PChar(s));
ShowMessage(s);
end;

Y luego con la función OemToChar me lo convierte perfectamente, el ejemplo es muy simple pero no tengo tiempo para más.

Un Saludo.