执行下述函数,如果可以返回值,即转换成功,则该主机已开通~~~使用 WinSock 单元;
过程如下:
function IPAddrToName(IPAddr : String): String;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt<>nil then
begin
result:=StrPas(Hostent^.h_name)
end
else
begin
result:='';
end;
end;
过程如下:
function IPAddrToName(IPAddr : String): String;
var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSAData;
begin
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt<>nil then
begin
result:=StrPas(Hostent^.h_name)
end
else
begin
result:='';
end;
end;
解决方案 »
- 如何锁住屏幕?
- 做好了一个管理信息系统,可是不会做安装程序...请高手指教~~
- **** 急招DELPHI程序员!北京!****
- 在书上看了一个回调函数的例子,自己试了一下老有错误,跪求高手指导
- 急……再问:如何在Grid里根据不同条件动态生成一个序号列?
- 谁能告诉我????------有关视图及其引用基表的操作
- 如何判断表中某一条记录的某一个字段的内容被修改?
- 报表大侠,有经验的高手救我
- 查询结果在另一窗口的应用
- dbedit 中如何控制对齐,当有数值型字段时,它默认是右对齐,编辑时又变成左对齐,很讨厌。
- 刚刚发的帖子链接错了,再题一次,怎么将一个字符串变量或一个整数变量写到流中,又怎么读出来
- 呵呵,问一个很菜的问题:ToolButton上面的图标怎么加上去哟?
有没有其他的办法了???