Юникод и IdHttp.

[doktor255]

ReportCube Код в студию.
ZuBy Работа с дисковой подсистемой категорически не приветствуется, поэтому сразу нет, даже если код работает.

[ZuBy]

function ToUtf8_4(S: String): AnsiString;
var
  mem: TMemoryStream;
begin
  Result := '';
  mem := TMemoryStream.Create;
  try
    with TStringList.Create do
    begin
      Add(S);
      SaveToStream(mem, TUTF8Encoding.Create);
      mem.Position := 0;
      LoadFromStream(mem, TEncoding.ANSI);
      mem.Position := 0;
      Result := Text;
      Free;
    end;
  finally
    mem.Free;
  end;
end;

ты просто издеваешься))

[doktor255]

ZuBy Просто ты не видишь проект, иначе ты бы понял, что работа с HDD неосуществима. Я запорю диск за неделю. Сейчас проверю.

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

А нужно, чтоб были видны "крокозябры" юникода!

Их не будет видно в ОС которая старше XP и 2003 сервера, смени системный шрифт в ОС на любой, где нет кириллицы, и будет тебе счастье иероглифическое.
Или пиши в ANSI лог, снифай пакеты с сервера.
UTF8Encode/Decode работает нормально.

Ну пробовал я редактировать заголовок формы, ну получил в итоге ошибку со стороны сервера. Дальше то что???

Че нервный такой?

[ReportCube]

function StrAnsiToUtf(aStr: String): String;
var
Encoding, aEncoding: TEncoding;
Buffer: TBytes;
begin
Encoding := TEncoding.UTF8;
aEncoding := TEncoding.Default;
Buffer := Encoding.GetBytes(aStr);
TEncoding.Convert(aEncoding, Encoding, Buffer);
Result := aEncoding.GetString(Buffer);
end;

[doktor255]

Теперь уже я запутался.... В тестовом проекте эта функция работает, в основном проекте перекодировка не происходит. Как так то??? Строки берутся из StingList, тип строк указан как String, должно работать. Совсем запутался...

Сообщение от Человек_Борща

Их не будет видно в ОС которая старше XP и 2003 сервера

А скриншот я как сделал???

[eval]

а в StingList они откуда попадают?
string это юникод

[doktor255]

Всем кто мне пытался помочь, огромное спасибо, и отдельно спасибо товарищу ReportCube. Функция

function StrAnsiToUtf(aStr: String): String;
 var
 Encoding, aEncoding: TEncoding;
 Buffer: TBytes;
 begin
 Encoding := TEncoding.UTF8;
 aEncoding := TEncoding.Default;
 Buffer := Encoding.GetBytes(aStr);
 TEncoding.Convert(aEncoding, Encoding, Buffer);
 Result := aEncoding.GetString(Buffer);
 end;

Оказалась именно тем, что я искал!!! Большей оптимизации этот код можно подвергнуть?

[Stilet]

Большей оптимизации этот код можно подвергнуть?

Можно. Если внимательно без соплей веером прочитать всю тему от нуля и до конца.
Но тебе можно расслабиться, это не твое )