XE3. Отправить текст в CP2151 на сервер.

[Человек_Борща]

Доброго времени!

Уже 3й час бьюсь головой об стол, лб стены и об клаву(не буквально). И просто не понимаю, почему так сложно отправить из Delphi XE3 еб...ый текст в еб...ой CP2151 кодировке

                tsPOST.Add('rname=' + fMsgTitle); //ЭТО
                tsPOST.Add('rtext=' + fMsgText);  //И ЭТО
                HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
                HTTP.Request.AcceptLanguage := 'ru-RU,ru;q=0.9,en;q=0.8';
                HTTP.Request.AcceptCharSet := 'Windows-1251';
                HTTP.Request.CharSet := 'Windows-1251';

Что я уже попробовал:
UTF8Encode
UTF8Decode
UTF8ToAnsi
UTF8ToAnsi(UTF8Encode
UTF8ToAnsi(UTF8Decode
UTF8ToWideString
UTF8ToWideString(UTF8Encode
UTF8ToWideString(UTF8Decode

Класс TEncoding:

function Encode2CP2151(const aStr: string): string;
var
  B: TBytes;
begin
  B := BytesOf(aStr);
  TEncoding.Convert(TEncoding.UTF8, TEncoding.GetEncoding(1251), B);
  Result := StringOf(B);
end;

УВАЖАЕМЫЕ, скажите мне, как заставить XE3 послать еб..й текст в заеб...й меня CP2151 кодировке???!1

[Аватар]

function Encode2CP2151(const aStr: string): string;

Точно String? Не AnsiString?

[Человек_Борща]

100% строка юникодная.

Никто не знает решения?

[Stilet]

Может стоит посылать Stream а не открытый текст?
Сам сталкивался с подобным, но писал именно сервер а не клиента.
Тоже определил CharSet:='windows-1251'; сначала, но потом одумался, перешел на UTF и все страницы сайта перекодировал в UTF - сработало как полагается.

[Человек_Борща]

Так сайт-то далеко не мой. И страницы там в CP1251.
Насчет передачи потока, хм.. TStringstream.. А чем он отличается от TStringList?

[Stilet]

А чем он отличается от TStringList?

Если не ошибаюсь там кодирования нет. Инди его принудительно в юникоде не перадает в отличие от строк.

сайт-то далеко не мой. И страницы там в CP1251.

Соболезную

P.S. Да, еще один момент: в JS я часто использую encodeURIcomponent для конвертации строки в... не помню название точно.
В Делфи тоже кажись есть компонент, переводящий в URL для мультиязычных порталов - воспользуйся им для конвертации.

Вот что я имею ввиду: http://yandex.ua/yandsearch?text=Del...ld=ua&lr=20554

[Человек_Борща]

Все оказалось проще.

sHTML := HTTP.Post(cMailSendURL,tsPOST,TEncoding.GetEncoding(1251));