如何快速测试对方IP的某端口是否打开？！

[trustmeok]

我使用了较笨的方法：

1）
showmessage(TcpClient1.LookupHostName('192.168.0.1'));
//局域网内测试速度基本稳定，大概半分钟内测五个端口，包括存在和不存在的IP

2）
TcpClient1.Connect
//当IP存在且端口打开时，速度飞快。
//当IP不存在时，速度就像死机一样，大概半分钟一个。
//当IP存在，端口未打开时，速度居中

本人均未使用TimeOut

[trustmeok]

找到一篇
http://expert.csdn.net/Expert/topic/2447/2447007.xml?temp=1.739138E-02

有点复杂，有没有一条语句搞定的，我不需要隐蔽，我是光明正大地

[Larky]

顶一下！

[sunon]

有个方法可以在几秒中内扫描出一个网段的.哈哈!!要知道联系本人.

[xiangwangz]

帮你顶！俺不懂

[nhdj]

没有做过这方面的东西，帮你顶一下吧，反正一条语句搞定还要速度有点困难，等待高手解决

[WQmeng]

用多线程试试吧。

[siwuge]

puv 初学，帮顶。

[trustmeok]

顶

[trustmeok]

To soundbug(兼职乞丐), kw123(阿柯) :
好象不怎么灵，而且速度也很慢

[blueatchina]

studing

[trustmeok]

呼唤高手!!!!!!

[softwaiter]

直接用Socket去连，然后try一下，成功就OK，不成功，就是没有次端口或为开机

[soundbug]

function CheckInternet(Url: Pchar;Port: Pchar): Boolean;//Url可以为IP地址
var
HttpStr: string;
begin
if Pos('HTTP',UpperCase(Url)) = 0 then
begin
HttpStr := 'http://';
end;
if Trim(Port) <> '' then
begin
HttpStr := Trim(HttpStr) + Url + ':' + Port;
end
else
begin
HttpStr := Trim(HttpStr) + Url;
end;
if not InternetCheckConnection(Pchar(HttpStr),1,0) then
begin
Result := False; //端口未开
end
else
begin
Result := True; //端口打开
end;
end;

[kw123]

http://expert.csdn.net/Expert/topic/2477/2477724.xml?temp=.4815943

[xiangwangz]

楼主倒分，靠 ！你和sunon是一个人！妈的

[trustmeok]

TO xiangwangz(<*敝屣荣华 浮云生死 此身何惧*>):

sunon(※ＮＮ) 给了我一源码加演示，你如果有，我也可以给你，1000分都行