GeekElectronics

Блог о программировании, электронике и рыбалке

Авторизация в статистике 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_delphi.rar (211,8 KiB, 244 hits)

  • keyboard_arrow_downАвторизация в статистике LiveInternet с помощью Delphi
    • Автор:
    • Язык: ru-RU
    • Миниатюра: https://geekelectronics.org/wp-content/uploads/2017/05/image_thumb16-1.png
    • Рубрика: Delphi
    • Метки: , , , , ,
    • Обновлено: 21.12.2016
    • Комментариев: 1
    • Просмотров: 552
  • Оцените статью - я старался
    1 Star2 Stars3 Stars4 Stars5 Stars (1 votes, average: 5,00 out of 5)
    Загрузка...
  • Поделитесь с друзьями
logo

Комментариев: 1

  • Игорян:

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

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

vertical_align_top
banner