Юникод и IdHttp.

[ZuBy]

function ToUtf8_2(S: String): UTF8String;
begin
  with TStringStream.Create(S, TUTF8Encoding.Create) do
  begin
    ShowMessage(Encoding.EncodingName); // проверяем кодировку
    Result := ReadString(Size);
    Free;
  end;
end;

Я себе так делал, все верно. в idhttp (HTTPOptions) hoForceEncodeParams := true;

[Аватар]

Скорее всего Utf16

Не-а. UTF-8

[Пепел Феникса]

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

P.S. И с какого не юникод? Самый что ни на есть юникод. Скорее всего Utf16.

utf8, а не utf16.
последний, помоему, не принят для вэба в силу пустых байт и разного порядка байт.
а utf8 кодируется от 1 до 6 байт на символ.
но это так, для справки

хм, форсирование кодировки параметров...да уж, забыл как-то

[doktor255]

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

Я себе так делал, все верно.

Не катит. То что нужно, не получаю.

Сообщение от Пепел Феникса

последний, помоему, не принят для вэба

В моём случае это не совсем вэб сервер, или точнее не то, что принято под ним понимать. Это сервер одного ява приложения. Да и это не важно в конце концов. В D7 я пользовался AnsiToUtf8 и код прекрасно работал. При переходе на XE2 и выше сервер перестал меня понимать, и как я не искал решение, пробуя различные стандартные функции, так и не смог его найти. И тут не виноват сервер. Я смотри сниф отправляемого пакета, если используется что ни будь типа AnsiToUtf8 или просто string, HEX код один, а нужен совершенно другой, наподобие того, который выдаёт написанная мною вначале темы функция. Я уже не знаю где копать, чтоб написать, или найти НОРМАЛЬНУЮ функцию.

[ZuBy]

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

Не катит. То что нужно, не получаю.

а что нужно-то?
строку проверил? utf-8?
ответ от сервера пришел не правильный?

[doktor255]

ZuBy сделай так
ShowMessage(ToUtf8_2('юникод'));
Что видишь? А нужно, чтоб были видны "крокозябры" юникода! Писал же выше, неужели так сложно прочитать?

[ReportCube]

Используйте при конвертации не String, а AnsiString - и всё заработает

[doktor255]

ReportCube Идея хорошая, и смысл мне понятен, но к сожалению так тоже не выходит. Упрощаю задачу до безумной простоты. Есть следующий код

var
s: string;
begin
s:= 'Программфорум';

Нужно дописать код и вывести переменную s на экран методом ShowMessage так, чтоб получилось как на картинке. Как это сделать?

[ReportCube]

Легко. Значение сохранено в формате UTF-8
Открываем как ANSI в кодировке Windows-1251 и получаем желаемое: Программфорум

[ZuBy]

Вот держи, по другому никак

function ToUtf8_3(S: String): AnsiString;
var
  tfn: string;
begin
  Result := '';
  tfn := TPath.GetTempFileName;// Uses IOUtils;
  with TStringList.Create do
  begin
    Add(S);
    SaveToFile(tfn, TUTF8Encoding.Create); 
    Free;
  end;

  with TStringList.Create do
  begin
    LoadFromFile(tfn, TEncoding.ANSI);
    Result := Text;
    Free;
  end;
end;