用IdTCPClient 做一个最简单的扫描器 ( 积分: 100 )

  • 主题发起人 主题发起人 风卷残月
  • 开始时间 开始时间

风卷残月

Unregistered / Unconfirmed
GUEST, unregistred user!
第一次提问题,麻烦了
昨天在网上找了一天了,也只搜到下面的
IdTCPClient.Host := '127.0.0.1';
IdTCPClient.Port := 1101;
LbLog.Items.Add('正在连接 127.0.0.1 ...');
with IdTCPClient do
begin
try
Connect(5000);
try
LbLog.Items.Add(ReadLn());
BtnConnect.Enabled := False;
BtnDisconnect.Enabled := True;
except
LbLog.Items.Add('远程主机无响应!');
IdTCPClient.Disconnect();
end;//end try
except
LbLog.Items.Add('无法建立到 127.0.0.1 的连接!');
end;//end try
end;//end with

错误都是:
Socket Error #10061 Connection refused
连接被拒绝, 我真的是没办法才上来问的,请各位高手帮下忙,谢了

因为是第一次发贴,如果能告诉我怎么样给分就好了, 先在些谢过了
只需要Indy TCPClient 用Connect 判断对方机子那个端口是否开放,因为做东东要用过,谢过了!
 
第一次提问题,麻烦了
昨天在网上找了一天了,也只搜到下面的
IdTCPClient.Host := '127.0.0.1';
IdTCPClient.Port := 1101;
LbLog.Items.Add('正在连接 127.0.0.1 ...');
with IdTCPClient do
begin
try
Connect(5000);
try
LbLog.Items.Add(ReadLn());
BtnConnect.Enabled := False;
BtnDisconnect.Enabled := True;
except
LbLog.Items.Add('远程主机无响应!');
IdTCPClient.Disconnect();
end;//end try
except
LbLog.Items.Add('无法建立到 127.0.0.1 的连接!');
end;//end try
end;//end with

错误都是:
Socket Error #10061 Connection refused
连接被拒绝, 我真的是没办法才上来问的,请各位高手帮下忙,谢了

因为是第一次发贴,如果能告诉我怎么样给分就好了, 先在些谢过了
只需要Indy TCPClient 用Connect 判断对方机子那个端口是否开放,因为做东东要用过,谢过了!
 
自己顶一下,各位,真的很急啊,不急就不会来大富翁上来问了,希望能快点解决问题.......
 
自己搞定了,原来是在编译成EXE文件后才会按捕获到错误,,怎么结贴啊
 
呵呵~~問題還沒看懂~~
 
你的错误是服务器没启动才出现的错误提示,试一下看是不?
 
算了,结了吧,反正分留着也是留着,大富翁又不消帖
 
你不如直接用tcpclient控件啊,直接active,如果出错,肯定没有开这个端口了。对了,我这里有一个多线程扫描的代码,扫描对应ip地址的端口的。你可以根据自己的要求改一下就ok了。要的话留下email
 
其实自己已经搞定了! 又不懂消帖, 给分吧
 
怎么自己说了两边结分给分问题仍没有结束?
 
多人接受答案了。
 
cqwty 谢了,最近没在弄网络方面了, 过段时间可能会完善一下自己的东东嘛,谢谢你
 
后退
顶部