將某一主機域名解析為IP地址 (轉)
將某一主機域名解析為。
使用 WinSock 單元;
過程如下:
function HostToIP(Name: string; var Ip: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin
Wtartup ($0101, wsdata);
try
gethostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then
if Assigned (hostEnt^.h_addr_list) then begin
addr := hostEnt^.h_addr_list^;
if Assigned (addr) then begin
:= Format ('%d.%d.%d.%d', [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else
Result := False;
end
else
Result := False
else begin
Result := False;
end;
finally
WSACleanup;
end
end;
測試時請在線上狀態。
測試程式碼:
var
IP: string;
: string;
begin
DNS := InputBox('輸入DNS域名', '主機名稱:', '');
if HostToIp(DNS, IP) then showmessage(IP);
end;
作者:Latfi Baran
我測試Kingron給出的用法時,hostEnt老是=nil。
後來我在用gethostbyname(...)之前,加入WSAStartup(...),終於一切OK。
Winsock單元中沒有getaddressbyname()
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10748419/viewspace-1001199/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 將某一主機域名解析為IP地址。 (轉)
- 更改solaris IP地址和主機名(轉)
- 實現具有動態主機IP的域名解析 (轉)
- 得到計算機的主機名和IP地址 (轉)計算機
- solaris 主機修改主機名 ip地址 步驟
- java將IP地址轉換為數字以及逆向轉換Java
- IP地址、子網掩碼、網路號、主機號、網路地址、主機地址
- 識別主機名和IP地址
- HP-UX修改主機IP地址UX
- 14IP地址、主機名、域名
- docker 指定IP地址、與主機同網段IPDocker
- 更改solaris主機名及ip地址(zt)
- 在InstallShield中透過主機名獲取IP地址 (轉)
- Oracle中獲取主機名和IP地址Oracle
- 主機名修改為IP地址後LISTENER無法監聽到例項
- gethostbyname() -- 用域名或主機名獲取IP地址
- 在cmd中獲取ip地址和主機名
- 徹底弄懂ip掩碼中的網路地址、廣播地址、主機地址
- (轉)【VIP】調整RAC虛擬IP地址(VIP)及虛擬主機名
- ARP協議 地址解析協議:IP地址轉換為MAC地址協議Mac
- Python 基礎練習 —— 獲取本機 Mac 地址、ip 地址和主機名PythonMac
- Solaris 10.5配置主機名、IP地址、閘道器
- mongodb將備機提升為主機MongoDB
- JavaScript ip地址轉換為二進位制JavaScript
- 遠端控制篇:透過機器名得到IP地址 透過IP地址得到機器名 (轉)
- AIX中為單網路卡配置多IP地址(轉)AI
- 計算機網路知識總結:有關IP地址、子網掩碼、網路號、主機號、網路地址、主機地址以及ip段/數字的概念及筆試題計算機網路筆試
- 【故障處理】【LISTENER】主機名修改為IP地址後LISTENER無法監聽到例項
- 【Solaris】Solaris10作業系統 修改ip地址、主機名作業系統
- 通過IP地址和子網掩碼,如何計算出網路地址、廣播地址和主機數?
- 將虛擬機器IP與主機IP設定在同一網段的方法虛擬機
- IP地址從頭說(轉)
- IP地址分段計算 (轉)
- 全國IP地址分配表 (轉)
- 怎麼檢視印表機ip地址 如何在印表機上檢視ip地址
- 【VIP】調整RAC虛擬IP地址(VIP)及虛擬主機名
- owb修改主機名和IP地址啟動報錯解決方法
- 一個把IP地址轉化為長整數的指令碼(轉)指令碼