再问winsock??(10分)

现在我的界面中有6个winsock控件，我在用这6个winsock控件连接10个不同的IP地址
我是这样想的：
从数据库中取出要连接的IP地址放到数组ip中。。
从winsock1开始判断，如果winsock1空闲，则用winsock1连接IP[1]，同时还要能去判断winsock2是否空闲，如空闲则边连接ip[2]...
依此。。那我怎么样才可以要6个winsock同时工作，且工作执行完空闲后能去继续连接那些没有连接的IP地址，直到这些IP地址全部都被连过。

注：可能IP地址数上上百个。。
好多高手告诉我要用多线程，可是我应该怎么来用多线程呢？？

就是每个线程创建自己的sock控件，而不是由主线程自己创建，然后各做各的就可以了

那你的意思是说动态去创建sock控件？？
而不是在设计时把这6个winsock放到窗口中。。？？
那你能否给段示例代码？？
谢谢了。。

{********************************************************}
{* 该模块为为通信服务的线程模块,在该线程中动态的创建 *}
{* SOCKET对象,并且将在其他模块达好包的配置文件传入进来 *}
{* 本模块提供对外的接口过程为: *}
{* Receive_comm(ReccmdStr:string):接受命令包字符串 *}
{* Receive_data(RecDataStr:string):接受数据抱字符串 *}
{* Recive_addr(RecAddr:string):接受ip地址 *}
{* 在打好包后调用这两个过程传递进来,调用线程只需要在调用*}
{* 时声明一个该线程的对象,然后就将他创建出来 *}
{* *}
{********************************************************}
unit ThreadSocket;

interface

