На сайте 100500 рефератов в 150 категориях	Искать реферат
Рефераты на 5 с плюсом С нашим сайтом написать реферат проще простого

Считывание информаии из сети Internet с помощью HTTP

Категория: Компьютерные науки

версия для печати

Страница: [1] [2] [3] [4] [5] [6] [7] [8]

Label2: TLabel;

Edit1: TEdit;

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button1Click (Sender: TObjx6365x2974x0D3B † x7270x7669x7461x0D65 † † x207Bx7250x7669x7461x2065x6564x6C63x7261x7461x6F69x736Ex7D20x200Dx7020x6275x696Cx0D63 † † x207Bx7550x6C62x6369x6420x6365x616Cx6172x6974x6E6Fx2073x0D7D † x6E65x3B64x0D0Dx6176x0D72 † x6F46x6D72x3A31x5420x6F46x6D72x3B31x0D0Dx6D69x6C70x6D65x6E65x6174x6974x6E6Fx0D0Dx247Bx2052x2E2Ax4644x7D4Dx0D0Dx7270x636Fx6465x7275x2065x4654x726Fx316Dx422Ex7475x6F74x326Ex6C43x6369x286Bx6553x646Ex7265> x4F54x6A62x6365x2974x0D3B † x6176x2072x3A73x7320x7274x6E69x3B67x620Dx6765x6E69

{Добавление 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;

Страница: [1] [2] [3] [4] [5] [6] [7] [8]

версия для печати