Скачать: CL | DM;

Многопотоковая закачка   Найти похожие ветки 

← →
lefan ©   (2002-10-31 14:44) [0]

Приветсвую всех!!!
В общем, проблемка такая, я хочу померить пропускную способность нашего сервера...
хотел создать несколько процессов, которые закачивают страницу, определенное время.
а создатьт не получается 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) [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
{

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c