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

Label2: TLabel;

Edit1: TEdit;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObj\x6365\x2974\x0D3B†\x7270\x7669\x7461\x0D65††\x207B\x7250\x7669\x7461\x2065\x6564\x6C63\x7261\x7461\x6F69\x736E\x7D20\x200D\x7020\x6275\x696C\x0D63††\x207B\x7550\x6C62\x6369\x6420\x6365\x616C\x6172\x6974\x6E6F\x2073\x0D7D†\x6E65\x3B64\x0D0D\x6176\x0D72†\x6F46\x6D72\x3A31\x5420\x6F46\x6D72\x3B31\x0D0D\x6D69\x6C70\x6D65\x6E65\x6174\x6974\x6E6F\x0D0D\x247B\x2052\x2E2A\x4644\x7D4D\x0D0D\x7270\x636F\x6465\x7275\x2065\x4654\x726F\x316D\x422E\x7475\x6F74\x326E\x6C43\x6369\x286B\x6553\x646E\x7265›\x4F54\x6A62\x6365\x2974\x0D3B†\x6176\x2072\x3A73\x7320\x7274\x6E69\x3B67\x620D\x6765\x6E69

{Додавання URL в список}

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

if s <> '' then

ListBox1.Items.Add(s);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

{Видалення виділеного URL із списку}

if ListBox1.ItemIndex >= 0 then

ListBox1.Items.Delete(ListBox1.ItemIndex);

end;

procedure TForm1.Button1Click(Sender: TObject);

var i: 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;