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

[Shouldercannon]

Получаю данные с PHP сохранённого в кодировке UTF-8 в этого кириллица отображается символами. В чём проблема?

[Vlad_55]

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

Получаю данные с PHP сохранённого в кодировке UTF-8 в этого кириллица отображается символами. В чём проблема?

переводи кодировку полученного документа в Ansi. Можно воспользоваться старенькими функциями типа utf8ToAnsi, а можно и более продвинутым способом через TEncoding (D2009-2010) ну или через интерфейс IMultiLanguage. Вариантов море

[Shouldercannon]

У меня Delphi 7, так что TEncoding отпадает. Utf8ToAnsi помогло.

Delphi XE7. Тажа проблема с кодировкой.
Решение проблемы

function GetUTF8Page(URL: string): AnsiString;
var
  Stream: TStream;
  IdHTTP: TIdHTTP;
begin
  try
    IdHTTP := TIdHTTP.Create(nil);
    Stream := TMemoryStream.Create;
    try
      IdHTTP.Get(URL, Stream);
      Stream.Position := 0;
      SetLength(Result, Stream.Size);
      Stream.Read(Result[1], Stream.Size);
      Result := AnsiString(UTF8ToString(Result));
    except
    end;
  finally
    FreeAndNil(IdHTTP);
    FreeAndNil(Stream);
  end;
end;

procedure TForm22.Button1Click(Sender: TObject);
begin
  Memo1.Text := String(GetUTF8Page('http://localhost/messages.php'));
end;

Можно ли как-то упростить получение данных в кодировке UTF-8?

[disbnt]

Может utf8decode("строка")

 s := utf8decode(IdHTTP.Get(URL));

[ZuBy]

function UTF8_DelphiXE7(aStr: String): string;
// uses System.NetEncoding
var
  Base64: TEncoding;
  StrArray: TBytes;
begin
  Base64 := TEncoding.Create;
  try
    try
      StrArray := BytesOf(aStr);
      Result := StringOf(Base64.Convert(Base64.Default, TEncoding.UTF8, StrArray));
    except
      ShowMessage(aStr + #13#10 + SysErrorMessage(GetLastError));
      Result := '';
    end;
  finally
    FreeAndNil(Base64);
  end;
end;

как-то так, в какой бы кодировке текст не был вернет в UTF8

[Shouldercannon]

Хм. Ни один из способов не помог. Данные уже в UTF-8 приходят.
На

Base64 := TEncoding.Create;

Предупреждения:
[dcc32 Warning] Unit22.pas(56): W1020 Constructing instance of 'TEncoding' containing abstract method 'TEncoding.GetMaxByteCount'
[dcc32 Warning] Unit22.pas(56): W1020 Constructing instance of 'TEncoding' containing abstract method 'TEncoding.GetMaxCharCount'
[dcc32 Warning] Unit22.pas(56): W1020 Constructing instance of 'TEncoding' containing abstract method 'TEncoding.GetPreamble'

[NIKOLAYY2]

Может так?

Utf8ToAnsi(IdHTTP1.Get('http://.................');

[Shouldercannon]

Безрезультатно

[ZuBy]

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

Хм. Ни один из способов не помог. Данные уже в UTF-8 приходят.
На

Base64 := TEncoding.Create;

Предупреждения:
[dcc32 Warning] Unit22.pas(56): W1020 Constructing instance of 'TEncoding' containing abstract method 'TEncoding.GetMaxByteCount'
[dcc32 Warning] Unit22.pas(56): W1020 Constructing instance of 'TEncoding' containing abstract method 'TEncoding.GetMaxCharCount'
[dcc32 Warning] Unit22.pas(56): W1020 Constructing instance of 'TEncoding' containing abstract method 'TEncoding.GetPreamble'

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

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

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

[kta87]

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

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