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

Авторизация на сайте с помощью 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, 292 hits)

  • keyboard_arrow_downАвторизация на сайте с помощью Delphi
    • Автор:
    • Миниатюра: Авторизация на сайте с помощью Delphi
    • Рубрика: Delphi в примерах
    • Обновлено: 27.12.2017
    • Комментариев: 1
    • Просмотров: 606
      • searchПоисковые боты
        Дата Бот
        2018-04-20 22:26:36 Google
        2018-04-19 15:43:08 Yandex
        2018-04-16 15:49:45 Google
        2018-04-16 07:25:32 Yandex
        2018-04-14 01:34:53 Bing
        2018-04-13 02:52:08 Yandex
        2018-04-11 18:32:06 Google
        2018-04-10 19:22:59 Yandex
        2018-04-10 06:00:14 Mail.RU
        2018-04-08 20:45:26 Yandex
  • Оцените пожалуйста статью
    1 Star2 Stars3 Stars4 Stars5 Stars
    Loading Загрузка...
  • Поделитесь с друзьями
GeekElectronics

Похожие записи

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

  • Avatar for source
    Игорян:

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

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

arrow_upward