Считывание информаии из сети Internet с помощью HTTP
Страница: [1] [2] [3] [4] [5] [6] [7] [8]
Что касается сообщений-ответов, наличие тела сообщения в ответе зависит от метода, который был использован в запросе, и Статус-Кода. Все ответы на запросы HEAD не должны содержать тело сообщения, хотя наличие некоторых полей заголовка сообщения может указывать на возможное присутствие такового. Соответственно, ответы "204 No Content", "304 Not Modified", и "406 None Acceptable" также не должны включать в себя тело сообщения.
II. ОПИСАНИЕ ПРОГРАММЫ "DOWNLOADER"
Программа "Downloader" была создана в среде программирования Borland Delphi 5. Основное назначение - считывание из сети Internet Web-страниц с помощью протокола HTTP.
Программа имеет возможность считывать страницы синхронно, то есть несколько страниц сразу. Считывание происходит в специально выбранный пользователем каталог. Пользователь имеет возможность видеть какие страницы он скачивает. Список читаемых страниц находится на главной форме. Чтобы начать скачивание страниц нужно нажать кнопку "start". Если у пользователя возникла необходимость удалить страницу, считывается нужно лишь кликнуть на названии страницы в списке и нажать кнопку "delete". Считывание страницы происходит не полностью, т.е. закачивается только основная форма (текст, ссылки). Идет использования только одного протокола HTTP. В дальнийшому программа будет совершенствоваться: будет использоваться способ закачки страницы полностью, скачивание для удобства будет происходить еще и с помощью FTP.
Текст программы:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Psock, NMHttp, FileCtrl;
type
THTTPThread = class (TThread)
private
{Для кажного процесса - создаем свой компонент TNMHTTP}
FHTTP: TNMHTTP;
protected
{Execute вызывается при запуску процесса; override - заменяет существующую процедуру базового класса TThread}
procedure Execute; override;
{DoWork - созданная нами функция, выполнение которой синхронизируется в Execute}
procedure DoWork;
public
{URL - созданная нами строка, указывающая процесса, URL ему нужно закачать}
URL: string;
end;
TForm1 = class (TForm)
Label1: TLabel;
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Страница: [1] [2] [3] [4] [5] [6] [7] [8]
версия для печати
Читайте также:
— Особенности форм организации обучения и методов обучения за педагогом новатором
— Писатели Волыни в борьбе против польских влияний в 20-30 годах ХХ века
— Психологические аспекты творческого процесса и их реализация на уроках литературы
— Язык устной народной поэзии и диалекты
— Просторечия в романе Уласа Самчука
|