Зчитування інформаії з мережі Internet за допомогою HTTP, Детальна інформація

Що стосується повідомлень-відповідей, наявність тіла повідомлення у відповіді залежить від методу, що був використаний у запиті, і Статус-Коду. Усі відповіді на запити HEAD не повинні містити тіло повідомлення, хоча наявність деяких полів заголовка повідомлення може вказувати на можливу присутність такого. Відповідно, відповіді "204 No Content", "304 Not Modified", і "406 None Acceptable" також не повинні містити в собі тіло повідомлення.

ІІ. ОПИС ПРОГРАМИ “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;