Реферат: Работа с HTTP протоколом в Delphi

Следующий пример - скачивание сразу нескольких URL одновременно. Надо заметить, что многие программисты пренебрегают многозадачностью Windows (неважно, как она реализована, речь сейчас не об этом). В Дельфи очень легко создавать отдельные, подчиненные Вашей программе процессы (а точнее - потоки) с помощью базового класса TThread. Но об этом мы поговорим в другой раз (в другой статье).

Пример 3. Одновременное скачивание указанных URL в заданный каталог

// Здесь идет заголовок файла и определение формы TForm1 и ее экземпляра Form1

// Описание класса отдельного процесса

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;

// В форму нужно поместить три кнопки TButton, одно поле TEdit и один список

// TListBox. При нажатии на кнопку Button1 вызывается обработчик события

// OnClick - Button1Click. Перед этим в TEdit нужно ввести путь к каталогу, в

// котором будут храниться скачанные файлы, а ListBox1 нужно заполнить списком

// URL-ов для скачивания (с помощью кнопок Add (Button2) и Delete (Button3)).

procedure TForm1.Button3Click(Sender: TObject);

begin

{Удаление выделенного URLиз списка}

if ListBox1.ItemIndex >= 0 then

ListBox1.Items.Delete(ListBox1.ItemIndex);