Работа с HTTP протоколом в Delphi
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: шпаргалки по государству и праву, тезис
| Добавил(а) на сайт: Осипов.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
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
procedure THTTPThread.Execute;
begin
// Делаем так, чтобы каждый процесс выполнялся одновременно с другими (синхронизация)}
Synchronize(DoWork);
end;
procedure THTTPThread.DoWork;
var i: Integer;
begin
{Создаем компонент TNMHTTP}
FHTTP := TNMHTTP.Create(Form1);
Рекомендуем скачать другие рефераты по теме: реферат будущее, объект реферата.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
Главная