UTF8 La maldicion

[Softweb]

Hola a todos.

Tengo una aplicación ya muy currada que me tiene pillados mas de un mes con el siguiente problema.

Tengo una variable de tipo WideString que contiene un texto en formato UTF8 y tengo que pasarlo a una variable string pero con los caracteres de acentuados correctamente y no encuentro la forma de transformar los caracteres el string (ansi).

E usado sin éxito:
Utf8ToAnsi
UTF8Encode
UTF8Decode
WideCharToString
WideStringToStringEx


Rogaría me contestaran aunque solo sea para darme una pista.

Saludos

[yapt]

Seguro que ya has probado esto, pero en Delphi 2010, a mí me funciona bien.

Código Delphi [-]
var
  a : AnsiString;
  s : WideString;
begin
 s := 'Avión';
 a := AnsiString(s); 
end;

De hecho también funcionaría así:

Código Delphi [-]
  s := 'Avión';
  a := s;

No sé... si tienes alguna pista más....

Saludos.

[Softweb]

Empezado por yapt

Seguro que ya has probado esto, pero en Delphi 2010, a mí me funciona bien.
Código Delphi [-]var a : AnsiString; s : WideString; begin s := 'Avión'; a := AnsiString(s); end;


De hecho también funcionaría así:

Código Delphi [-] s := 'Avión'; a := s;


No sé... si tienes alguna pista más....

Saludos.

Gracias yapt por responder, ya lo e solucionado gracias a una pista sobre la función MultiByteToWideChar, e creado una función para la conversión.

Código Delphi [-]
function UTF8ToWideString(const S: AnsiString): WideString;
var
  BufSize: Integer;
begin
  Result := '';
  if Length(S) = 0 then Exit;
  BufSize := MultiByteToWideChar(CP_UTF8, 0, PAnsiChar(S), Length(S), nil, 0);
  SetLength(result, BufSize);
  MultiByteToWideChar(CP_UTF8, 0, PANsiChar(S), Length(S), PWideChar(Result), BufSize);
end;

Saludos y gracias por responder

[yapt]

Ok...

me doy cuenta ahora de que no indicabas la versión de Delphi con la que estás trabajando.

El tema es que en Delphi 2009 y 2010 todo el trabajo con UTF8 ya está muy "elaborado".

Pero si son versiones anteriores, entonces es cuando tienes que usar funciones como la que describes...

Supongo que es por eso...

Saludos y suerte... :-)