Отправка GET запроса в DELPHI

Дата публикации

Здравствуй дорогой читатель. Как много новых возможностей дает нам имение программировать, как много возможностей дает нам интернет, а что если объединить эти два направления и попробовать написать программу для работы с интернетом. У начинающих может возникнуть вопрос: "С чего начать?". Я бы посоветовал начать с отправки GET запроса.

Именно благодаря этому запросу мы можем получить исходный код страницы, можем обработать его и сохранить в файл. Благодаря Get запросу мы также можем скачать файл с сайта. Как скачать файл с сайта, я уже рассказывал ранее(http://fegorsk.ru/index.php/studentam/delphi/35-sokhranyaem-fajl-s-sajta). А вот как получить код страницы и сохранить его в файл расскажу сегодня.

Отправлять запрос мы будем на главную страницу моего сайта : http://fegorsk.ru/ , а делать это мы будем при помощи компонента idhttp. У данного компонента есть метод get, им то мы и воспользуемся.

Итак создайте новый проект и поместите на форму следующие компоненты: Button, Memo, IdHTTP. У меня получилось так:

Отправка Get запроса

Вся логика программы будет описана в обработчике события OnClick кнопки.

1. Мы получаем код страницы и отображаем его в MEMO:  Memo1.Text:=IdHTTP1.Get('http://fegorsk.ru/');

2. Текс станицы сохраняем в корне диска C : Memo1.Lines.SaveToFile('C:\test.txt');


Ниже представлен исходник целиком:

 
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, OleCtrls, SHDocVw, IdBaseComponent, IdComponent,
 IdTCPConnection, IdTCPClient, IdHTTP;
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
 { Private declarations }
  public
 { Public declarations }
  end;
var
    Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
    Memo1.Text:=IdHTTP1.Get('http://fegorsk.ru/');
    Memo1.Lines.SaveToFile('C:\test.txt');
end;
end.

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



Обновить

Комментарии   

 
0 #2 Евгений 08.12.2015 11:00
Супер. Мне понравилось! А как оформить запрос на получение данных о посещаемости сайта(напримаер Google Analytics API)? Заранее спасибо! :-)
Цитировать
 
 
-4 #1 Ярослав 28.07.2014 13:42
спасиба вот ето я и искал а то бил толька показивают как отобразить в мемо текст из тхт каторий на компе
Цитировать
 
Thursday the 14th. icq 486350790
Copyright 2012

©