下面这个程序:
procedure Tcilentfrm.Button2Click(Sender: TObject);
begin
if Button2.Caption='连接' then
begin
Button2.Caption:='断开';
ClientSocket1.Address:=Edit2.Text;
ClientSocket1.Active:=False;
ClientSocket1.Active:=True;
Button1.Enabled:=True;
Edit1.Enabled:=True;
end;
end;
这个程序我运行完后出错提示
raised exception class esocketerror with message"asynchronous socketerror 10049"
是什么原因啊?
procedure Tcilentfrm.Button2Click(Sender: TObject);
begin
if Button2.Caption='连接' then
begin
Button2.Caption:='断开';
ClientSocket1.Address:=Edit2.Text;
ClientSocket1.Active:=False;
ClientSocket1.Active:=True;
Button1.Enabled:=True;
Edit1.Enabled:=True;
end;
end;
这个程序我运行完后出错提示
raised exception class esocketerror with message"asynchronous socketerror 10049"
是什么原因啊?
在OnError中有返回的错误代码你看一下!
10053://软件导致连接退出
10054://连接被重置
10004://操作被中止
10013://访问被拒绝
10014://地址错误
10022://参数错误
10024://打开太多的SOCKET
10035://没有可以获取的资料
10036://操作正在正行中
10037://操作正在进行中
10038://在一个非法的Socket对象上进行操作
10039://目标地址缺失
10040://数据太长
10041://协议类型错误
10042://错误的协议选项
10043://协议不支持
10044://Socket类型不支持
10045://不支持指定操作
10046://协议族不支持
10047://所选用的地址族不在支持之列
10048://地址已经被使用
10049://设置地址失败
10050://网络关闭
10051://网络不可达
10052://网络被重置
10055://缓冲不足
10056://Socket已被连接
10057://Socket未连接
10058://Socket已关闭
10060://超时
10061://连机被拒绝
10064://主机已关机
10065://找到路由
10067://进程太多
10109://类型找不到
11001://主机找不到