uses
Classes,ScktComp,sysutils,Graphics,windows,trans,unitmain,messages,ExtCtrls,forms,decode,Controls;
type
TCsocket = class(TThread)
private
cskccr:Tclientsocket;
{ Private declarations }
protected
procedure write_canves;
procedure doconnect(Sender: TObject;Socket: TCustomWinSocket);
procedure doError(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure doRead(Sender: TObject;Socket: TCustomWinSocket);
procedure Execute; override;
public

end;
type
TTimeForm = class inheritsFrom:TForm;
private
public
timecount:Ttimer;
procedure TimeOnTimer(Sender:TObject);
end;
var
CmdStr:string;
DataStr:string;
AddrStr:string;
typeid:integer;
msg:tagMSG;
net_str:string;//网络状态提示字符串；
readerserial:string;//读卡器序列号字符串
time_str:integer;
pcmname:string;
PrintStr:string;
timecount:Ttimer;
k:integer;
W_tmperr,W_tmprd,W_tmptm:integer;
function labfaile(typeid:integer;net_str:string):string;//提示下载失败
function labsucc(typeid:integer):string;//提示下载成功
procedure Receive_comm(ReccmdStr:string); //接收命令字符串过程
procedure Receive_data(RecDataStr:string);//接收数据字符串过程
procedure Recive_addr(RecAddr:string);//接收IP地址字符串过程
procedure recive_type(rectype:integer);//接收下载项目类型
procedure recive_name(reader_name:string);//接收读卡器序名称
procedure recive_pcmid(pcm_ID:integer);//取得PCM的ID
procedure net_messages(net_code:integer);//网络状况信息提示；
procedure checkvalue();
procedure time_count();//计时器功能，如果超过时间未能接收到返回确认包，即强行结束线程

implementation
var
TTF : TTimeForm;

procedure checkvalue();
begin
k:=0;
end;
procedure time_count();
begin
TTF := TTimeForm.Create;
TTF.timecount :=TTimer.Create(nil);
TTF.timecount.Interval:=20000;
TTF.timecount.Enabled:=true;
TTF.timecount.OnTimer := TTF.TimeOnTimer;
end;

procedure TTimeForm.TimeOnTimer(Sender:TObject);
begin
W_tmptm := W_tmptm+TTf.timecount.Interval;
end;

procedure TCsocket.write_canves;
var
tmp:string;
begin
tmp:=PrintStr;

Frmtrans.redit.Lines.Add(tmp);
end;
procedure Receive_comm(ReccmdStr:string); //接收命令字符串
begin
CmdStr:=ReccmdStr;
end;

procedure Receive_data(RecDataStr:string);//接收数据字符串
begin
DataStr:=RecDataStr;
end;

procedure Recive_addr(RecAddr:string);//接收IP地址
begin
AddrStr:=trim(RecAddr);
end;

procedure recive_type(rectype:integer);//接收下载项目类型
begin
typeid:=rectype;
end;

procedure recive_pcmid(pcm_id:integer);
begin
pcmname:=inttostr(pcm_id);
end;

procedure recive_name(reader_name:string);
begin
readerserial:=reader_name;
end;

{连接事件}
procedure TCsocket.doconnect(Sender: TObject;Socket: TCustomWinSocket);
begin
Socket.SendText(CmdStr);//命令包
Socket.SendText(DataStr);//数据抱
end;
{错误处理事件}
procedure TCsocket.doError(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
net_messages(errorcode);
Frmtrans.redit.SelAttributes.Color:=clred;
PrintStr:=labfaile(typeid,net_str);
synchronize(write_canves);
errorcode:=0;
w_tmperr:=1;


end;
{读取文本事件}
procedure TCsocket.doRead(Sender: TObject;Socket: TCustomWinSocket);
var
FStr:string;
begin
FStr:=Socket.ReceiveText;
if Copy(Fstr,1,2)='DT' then
begin
hid1:=1;
Frmtrans.redit.SelAttributes.Color:=clblue;
PrintStr:=labsucc(typeid);
synchronize(write_canves);
w_tmprd:=1;
end;
end;

procedure TCsocket.Execute;
begin
freeonterminate:=true;
W_tmperr:=0;
W_tmprd:=0;
W_tmptm:=0;

cskCCR:=Tclientsocket.Create(nil);
cskCCR.Address:=AddrStr;
cskCCR.Port:=8001;
cskCCR.ClientType:=ctNonBlocking;
cskCCR.OnConnect:=doconnect;
cskCCR.OnError:=doError;
cskCCR.OnRead :=doread;
cskCCR.Active:=true;
hid1:=0;
checkvalue();
time_count();
while (W_tmperr <> 1) and (W_tmprd <> 1) and (W_tmptm <= 20000) do
begin
application.ProcessMessages;
end;
TTf.timecount.Enabled:=false;
TTF.timecount.Free;
if W_tmptm > 20000 then
begin
PrintStr := '传输超时';
Formmain.reditmain.SelAttributes.Color:=clyellow;
synchronize(write_canves);
end;
hid:=1; //信号变量，标识线程是否结束0：未结束 1：结束 声明人：王志伟
cskCCR.Close;
cskCCR.Free;
terminate;
end;

function labsucc(typeid:integer):string;
var
i:integer;
begin
i:=typeid;
case i of
1://时间组
begin
result:='向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'时间组成功';

end;
2://黑名单
begin
result:='向'+pcmname+'号PCM'+'下发黑名单成功';

end;
3://白名单
begin
result:='向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'白名单成功';

end;
4://时间组对应成员组
begin
result:='向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'时间组对应成员组成功';

end;
9: //双卡开门
begin
result:='向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'双卡开门成功';

end;
10://门禁机优先序列
begin
result:='向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'门禁机优先序列成功';

end;
11:// 门禁机配置文件
begin
result:='向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'门禁机配置文件成功';

end;
14://加班名单
begin
result:='向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'加班名单成功';
end;
end;
end;
function labfaile(typeid:integer;net_str:string):string;
var
i:integer;
netstr:string;
begin
i:=typeid;
case i of
1://时间组
begin
result:=netstr+' '+'向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'时间组失败';
end;
2://黑名单
begin
result:=netstr+','+'向'+pcmname+'号PCM'+'下发黑名单失败';
end;
3://白名单
begin
result:=netstr+' '+'向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'白名单失败';
end;
4://时间组对应成员组
begin
result:=netstr+' '+'向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'时间组对应成员组失败';
end;
9: //双卡开门
begin
result:=netstr+' '+'向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'双卡开门失败';
end;
10://门禁机优先序列
begin
result:=netstr+' '+'向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'门禁机优先序列失败';
end;
11:// 门禁机配置文件
begin
result:=netstr+' '+'向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'门禁机配置文件失败';
end;
14://加班名单
begin
result:=netstr+' '+'向'+pcmname+'号PCM下发'+trim(readerserial)+'的'+'下发加班名单失败';
end;
end;
end;
procedure net_messages(net_code:integer);
begin
case net_code of
10004:begin
net_str:='操作被终止';
end;
10013:begin
net_str:='访问被拒绝';
end;
10024:begin
net_str:='打开太多的SOCKET';
end;
10048:begin
net_str:='地址已经被使用';
end;
10049:begin
net_str:='设置地址失败';
end;
10050:begin
net_str:='网络关闭';
end;
10051:begin
net_str:='网络不可达';
end;
10052:begin
net_str:='网络被重置';
end;
10055:begin
net_str:='缓冲不足';
end;
10057:begin
net_str:='SOCKET未连接';
end;
10058:begin
net_str:='SOCKET已经关闭';
end;
10060:begin
net_str:='连接超时';
end;
10061:begin
net_str:='连接被拒绝';
end;
10064:begin
net_str:='主机已经关机';
end;
10065:begin
net_str:=' 找不到路由';
end;
10067:begin
net_str:='进程太多';
end;
11001:begin
net_str:='找不到主机';
end
else
net_str:='其他原因导致网络错误';
end;
end;

end.