请问如何解决用BCB检测远程主机某个端口 是否打开？？？

[woofan]

在BCB里面有没有控件用来检测远程主机（如果知道该主机的ip）的某个端口 是否打开？？？

[DavidBone]

ding

[shark_dim]

up

[shark_dim]

up too!
because I also want to Know what we will do!

[叶子哟]

NetMaster组控件：
如NMecho,NMDaTime,NMFTP等
example:
tyr
{
NMEcho1->Host = ...;
NMEcho1->TimeOut = ...;
NMEcho1->ReportLevel = Status_Basic;
NMEcho1->Connect();
NMecho1->Disconnect();
}
cathe(...)
{
ShowMessage("主机不提供Echo服务");
NMecho1->Disconnect();

}

[ronshen]

如果只是想检测某几种端口，应该很简单。
如果想检测的是几乎所有端口的话，建议你去看看nmap的说明和源码。
http://www.insecure.org/nmap/

这个东东可以完成以下各种扫描：

Vanilla TCP connect() scanning,
TCP SYN (half open) scanning,
TCP FIN (stealth) scanning,
TCP ftp proxy (bounce attack) scanning,
SYN/FIN scanning using IP fragments (bypasses packet filters),
UDP recvfrom() scanning,
UDP raw ICMP port unreachable scanning,
ICMP scanning (ping-sweep), and
Reverse-ident scanning.

[kicinai]

连接端口，能连接的，向端口发送该协议的确认文报，能成功接受正确的返回信息就可以

[woofan]

真的谢谢你们了 ，我是刚注册这里的 想不到得到这么多高手帮助。THANKS A LOT。

[csdsq]

YOU ARE WELCOME!

[NowCan]

楼上的哥们，是远程主机的端口，不是本地的。

楼主，到www.xfocus.net去找扫描器吧。

[shiufurong007]

用一个网络命令可以啊，， netstat ，你可以把它转换成cb调用啊！

[sczyq]

// 用 TCliectSocket 控件: 名称: ClientSocket1
// 请将ClientSocket1设为同步模式,即: ClientSocket1->ClientType = ctBlocking;
// TLabeledEdit * LabeledEdit1; 主机名或IP
// TLabeledEdit * LabeledEdit2; 端口
// TMemo *Memo1; 运行情况
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
ClientSocket1->Close();
ClientSocket1->Host = LabeledEdit1->Text;
ClientSocket1->Port = LabeledEdit2->Text.ToIntDef(1);
Memo1->Lines->Add("打开 : " + LabeledEdit1->Text + ":" + LabeledEdit2->Text);
Memo1->Lines->Add(Now().TimeString());
try
{
ClientSocket1->Open();
}
catch (...)
{
}
Memo1->Lines->Add(Now().TimeString());
if (ClientSocket1->Active)
Memo1->Lines->Add(" --- 端口存在 !");
else Memo1->Lines->Add(" --- 端口无 !");
ClientSocket1->Close();
}
//---------------------------------------------------

若主机名不存在, 耗时21秒
若端口不存在, 耗时约1秒
若端口存在, 迅速打开

// 测试主机: P4 1.7G 256M