Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Многопотоковая закачка [D5, D6, NT4, Win2k, WinXP]

lefan © (2002-10-31 14:44:00)
Приветсвую всех!!!
В общем, проблемка такая, я хочу померить пропускную способность нашего сервера...
хотел создать несколько процессов, которые закачивают страницу, определенное время.
а создатьт не получается n-е количество процессов.
он создает первый процесс и пока не закончится время, остальные не создаются.
Уже не занаю как с этим бороться. Если не затруднит, посмотрите пожайлуста.

unit min;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ExtCtrls, Psock,
NMHttp;

type
TForm1 = class(TForm)
IdHTTP: TIdHTTP;
IdAntiFreeze1: TIdAntiFreeze;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
lbl: TLabel;
Timer1: TTimer;
Label3: TLabel;
Label4: TLabel;
Edit3: TEdit;
NMHTTP: TNMHTTP;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

{

Lefan (2002-10-31 14:44:00) [1]
продолжение....

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
button1.Enabled:=false;
button2.Enabled:=true;

FlagWork:=true;
Count:=0;
time:=strtoint(edit2.Text);
timer1.Enabled:=true;

for i := 0 to strtoint(edit3.Text)-1 do begin
with THTTPThread.Create(true) do begin
{

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »