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

end;

end;

{Оператори процесу THTTPThread}

procedure THTTPThread.Execute;

begin

{Робимо так, щоб кажний процес виконувався одночасно с іншими (синхронізация)}

Synchronize(DoWork);

end;

procedure THTTPThread.DoWork;

var i: Integer;

begin

{Створюємо компонент TNMHTTP}

FHTTP := TNMHTTP.Create(Form1);

{Результат потрібно записати в файли}

FHTTP.InputFileMode := True;

{Підбираємо імена для файлів}

i := 1;

while FileExists(Form1.Edit1.Text+'\page'+IntToStr(i)+'.htm') do

Inc(i);

{Вказуємо, в які саме файли класти результат}

FHTTP.Body := Form1.Edit1.Text+'\body'+IntToStr(i)+'.htm';

FHTTP.Header := Form1.Edit1.Text+'\header'+IntToStr(i)+'.txt';

{Пробуємо послати запит}

FHTTP.Get(URL);

{Перед закінченням процесу не забуваємо звільнити пам’ять із-під компонента}

FHTTP.Free;

end;

end.

Технічні вимоги: Intel 80486 processor, 16 MB RAM, Windows 32x, з'єднання з мережею Internet.

В майбутньому програма буде удосконалюватись. Будуть застосовуватись такі нові функції: застосування протоколу FTP, збереження файлів у папки по замовчуванню, сортування інформації по певним параметрам, зxитування як web-сторінок так і інших Internet-файлів.