Проблема с кодировкой в Delphi 2010

[Shouldercannon]

Один и тот же код в проекте в Delphi 7 и Delphi 2010

Memo1.Text := IdHTTP1.Get('localhost');

работает по разному. В Delphi 7 кириллица отображается нормально, в Delphi 2010 отображается так: àíäðþõà 58. AnsiToUtf8 и Utf8ToAnsi не помогают. В браузере текст отображается нормально при кодировке Windows-1251. Как решить проблему с кодировкой?

[veniside]

а каким боком тут utf8, если страница в 1251. Так и надо сказать дельфи:

type
  s1251 = type AnsiString(1251);

...
  Memo1.Text := s1251( IdHTTP1.Get('localhost') );

[Shouldercannon]

Не помогло. Фокусник отображается как Oieoniee

[Аватар]

Показанный пример в кодировке macucrainian и раскодируется как 'андрюха 58'. Нет?

[Shouldercannon]

Не понял вас

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

UTF8Decode ?

[Shouldercannon]

Не помогает

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

UTF8Decode,UTF8Encode их много. Читайте заголовки http ам должно говоритьчся какая кодировка.

[veniside]

если страница в 1251, utf8 явно мало чем поможет

в первом сообщении я забыл, что бороться прийдётся с серъёзным противником — супермозгом авторов инди. Метод борьбы несколько сложнее, чем хотелось бы:

type
  s1251 = type AnsiString(1251);

var
  s: string;
  c: s1251;
begin
  s := IdHTTP1.Get('http://localhost/');
  setLength(c, length(s));
  IdHTTP1.Response.ContentStream.Read(c[1], length(s));
  //
  Memo1.Lines.Add(c);
end;

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

veniside, +1. По этому я выкинул инди и поставил Synapse. Он меньше, он проще, он удобнее. +хороший пример работы Winsock