如何开发一个多线程访问web的程序?(50分)

如何开发一个多线程访问web的程序?(用来分析web的性能)
我使用了nmhttp控件.
procedure Tatack.url;
begin
Nmhttp1.get('202.119.201.251');
end;
procedure Tatack.execute;
Begin
url;
Synchronize(url);
End;
.....
for I:=0 to 255 do Tatack.Create(false);
但是报告already connected
用
procedure Tatack.url;
var
my:TNmhttp;
begin
while true do
Begin
my:=TNmhttp.create(self);<--编译又不能通过!
my.get('202.119.201.251');
my.disconnect;
my.free;
end;
End;
procedure Tatack.execute;
Begin
url;
Synchronize(url);
End;
在线程中不能创建对象吗?

得不停地new出新对象来连接SERVER。
直到耗尽自己的CPU资源为止

>my:=TNmhttp.create(self);<--编译又不能通过!

my:=TNmhttp.create(Form1);

这里Form1是你的某个Form.

>my:=TNmhttp.create(self);<--编译又不能通过
You can't use this unless you in a form .
You may use my:=TNmhttp.create(nil);
test it !

中国大陆INPRISE程序员站点(http://www.nease.net/~borland/)上有一个例子
对你可能有帮助。

接受答案了.