Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.26;
Скачать: 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 вся ветка

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-85937
AVR
2002-12-16 22:30
2002.12.26
XPath, IDOMNode, IDOMElement


14-86085
spROOT13
2002-12-08 17:48
2002.12.26
Архивы форумов


3-85851
Странник
2002-12-06 04:05
2002.12.26
ADOQuery - как-то оно не так себя ведет :(


1-85994
tester1
2002-12-16 10:51
2002.12.26
не получается сделать хитрый алгоритм :(


4-86210
Monya
2002-11-12 10:24
2002.12.26
Системные переменные