Проблема c кодировкой delphi2010

[)Игнат(]

Здравствуйте.
Простите за тупой, возможно повторяющийся вопрос.
Суть проблемы:
Есть текст в кодировке UTF8
Его нужно перевести в кодировку win1251 и отправить на сервер, через TidHTTP с помощью MultipartFormData
Вместо кириллического текста на сервер приходит текст вроде "??????2.????"
Как такую проблему можно решить?
UTF8ToAnsi не помогает достичь результата

[inconnect]

Сообщение от )Игнат(

Здравствуйте.
Простите за тупой, возможно повторяющийся вопрос.
Суть проблемы:
Есть текст в кодировке UTF8
Его нужно перевести в кодировку win1251 и отправить на сервер, через TidHTTP с помощью MultipartFormData
Вместо кириллического текста на сервер приходит текст вроде "??????2.????"
Как такую проблему можно решить?
UTF8ToAnsi не помогает достичь результата

Попробуй-ка так IdHTTP.Request.CharSet:='utf-8';

[)Игнат(]

with HTTP.Request do
begin
    UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1';
    Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
    AcceptLanguage:=	'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
    AcceptCharset:=	'windows-1251,utf-8;q=0.7,*;q=0.7';
    Connection:=	'keep-alive';
    Pragma:='no-cache';
end;

при таких настройках и получаю "подснежник"
Однако же твой совет не помог.

[Alter]

function Utf8Decode и UTF8Encode помогут

[)Игнат(]

Сообщение от Alter

function Utf8Decode и UTF8Encode помогут

Простите, можно на примере объяснить?
Спасибо.

[Alter]

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ss :TStringStream;
  Buf :string;
begin
 Button1.Enabled := False;
 Ss := TStringStream.Create;
  try
 IdHTTP1.Get(Edit1.Text, Ss);
   // HTML текст страницы
 Buf := Ss.DataString;
 if Trim(UTF8Decode(Buf)) <> '' then // просто для demo
  Buf := UTF8Decode(Buf);
 RichEdit1.Lines.Text := Buf;
  finally
 FreeAndNil(Ss);
 Button1.Enabled := True;
  end;
end;

Вообще лучше грузить получаемое в поток. С кодировками потом нет проблем. Не всегда, получая напрямую строку от Indy компонента, можно отобразить корректно текст.
Может пригодиться, если содержимое сайта сжато, это IdCompressorZLib1: TIdCompressorZLib

[)Игнат(]

Для моего примера:

MSGD.AddFormField('field_name','Кириллический текст'); // В Делфи он в  ЮТФ-8

Использовать:

MSGD.AddFormField('field_name',UTF8Decode('Кириллический текст')); //

Вот таким образом использовать эту функцию?

[Alter]

Нет, я думал, что из названия функций будет понятно, что оно делает. Поясняю:
Utf8Decode - преобразует строку формата UTF-8 к строке формата Unicode.
Utf8Encode - преобразует строку формата Unicode к строке формата UTF-8.