IdHTTP не правильно выводит кириллицу

[Shouldercannon]

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

какая Delphi?
у меня Delphi XE7, проблем нет.

Поиграй с параметрами

 Result := StringOf(Base64.Convert(Base64. Default, TEncoding.UTF8, StrArray));

Тоже Delphi XE7. У вас изначально данные приходят в UTF-8 кодировке?

Особо не по экспериментируешь. Base64 может быть только Default.

Result := StringOf(Base64.Convert(Base64.UTF8, TEncoding.ANSI, StrArray)); //No mapping for the Unicode character exists in the target multi-byte code page

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

К модулям IdGlobal;
Запрос

 html := IdHTTP1.Get('ссылка', IndyTextEncoding_UTF8);

[dcc32 Error] Unit22.pas(79): E2250 There is no overloaded version of 'Get' that can be called with these arguments

Запутался. С помощью TIdHTTP получаем данные из PHP. Данные приходят в UTF-8 кодировке. Дальше эти данные нужно перевести в читаемый вид для TMemo или просто переменной типа string.

[kta87]

если обновить инди до последней версии то перегруза не будет. Я так понимаю вы работаете с родным для Д7 инди.

[Shouldercannon]

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

если обновить инди до последней версии то перегруза не будет. Я так понимаю вы работаете с родным для Д7 инди.

Версия Indy 10.6.1.5182 в Delphi XE7

[kta87]

Shouldercannon, у вас уже приходит в utf8... может попробуйте вот так.. WideString(UTF8Decode(html)), ну вместо WideString можно AnsiString или что вам удобнее.

[Shouldercannon]

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

Shouldercannon, у вас уже приходит в utf8... может попробуйте вот так.. WideString(UTF8Decode(html)), ну вместо WideString можно AnsiString или что вам удобнее.

var
  HTTP: TIdHTTP;
  s: string;
begin
  try
    HTTP := TIdHTTP.Create(nil);
    try
      s := HTTP.Get('http://localhost/lanm/getpublicmessages.php');
      Memo1.Text := WideString(UTF8Decode(s));
    except
    end;
  finally
    FreeAndNil(HTTP);
  end;
end;

1~2013-03-20 10:00:00~Shouldercannon~??N??????�N ?!end-post

var
  HTTP: TIdHTTP;
  s: string;
begin
  try
    HTTP := TIdHTTP.Create(nil);
    try
      s := HTTP.Get('http://localhost/lanm/getpublicmessages.php');
      Memo1.Text := AnsiString(UTF8Decode(s));
    except
    end;
  finally
    FreeAndNil(HTTP);
  end;
end;

1~2013-03-20 10:00:00~Shouldercannon~??N???????N ?!end-post

[kta87]

Пробуй так

var
MemStre: TStringStream;
begin
MemStre := TStringStream.Create('');
  try
    idHTTP1.Get('http://localhost/lanm/getpublicmessages.php', MemStre);
    MemStre.Position := 0;
    Memo1.Lines.Text:=UTF8toANSI(MemStre.DataString);
  finally
    MemStre.Free;
  end;
end;

Если все получиться, возможно покатит вариант проще - UTF8ToString

[Shouldercannon]

UTF8toANSI и UTF8ToString справились на ура

Memo1.Lines.Text := Utf8ToAnsi(RawByteString(MemStre.DataString));

[kta87]

Shouldercannon, рад что смог помочь.