["Hatchet" Harry]

Пишу на Delphi 2009.
Нужно залогиниться на сайте и потом посмотреть кое-какие данные(доступные только под своим логином). Делаю так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var  Request : TStringList; begin  Request := TStringList.Create();  Request.Add('auth_name=USER');  Request.Add('auth_pass=PASS');  IdHTTP.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';  IdHTTP.Request.AcceptLanguage:='ru';  IdHTTP.Request.AcceptEncoding:='gzip, deflate';  IdHTTP.Request.AcceptCharSet:='windows-1251';  IdHTTP.Request.Connection:='keep-alive';  IdHTTP.Post('http://host/index.php', Request);  Memo.Lines.Text := IdHTTP.Get('http://host/xml/module.php'); end;

В итоге получаю код страницы, где заместо кириллицы стрёмные кракозябры.
Пробовал еще так:

Код:

1	Memo.Lines.Text := UTF8ToString(IdHTTP.Get('http://host/xml/module.php'));

получаю тоже кракозябры, но уже не такие стрёмные

[Страдалецъ]

Честно скажу не делал такого, но что если проблема в выбраном компоненте для отображения? Попробуйте RichEdit вместо Memo

["Hatchet" Harry]

Проверил RichEdit, а так же вывод через ShowMessage - результат такой же ((.

["Hatchet" Harry]

Решение давно нашел, забыл отписать
Чисто под Д2009 индюшный косяк.
Если кому надо, вот(решение нашел в королевстве):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

function RussianToUnicode(S: String): String; var Wrd:Word;   pW,pR:PWord;   len:Integer; begin   pW:=@S[1];   len:=Length(S);   SetLength(Result,len);   pR:=@Result[1];   while Len<>0 do begin     Wrd:=pW^;     case Wrd of       $C0..$DF,$E0..$FF:pR^:=Wrd+$0350;       else pR^:=Wrd;     end;     inc(pW);     inc(pR);     dec(Len);   end; end;

И потом соответственно через эту функцию присваиваем исходник страницы в переменную:

Код:

1	Strani4ka := RussianToUnicode(IdHTTP.Get('url'));