Question

用delphi做端口扫描器 运行时出现：asynchronous socket error 10049，怎么解决

Answer 1

貌似是异步操作的错误，是不是使用了临界资源，如果可以的话要用临界区变量

追问

不明白~~~新手 很新很新，而且一个女生写的代码，你知道的

追答

ClientSocket1Connect这个过程是连接的时候触发的事件吗，连接都还没有建立，就开始关闭，你把ClientSocket1.Close;注释掉看一下

Answer 2

你是不是使用的API编写的?
试试初始化一下TSockAddrIn变量
比如:
var
addr:TSockAddrln;
begin
ZeroMemory(@addr,sizeof(addr)); //先初始化一下!
//下边的代码
end;

追问

用了一个Tclientsocket组件 这样编有问题？
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Opening Port：'+inttostr(i-1)); //连接成功后输出端口
ClientSocket1.Close;
end;

追答

试下
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Opening Port：'+inttostr(i-1)); //连接成功后输出端口
Socket.Close; //这里改一下
end;