与上一个问题相关，我的IP地址怎样转换成数字形式？(50分)

C

cozo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #1

有可执行代码就可以了。前面问过了怎么将数字形式的IP转换成字符串，现在又遇到转换回去的问题，
我的delphi6里这一部分帮助都不全，不知道是不是我安装的问题。谢谢。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #2

uses WinSock;

procedure TForm1.Button1Click(Sender: TObject);
var
iad: TInAddr;
begin
//你可以先把ntohl去掉试试，因为不知道你的字节顺序是怎样的。
iad.S_addr := ntohl($c0a80101); //假设数字是$c0a80101，这里用十六进制表示只是为了显示方便。
caption := inet_ntoa(iad);
end;

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #3

不好意思，看错了，你是要反过来：
inet_addr(pchar(str));

 

C

cozo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #4

大哥真够快的。