形如clientsocket[i]:=socket 如何定义 clientsocket(100分)

K

kinglea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-15

• #1

procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
我已经用了这个过程，想定义一个数组来记录socket返回的值，不知如何定义clientsocket:=socket ，中的clientsocket，请哪位大侠指点！

 

K

kinglea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-15

• #2

怎么没有人来阿？

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-15

• #3

不完全明白你的意思
如果只是组件组的产生可以这样
var
i:integer;
Clientsocket:array of TClientsocket;
begin
for i:=0 to n do
begin
Clientsocket:=TClientsocket.create;
...
end;
end;
但是在网络连接是应该由服务器端自动产生

 

K

kinglea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-15

• #4

谢谢指点，问题暂时搞定！

 

C

chimney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #5

可以用每个socket的Handle.

 

K

kinglea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #6

多人接受答案了。