Главная » Delphi » Авторизация в статистике LiveInternet с помощью Delphi

Авторизация в статистике LiveInternet с помощью Delphi

статистика Авторизация LiveInternet Indy idHTTP Delphi  delphi  Вчера делал заказ. Нужно было написать программу на Delphi, которая с помощью INDY компонентов авторизируется на сайта LiveInternet и получает в Memo html код страницы поисковых фраз.

На самом деле задача довольно простая и решается за пару минут.

  • Кидаем на форму компонент IdHTTP
  • В uses добавляем IdMultipartFormData
  • Кидаем на форму два компонента Edit, кнопку и Memo

В обработчике нажатия на кнопку пишем:

// В USES должны быть IdHTTP, IdMultipartFormData
procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TIdMultipartFormDataStream;
  Code: String;
begin

  Code:=' ';
  // Mеняем UserAgent
  IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible: MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727';
  // Завторизация
  Stream := TIdMultipartFormDataStream.Create;
  try
     Stream.AddFormField('url', AnsiToUtf8(Edit1.Text));   //url-это name поля ввода логина
    Stream.AddFormField('password', AnsiToUtf8(Edit2.Text));   // аналогично
    IdHTTP1.HandleRedirects := True;
    IdHTTP1.Post('http://www.liveinternet.ru/stat/'+Edit1.Text+'/queries.html', Stream );    //авторизируемся
    code:=IdHTTP1.Get('http://www.liveinternet.ru/stat/'+Edit1.Text+'/queries.html');        // получаемк код странички
    Memo1.Text:=Utf8ToAnsi(Code);    // выводим код в мемо

  except
    on e:Exception do
      begin
        Stream.Free;
        exit;
      end
  end;
  Stream.Free;

end;

статистика Авторизация LiveInternet Indy idHTTP Delphi  delphi    liveinternet_delphi.rar (211,8 KiB, 221 hits)

Похожие записи
Text Browser на Delphi Для оптимизации сайтов под поисковые системы, написал для себя вот такой текстовый веб-браузер. Хотя с браузером я конечно загнул - это скорее просмот...
Ограничение попыток авторизации в WordPress... У моего хостера возникла проблема. Идет массовая атака на админки блогов под управлением Wordpress. В качестве меры защиты пользователей была введена...
Моя коллекция иконок У каждого программиста есть подобная коллекция иконок. Вот решил поделиться своей. Архив содержит 4308 файлов ICO размеров 16х16 и 32х32. ...
Delphi — сортировка в ListView по двум колон... Сегодня столкнулся с необходимостью отсортировать содержимое ячеек ListView по содержимому двух колонок. Ранее такое делать не приходилось, поэтому ре...
This entry was posted in Delphi and tagged , , , , , . Bookmark the permalink.

1 комментарий: Авторизация в статистике LiveInternet с помощью Delphi

  1. Игорян говорит:

    Да, чтож Indy полезная щтука. На работе делали как-то выгрузку XML на другой сервис - насяльника застрапонил меня за предложение пользовать Indy. И вот и усирались с этим WinInet. А по мне, вышло бы проще и быстрее, без потери надёжности

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *