怎么将域名转换为ip地址啊！！谢谢了，在线等待！(50分)

低

低调一贱男

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #1

如题，我编写一个用socks发email的软件，需要将smtp服务器名如：‘smtp.21cn.net’ 转换为ip地址
我记得有个api的，但我查不到，谢谢了帮我找一下

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #2

帮你踢一脚

 

低

低调一贱男

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #3

有没有人知道啊

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #4

GetHostByName

 

K

kycheung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #5

GZ

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #6

给你个例子吧：

function SvrNameToIP(const SvrName: string): string;
type
PPInAddr = ^PInAddr;
var
phe: PHostEnt;
pp: PPInAddr;
GInitData: TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';

phe := GetHostByName(PChar(SvrName));

if phe = nil then
Exit;

pp := PPInAddr(phe^.h_addr_list);
if pp^ <> nil then
Result := StrPas(inet_ntoa(pp^^));

WSACleanup;
end;

 

低

低调一贱男

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #7

我先用一下，行的话马上给分

 

低

低调一贱男

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #8

to beta:
果然可以用， 谢谢了哦，给分你