|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
IdHTTP - проблемы с кодировкой
Пишу на Delphi 2009.
Нужно залогиниться на сайте и потом посмотреть кое-какие данные(доступные только под своим логином). Делаю так: Код:
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; Пробовал еще так: Код:
Memo.Lines.Text := UTF8ToString(IdHTTP.Get('http://host/xml/module.php')); |
#2
|
||||
|
||||
Честно скажу не делал такого, но что если проблема в выбраном компоненте для отображения? Попробуйте RichEdit вместо Memo
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
Проверил RichEdit, а так же вывод через ShowMessage - результат такой же ((.
|
#4
|
|||
|
|||
Решение давно нашел, забыл отписать
Чисто под Д2009 индюшный косяк. Если кому надо, вот(решение нашел в королевстве): Код:
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; Код:
Strani4ka := RussianToUnicode(IdHTTP.Get('url')); |