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

procedure TForm1.Button2Click(Sender: TObject);

var s: string;

begin

{Добавление URL всписок}

s := InputBox('Добавить','Введите URL:','');

if s <> '' then

ListBox1.Items.Add(s);

end;

procedure TForm1.Button1Click(Sender: TObject);

vari: Integer;

begin

{Проверка на существование каталога}

if Length(Edit1.Text) > 0 then

if not DirectoryExists(Edit1.Text) then

MkDir(Edit1.Text);

{Далее идет создание для каждого URLв списке своего процесса}

for i := 0 to ListBox1.Items.Count-1 do begin

with THTTPThread.Create(True) do begin

{Создаем приостановленную задачу, указываем ей ее URLи запускаем ее}

URL := ListBox1.Items[i];

Resume;

end;

end;

end;

// Операторыпроцесса THTTPThread

procedureTHTTPThread.Execute;

begin

// Делаем так, чтобы каждый процесс выполнялся одновременно с другими (синхронизация)}

Synchronize(DoWork);