Блог по программированию в среде Delphi

Поиск по блогу

Есть идея по созданию интересной программы?

Опиши тут и я по возможности постараюсь это реализовать специально для тебя! Без $ ))

вторник, 22 июня 2010 г.

Знаки вопросов вместо русских букв (?????????? ???????)

Пробовал с Indy 10.5.5 c indy 9 пока без успехов))

var
  html:String;
  stream: tStream;
  strings1: tStringList;
begin
   stream := tMemoryStream.Create;
   IdHTTP1.Get('http://nmdsoft.blogspot.com',stream);
   stream.Position := 0;
   strings1 := tStringList.Create;
   strings1.LoadFromStream(stream);
   memo1.Lines.Assign(strings1);
   strings1.Free;
   stream.Free;
   //memo1.Text:=Utf8ToAnsi(memo1.Text);
end;

2 комментария:

  1. на Indy 10.1.x русский шрифт отображается нормально. На 10.5.8 тоже не рабоает у меня.

    ОтветитьУдалить
    Ответы
    1. я сделал проще, я отказался от индей и пользуюсь Synapse
      сайт автора http://www.ararat.cz/synapse/doku.php/start

      Удалить