20.01.2010, 09:00
|
|
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199
Репутация:
21
|
|
Сообщение от Пуховой
Объявляете.
Код:
type
Send = class (TThread)
private
protected
procedure Execute; override;
end;
Создаете.
Код:
procedure send.execute;
var
s : string;
http : tidhttp;
begin
http := tidhttp.create;
try
s := http.get ('http://ya.ru/');
except end;
{Что-то делаем с данными}
http.free;
end;
Запускаете.
Код:
function new_send : boolean;
var
NewThread : Send;
begin
NewThread := Send.Create(true);
NewThread.Priority := tpnormal;
NewThread.FreeOnTerminate := true;
NewThread.Start;
Result := true;
end;
for i := 1 to 10 do new_send; - и все, готово.
В связи с недавними событиями ддоса на ачате появился повпрос:
Если сделать так:
Код:
procedure send.execute;
var
s : string;
http : tidhttp;
begin
http := tidhttp.create;
try
for i:=1 to 10000000 do
s := http.get ('http://ya.ru/');
except end;
{Что-то делаем с данными}
http.free;
end;
for i := 1 to 10000000 do new_send;
И запустить на нескольких компах? это и будет ддос?
Или я чего не догоняю?
|
|
|