200分求购怎样获得上网机器的ip地址(200分)

小弟急需获得ip的方法,或者控件

http://student.cs.tsinghua.edu.cn/DELPHI/D32SAMPL/QUICKIP.ZIP

用win98的ipconfig.exe

小刚的解释完全正确

我也问过,你可以查一下以前的问题.

用c写的，但是引用的API是通用的。


struct hostent *thisHost;
struct in_addr in;
char MyName[80];
char *IP,*ptr;

if(gethostname (MyName,80)==SOCKET_ERROR)
return NULL;
if(!(thisHost = gethostbyname(MyName)))
return NULL;
if(gethostname (MyName,80)==SOCKET_ERROR)
if(!(thisHost = gethostbyname(MyName)))
return NULL;
memset((void *)&in,sizeof(in),0);
in.s_addr=*((unsigned long *)thisHost->h_addr_list[0]);
if(!(ptr = inet_ntoa(in)))
return NULL;
IP = new char[strlen(ptr)+1],
strcpy(IP,ptr);
return IP;

是谁的IP？如果是自己的话以上答案是对的，但如果是别人的，例如我等...
找个黑客站点看一看，你会发现一大堆这种工具！

//hehe 还可以用ping
ping localhost得到你自己的ip
ping别人的域名得到别人的ip

你的意思是不是说实现类似ping的功能？

如果是的话，我再试试看。

and the program can get the internet machine name and ip addr
i.e

Getting the local machine name and IP address is a straight
forward process that is most easily accomplished using the TCP
component. Simply drop a TCP component from the internet page
of the component palette on to a form, and access the following
members of the TCP component:
Memo1.Lines.Add(TCP1.LocalHostName);
Memo1.Lines.Add(TCP1.LocalIp);
If you prefer not to use the TCP component, here is an example
that interfaces directly with your winsock layer:

uses Winsock;
procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);
{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
{Shut down WinSock}
WSACleanup;
end;

直接用ping 和其他软件如netXRay等，
就可以满足您的要求

//hehe the program can ping
Delphi编程实现Ping操作

　　张泰立

　　使用过网络的用户都熟悉“Ping”这个指令，它是一个DOS下的可执行文件，一般用
它来检查网络连接的好坏程度。其基本原理是利用TCP/IP协议包中ICMP协议中的一个功
能，即向所指定的计算机发送一个请求，收到请求的计算机返回一个应答，借此来判断该
计算机是否在网上运行或者检查网络连接是否稳定可靠。在Ping程序执行过程中，双方
计算机所耗费的资源都很少，因此，它是一个非常实用的工具。


　　我们可以通过编程来实现“Ping”操作，对其加以改进，使之具有Windows的界面
风格，显示比DOS更加直观。

　　首先，对编程中需要的动态链接库作一简要说明：在Windows的System目录下，你
可以找到Icmp.dll文件，该动态链接库提供了ICMP协议的所有功能，我们的编程就建立
在

　　对该动态链接库的调用上。

　　Icmp.dll文件内的调用函数说明如下：

　　1、IcmpCreateFile

　　打开一个句柄，通过该句柄你可以发送ICMP的请求回送报文。

　　2、IcmpCloseHandle

　　关闭你通过IcmpCreateFile函数打开的句柄。

　　3、IcmpSendEcho

　　通过你打开的句柄发送ICMP请求，在超时或应答报文接收后返回。其参数基本上和
它的帧结构一致，可参看下面的程序部分，其具体含意你可以参看有关ICMP协议的书
籍。

　　初步了解了上述的三个函数后，我们就可以开始编程了。

　　首先，我们的程序运行后应该有如图1所示的基本功能。为此，我们可先在Delphi的
窗口中放入右上图中所示的控件，如按钮、编辑框和文本显示框等。

　　（G72.JPG）

　　例程运行示意图

　　然后，在程序的开始部分（FormCreate）对WinSocket进行初始化，其作用是申明
使用的版本信息，同时调入Icmp.dll库。

　　type

　　 PIPOptionInformation = ^TIPOptionInformation;

　　 TIPOptionInformation = packed record

　　 TTL: Byte;

　　 TOS: Byte;

　　 Flags: Byte;

　　 OptionsSize: Byte;

　　 OptionsData: PChar;

　　 end;

　　 PIcmpEchoReply = ^TIcmpEchoReply;

　　 TIcmpEchoReply = packed record

　　 Address: DWORD;

　　 Status: DWORD;

　　 RTT: DWORD;

　　 DataSize: Word;

　　 Reserved: Word;

　　 Data: Pointer;

　　 Options: TIPOptionInformation;

　　 end;

　　 TIcmpCreateFile = function: THandle; stdcall;

　　 TIcmpCloseHandle = function(IcmpHandle: THandle): Boolean;
stdcall;

　　 TIcmpSendEcho = function(IcmpHandle:THandle;

　　 DestinationAddress: DWORD;

　　 RequestData: Pointer;

　　 RequestSize: Word;

　　 RequestOptions: PIPOptionInformation;

　　 ReplyBuffer: Pointer;

　　 ReplySize: DWord;

　　 Timeout: DWord

　　 ): DWord; stdcall;

　　 TMyPing = class(TForm)

　　 Panel1: TPanel;

　　 Label1: TLabel;

　　 PingEdit: TEdit;

　　 ExeBtn: TButton;

　　 Button2: TButton;

　　 Button3: TButton;

　　 StatusShow: TMemo;

　　 procedure Button3Click(Sender: TObject);

　　 procedure FormCreate(Sender: TObject);

　　 procedure ExeBtnClick(Sender: TObject);

　　 private

　　 { Private declarations }

　　 hICMP: THANDLE;

　　 IcmpCreateFile : TIcmpCreateFile;

　　 IcmpCloseHandle: TIcmpCloseHandle;

　　 IcmpSendEcho: TIcmpSendEcho;

　　 public

　　 { Public declarations }

　　end;

　　procedure TMyPing.FormCreate(Sender: TObject);

　　var

　　 WSAData: TWSAData;

　　 hICMPdll: HMODULE;

　　begin

?
　　 // Load the icmp.dll stuff

　　 hICMPdll := LoadLibrary('icmp.dll');

　　 @ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile');

　　 @IcmpCloseHandle := GetProcAddress(hICMPdll,
'IcmpCloseHandle');

　　 @IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho');

　　 hICMP := IcmpCreateFile;

　　 StatusShow.Text := '';

　　 StatusShow.Lines.Add('目的IP地址 字节数 返回时间(毫秒)');

　　end;

　　接下来，就要进行如下所示的Ping操作的实际编程过程了。

　　procedure TMyPing.ExeBtnClick(Sender: TObject);

　　var

　　 IPOpt:TIPOptionInformation;// IP Options for packet to send

　　 FIPAddressWORD;

　　 pReqData,pRevDataChar;

　　 pIPEIcmpEchoReply;// ICMP Echo reply buffer

　　 FSize: DWORD;

　　 MyString:string;

　　 FTimeOutWORD;

　　 BufferSizeWORD;

　　begin

　　 if PingEdit.Text <> '' then

　　 begin

　　 FIPAddress := inet_addr(PChar(PingEdit.Text));

　　 FSize := 40;

　　 BufferSize := SizeOf(TICMPEchoReply) + FSize;

　　 GetMem(pRevData,FSize);

　　 GetMem(pIPE,BufferSize);

　　 FillChar(pIPE^, SizeOf(pIPE^), 0);

　　 pIPE^.Data := pRevData;

　　 MyString := 'Hello,World';

　　 pReqData := PChar(MyString);

　　 FillChar(IPOpt, Sizeof(IPOpt), 0);

　　 IPOpt.TTL := 64;

　　 FTimeOut := 4000;

　　 IcmpSendEcho(hICMP, FIPAddress, pReqData, Length(MyString),
@IPOpt, pIPE, BufferSize, FTimeOut);

　　 if pReqData^ = pIPE^.Options.OptionsData^ then

　　 begin

　　 StatusShow.Lines.Add(PChar(PingEdit.Text) + ' '
+IntToStr(pIPE^.DataSize) + ' ' +IntToStr(pIPE^.RTT));

　　 end;

　　 begin

　　 StatusShow.Lines.Add(PChar(PingEdit.Text) + ' '
+IntToStr(pIPE^.DataSize) + ' ' +IntToStr(pIPE^.RTT));

　　 end;

　　 FreeMem(pRevData);

　　 FreeMem(pIPE);

　　 end

　　end;

　　通过上面的编程，我们就实现了Ping功能的界面操作。实际上，ICMP协议的功能还
有很

　　多，都可以通过对Icmp.dll的函数调用来实现。

--
m;32m※ 来源:·紫金飞鸿 bbs.njupt.edu.cn·[FROM: 202.119.224.109]m

老兄们,小弟找到了一个例成,在大富翁上,大家看看吧

对不起,是在32位深度厉险上

如果你写的是服务方的程序，要想知道客户方的ip地址，
可用脚本的一个request对象的servervariable集合的remote_addr属性来获取客户的ip地址，
如:
<% Response.Write (Request.ServerVariables ("remote_addr")) %>
如果你想知道自己的ip地址，可用此集合的local_addr属性，
如:
<% Response.Write (Request.ServerVariables ("local_addr")) %>

如果你写的是服务方的程序，要想知道客户方的ip地址，
可用脚本的一个request对象的servervariable集合的remote_addr属性来获取客户的ip地址，
如:
Response.Write (Request.ServerVariables ("remote_addr"))

如果你想知道自己的ip地址，可用此集合的local_addr属性，
如:
Response.Write (Request.ServerVariables ("local_addr"))

多人接受答案了。