Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > из UTF8 в Windows 1251

Автор: chiffa 4.1.2011, 00:31

Добрый день. Столкнулся с такой ситуаций. Через Indy в Delphi XE получаю ответ в УТФ-8 (<?xml version="1.0" encoding="UTF-8"?>) - ÐÐµ Ð¿ÐµÑÐµÐ´Ð°Ð½ XML-Ð·Ð°Ð¿ÑÐ¾Ñ декодирую через Utf8ToAnsi, в результате получаю: ???� ???�N??�???�?? XML-?�?�??N???N

Подскажите как получить нормальный русский текст?... Заранее спасибо....

Автор: Keeper89 4.1.2011, 02:16

Код в студию.

Плюс зачем, получая юникодный текст в юникодном Delphi что-то куда-то переводить?

Автор: Akella 4.1.2011, 13:23

chiffa, а с чего ты взял, что в DelphiXE всё в кодировке ANSI?

Автор: chiffa 4.1.2011, 21:02

Akella, а в какой?....

вот код:

Код


var param_send:tstringlist;
     PageProfile:String;
     error:boolean;
begin
IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;

 param_send:=TsTringList.create;
 param_send.Add('id=1');
 param_send.Add('cat=12');
 error:=false;
 try
  PageProfile:=IdHTTP1.Post('https://mysait.com', param_send);
 except
  error:=true;
 end;

Memo1.Lines.Add(Utf8ToAnsi(PageProfile));

Автор: Akella 4.1.2011, 23:33

Цитата(chiffa @ 4.1.2011, 21:02

)

Akella, а в какой?....

UTF16, если мне не изменяет память. С юникодом не так всё просто, т.к. юникодов на самом деле немало smile

Добавлено через 40 секунд
Вот, читай, там много вкусного
http://forum.vingrad.ru/forum/topic-236393.html

Автор: Keeper89 5.1.2011, 02:11

chiffa, чтобы перестать гадать: webdelphi.ru/2010/04/3-varianta-raboty-s-kodirovkami-veb-stranic-v-delphi/

Автор: CodeMonkey 5.1.2011, 23:47

http://forum.sources.ru/index.php?showtopic=308160
http://www.transl-gunsmoker.ru/2009/09/pchars.html#d2009