Embarcadero и UTF8Encode

[Vapaamies]

Подвоха нет, Delphi всю работу делает за тебя. Костыли больше не нужны, говорю же. Можешь посмотреть в ассемблерном подстрочнике, какие библиотечные процедуры вызываются при присваивании строк друг другу. Они и делают фактическую перекодировку.

Добавь еще KOI8String = type AnsiString(20866), и будет тебе счастье.

[eclipse_99]

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

Подвоха нет, Delphi всю работу делает за тебя.

Хм... А что делать с тем, что при загрузке письма с почты (письмо в виде html страницы) WebBrowser отображает эту страницу с кириллическими буквами в виде квадратов?

[Vapaamies]

Скорее всего, старая версия IE, используемая компонентом TWebBrowser, не поддерживает веб-шрифты.

[eclipse_99]

Добрые люди подсказали с UTF8Encode

function StringToUTF8Encode(const s:string):string;
begin
    result:= Stringof(Tencoding.UTF8.GetBytes(s))
end;

http://www.delphikingdom.ru/asp/answ...IDAnswer=82969

И с HTML страничками в письме тоже разобрался! Сначала ищем есть или нет в теле письма TidText, а уже потом сохраняем эти странички и отображаем в браузере отдельно, а не само IdMessage.Body.text. Примерно по такому типу:

for i:=0 to MessMail.MessageParts.Count-1 do
  with MessMail.MessageParts do
    if items[i].ClassType=TIdAttachmentFile then

[Vapaamies]

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

Добрые люди подсказали с UTF8Encode

Это тоже быдлокод. В ответах на "Королевстве Delphi" вам прозрачно на это намекали, но вы упорно продолжаете играть в угадайку и гнуть свою линию. А мы вам в няньки не нанимались. Не хотите описать задачу и разобраться от и до -- шаманьте дальше, вам же от этого хуже будет.

[ZuBy]

/// //////////////////////////////////////////////////////////////////
function myUTF8ToString(aStr: String): string;
// uses System.NetEncoding
var
  Data: TEncoding;
  StrArray: TBytes;
begin
  Data := TEncoding.Create;
  try
    try
      StrArray := BytesOf(aStr);
      Result := StringOf(Data.Convert(Data.UTF8, TEncoding.Default, StrArray));
    except
      Result := aStr;
    end;
  finally
    FreeAndNil(Data);
  end;
end;
/// //////////////////////////////////////////////////////////////////

function myStringToUTF8(aStr: String): string;
// uses System.NetEncoding
var
  Data: TEncoding;
  StrArray: TBytes;
begin
  Data := TEncoding.Create;
  try
    try
      StrArray := BytesOf(aStr);
      Result := StringOf(Data.Convert(Data.Default, TEncoding.UTF8, StrArray));
    except
      Result := aStr;
    end;
  finally
    FreeAndNil(Data);
  end;
end;

[eclipse_99]

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

Не хотите описать задачу и разобраться от и до -- шаманьте дальше, вам же от этого хуже будет.

Описал, по-моему, нормально. Чего непонятного? Так и спрашивал:-" как закорючки привести к нормальному виду?"