Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.03 c
3-85810
Mr.Joyce
2002-12-05 17:35
2002.12.26
Interbase components


3-85821
mio
2002-12-03 14:11
2002.12.26
НЕ-сетевой обмен данными между двумя БД


1-86010
snake1977
2002-12-16 13:29
2002.12.26
TMemo и ограничения


1-85983
xyz
2002-12-16 00:49
2002.12.26
Из компьютера сделать телефонного робота...


1-86016
Igorek
2002-12-16 13:22
2002.12.26
Текст битмапным шрифтом вертикально





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский