TCP连接的问题。 (200分)

J

jjweb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #1

我建立了一个类型TCS
type TCS=record
clients:TClientSocket;
end;
然后执行下面语句
var
Mycs:array[1..500] of TCS;
begin
for i:=1 to 5 do
begin
try
mycs.clients:=TClientSocket.Create(nil);
mycs.clients.Address:='WEB服务器IP';
mycs.clients.Port:=80;
mycs.clients.Active:=true;
label1.Caption:=inttostr(i);
except
MessageDlg('连接错误',mtError,[mbok],0);
end;
end;
end;
我原来只是想测试一下连续用TCP连接的情况。
但我发现，如果循环的次数大点，就会错，如果循环的慢就没问题了。错误提示是“10053错误”
请各位高手帮看看

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #2

首先，我不赞成定义一个包含类的结构，何况在你的例子中也完全没有发要这么做；
其次，象上述的测试应该用线程；
再次，10053错误是指由于超时或者其它失败而中止接连；

其它的我先测试一下再说。

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #3

ClientSocket的连接错误是在他的errorevent里捕获，不能在try except里捕获
这是由于你是异步连接！

 

教

教父

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #4

测试过了，到500也没有问题，可能是你的服务器有问题。

 

R

research

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #5

对,10053错误是你服务器端Socket没打开，或者网络连接不正常的问题

 

J

jjweb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-29

• #6

多人接受答案了。