Ansi Datei in Widestring konvertieren

[himitsu]

ISO-8859-5 ist kein ANSI

Umwandlung:

Delphi-Quellcode:

Var S: AnsiString;
  S2: WideString;

S := 'Dateiinhalt';

i := MultiByteToWideChar(ISO_8859_5, 8{MB_ERR_INVALID_CHARS},
  PAnsiChar(S), Length(S), nil, 0);
SetLength(S2, i);
MultiByteToWideChar(ISO_8859_5, 8{MB_ERR_INVALID_CHARS},
  PAnsiChar(S), Length(S), PWideChar(S2), i);

// S2 = Dateiinhalt in Unicode

// Codepage (falls Konstante unbekannt): ISO_8859_5 = 28595

Dateiinhalt in einen AnsiString laden, umwandeln und dann als WideString zurück in die Datei