Пишу на 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'));
получаю тоже кракозябры, но уже не такие стрёмные