Z
zcm1975117
Unregistered / Unconfirmed
GUEST, unregistred user!
大家好！
我写了一个向局域网发信息的软件，clietsocket控件，如果一台一台的发，是没有问题的，
但如果用一个循环向多台机同时发时，第一台没有问题，循环到第二台晨，就弹出：windows
socket error
10022),on API 'WSACancelASynRequest',是什么原因呀？主要程序如下：
//连接远程机器
procedure Tmainform.connectMachine(sip:string);
var
NewItem: TMenuItem;
begin
if ClientSocket.Active then
begin
clientsocket.socket.close;
end;
Server:=sIP;
if Length(Server) > 0 then
with ClientSocket do
begin
try
Host := Server;
Active := True;
Clientsocket.Socket.Lock;
hostlist.Items.Add(server);
hostlist.ItemIndex:=hostlist.Items.Count-1;
{ first create the separator }
NewItem := TMenuItem.Create(Self);
NewItem.Caption := server;
{ add the new item to the Windows menu }
popupmenu3.Items.Add(NewItem);
Panel5.Enabled:=True;
Notebook1.Enabled:=True;
finally
end;
end;
clientsocket.Socket.SendText('remotehostname>>>>'+thismacip.Text);
end;
我写了一个向局域网发信息的软件，clietsocket控件，如果一台一台的发，是没有问题的，
但如果用一个循环向多台机同时发时，第一台没有问题，循环到第二台晨，就弹出：windows
socket error
10022),on API 'WSACancelASynRequest',是什么原因呀？主要程序如下：//连接远程机器
procedure Tmainform.connectMachine(sip:string);
var
NewItem: TMenuItem;
begin
if ClientSocket.Active then
begin
clientsocket.socket.close;
end;
Server:=sIP;
if Length(Server) > 0 then
with ClientSocket do
begin
try
Host := Server;
Active := True;
Clientsocket.Socket.Lock;
hostlist.Items.Add(server);
hostlist.ItemIndex:=hostlist.Items.Count-1;
{ first create the separator }
NewItem := TMenuItem.Create(Self);
NewItem.Caption := server;
{ add the new item to the Windows menu }
popupmenu3.Items.Add(NewItem);
Panel5.Enabled:=True;
Notebook1.Enabled:=True;
finally
end;
end;
clientsocket.Socket.SendText('remotehostname>>>>'+thismacip.Text);
end;