Unicode-->ANSI

← →
nitrino (2004-05-27 04:07) [0]

Подскажите как можно преобразовать данные, взятые из текстового файла формата Unicode, в ANSI?

Файл типа TextFile, читаю в WideString.
WideCharToString выдает непонятно что (делаю так:

var
str : WideString;
s : string;
Txt : TextFile;

..

ReadLn (Txt,str);
s := WideCharToString (@str);

в результате в s что то типа ???|B???B?B|B??????

← →
Глеб © (2004-05-27 04:40) [1]

Пиши не textfile, а file of widechar!
Должно работать.
А зачем вообще преобразовывать WideChar в ANSI?

← →
Игорь Шевченко © (2004-05-27 12:39) [2]

readln не работает с Unicode

Рекомендую читать другим способом, тогда перекодировка должна нормально работать

← →
nitrino (2004-05-27 14:44) [3]

Дело в том, что мне надо считаывать/записовать в текстовый файл в кодировке Unicode и при этом шифровать/дешифровать информацию. Можно ли шифровать/дешифровать не преобразуя в ANSI? А вообще это будет DLL которая будет фозвращать текст из файла в расшифрованом виде.

← →
nitrino (2004-05-27 15:35) [4]

Дополнение: в файле записан текст на латышском, когда читаю таким образом:

var
Txt : file of widechar;
str : widechar;
s,a : widestring;
..
assignfile (txt,"c:\texts.txt");
reset(txt);
while not eof(txt) do
begin
read(txt,str);
s:=s+str;
end;
memo1.Lines.Add(s);

тогда все ок никаких ??|B???|B??? нету, НО специальные латышские символы не показываются, т.е. вместо š - s, ā - a, č - c и т.д.
не могу понять в чем проблема помогите пожалуйста!!!

А они и не будут показываться - их просто нет в твоей текущей кодовой странице ANSI.

IMHO, смысла нет в том, что ты делаешь. Хочешь зашифровать текст - шифруй. Рассматривай его просто как набор байт. А зачем для шифрования набора байт знать, в каком формате они хранятся?

Unicode-->ANSI Найти похожие ветки