Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.07.2010, 17:21   #1
Droniwe
Пользователь
 
Регистрация: 30.10.2008
Сообщений: 41
По умолчанию POST ошибка с русским

Добрый день в общем дело в том что прога отправляет данные на сайт а в результате возращает текст где русские символы выглядят вот так ЂР°РЅС†СѓР·СЃРєРёР№, немецкий, кто может помоч что нужно дописать чтобы русский был поистени русским

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  data:tstringlist;
begin
 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;
 data:=tstringlist.create;
data.Add('text_source=hi');//задаём текст
data.Add('lang_from=en');//язык заданного текста
data.Add('lang_to=ru');//на какой перевести
data.Add('dict=**');//область перевода
data.Add('submit=Перевести');//нажатие кнопки
Memo1.Text := IdHTTP1.Post('http://translate.meta.ua/', data);//передаем параметры и получаемответ в мемо

end;

end.
Droniwe вне форума Ответить с цитированием
Старый 07.07.2010, 23:56   #2
kangreon
Форумчанин
 
Аватар для kangreon
 
Регистрация: 03.04.2009
Сообщений: 305
По умолчанию

На сайте используется кодировка UTF-8

Код:
...

Memo1.Text := IdHTTP1.Post('http://translate.meta.ua/', data);//передаем параметры и получаемответ в мемо
Memo1.Text := UTF8Decode(memo1.Text);

Последний раз редактировалось kangreon; 07.07.2010 в 23:59.
kangreon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
XML в Delphi ошибка с русским текстом domik Помощь студентам 6 28.05.2009 17:50
Проблема с русским ponchikpk Паскаль, Turbo Pascal, PascalABC.NET 12 22.05.2009 18:39
Ошибка с русским языком! Liza Общие вопросы Delphi 6 02.04.2009 11:15