如何取得局域网中拨号IP?(200分)

  • 主题发起人 主题发起人 不困
  • 开始时间 开始时间
不

不困

Unregistered / Unconfirmed
GUEST, unregistred user!
参考过几篇文章，但都没有顺利实现，望高手指教。
取得IP之后使用ClientSocket和ServerSocket组件能够实现Internet即时通讯功能么？
谢谢。
 
在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL，我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态IP地址了。在Delphi帮助文件中，有相关RAS函数的详细说明。

一、先解释一些要用到的数据常量和数据结构。
const
RAS_MaxDeviceType = 16; //设备类型名称长度
RAS_MaxEntryName = 256; //连接名称最大长度
RAS_MaxDeviceName = 128; //设备名称最大长度
RAS_MaxIpAddress = 15; //IP地址的最大长度
RASP_PppIp = $8021; //拨号连接的协议类型，
//该数值表示PPP连接

type
HRASCONN = DWORD; //拨号连接句柄的类型
RASCONN = record //活动的拨号连接的句柄和设置信息
dwSize : DWORD; //该结构所占内存的大小(Bytes),
//一般设置为SizeOf(RASCONN)
hrasconn : HRASCONN; //活动连接的句柄
szEntryName :
array[0..RAS_MaxEntryName] of char;
//活动连接的名称
szDeviceType :
array[0..RAS_MaxDeviceType] of char;
//活动连接的所用的设备类型
szDeviceName :
array[0..RAS_MaxDeviceName] of char;
//活动连接的所用的设备名称
end;

TRASPPPIP = record //活动的拨号连接的动态IP地址信息
dwSize : DWORD; //该结构所占内存的大小(Bytes),
//一般设置为SizeOf(TRASPPPIP)
dwError : DWORD; //错误类型标识符
szIpAddress :
array[ 0..RAS_MaxIpAddress ] of char;
//活动的拨号连接的IP地址
end;

二、接着要解释要用到的两个RAS函数。
//获取所有活动的拨号连接的信息（连接句柄和设置信息）
function RasEnumConnections(
var lprasconn : RASCONN ;
//接收活动连接的缓冲区的指针
var lpcb: DWORD;//缓冲区大小
var lpcConnections : DWORD//实际的活动连接数
):DWORD; stdcall;

function RasEnumConnections;
external 'Rasapi32.dll' name 'RasEnumConnectionsA';
//获取指定活动的拨号连接的动态IP信息

function RasGetProjectionInfo(
hrasconn : HRasConn;//指定活动连接的句柄
rasprojection : DWORD;//RAS连接类型
var lpprojection : TRASPPPIP;//接收动态IP信息的缓冲区
var lpcb : DWord//接收缓冲区的大小
): DWORD;stdcall;

function RasGetProjectionInfo;external
'Rasapi32.dll' name 'RasGetProjectionInfoA';
这两个函数的返回值为0时表示执行成功，非0表示错误代码。

三、下面要讨论如何用上面的两个RAS函数获取拨号连接的动态IP地址
首先，要用函数RasEnumConnections列出已建立的活动拨号连接的信息，其中包括连接名称、连接句柄、连接设备类型和设备名称；然后根据连接句柄用函数RasGetProjectionInfo获取连接对应的一个TRASPPPIP结构，其中包括一个成员属性szIpAddress即为动态IP地址。具体请参见以下程序片段和注释信息。

procedure TForm1.Button1Click(Sender: TObject);
const
MaxConnections = 10;
//假设最多有10个活动的拨号连接
var
connections : array[0..MaxConnections-1]
of RASCONN; //拨号连接数组
longSize : dword;
intAvailabelConnections : dword;
//活动的拨号连接的实际数目
intIndex : integer;
strTemp : string;
dwResult : DWORD;
dwSize : DWORD;
RASpppIP : TRASPPPIP;
//活动的拨号连接的动态IP地址信息
begin
connections[ 0 ].dwSize := sizeof(RASCONN);
longSize := MaxConnections *
connections[ 0 ].dwSize;
//接收活动连接的缓冲区大小

intAvailabelConnections := 0;
//获取所有活动的拨号连接的信息(连接句柄和设置信息)

dwResult := RasEnumConnections(
connections[0],longSize,intAvailabelConnections );
if 0 <> dwResult then
memo1.lines.add( '错误:' + inttostr( dwResult ) )
else begin
memo1.lines.add( '现有的活动连接有' +
IntToStr( intAvailabelConnections ) + '个');
//显示所有活动的拨号连接的信息（设置信息和动态IP地址）
for intIndex := 0 to intAvailabelConnections - 1 do
begin
//显示一个活动的拨号连接的设置信息
strTemp := '连接名称：'
+StrPAS( connections[ intIndex ].szEntryName )
+'，设备类型：'
+StrPAS( connections[ intIndex ].szDeviceType )
+ '，设备名称：'
+ StrPAS( connections[ intIndex ].szDeviceName );
memo1.lines.add( strTemp );
//显示一个活动的拨号连接的动态IP地址
dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := dwSize;
dwResult := RASGetProjectionInfo
(connections[ intIndex ].hRasConn,
RASP_PppIp,RasPPPIP,dwSize);//获取动态IP地址
if 0 <> dwResult then
memo1.lines.add('错误:' + inttostr( dwResult ))
else
memo1.lines.add('动态地址:' +
StrPas(RASpppIP.szIPAddress));
end;
end;
end;

 
//È¡±¾»úIPµØÖ·
function tform1.GetIP:string;
var
WSData: TWSAData;
Buffer: array[0..63] of Char;
HostEnt: PHostEnt;
PPInAddr: ^PInAddr;
LocalIP: DWord;
IPString: String;
begin
LocalIP:=0;
IPString:='';
try
WSAStartUp($101, WSData);
GetHostName(Buffer, SizeOf(Buffer));
HostEnt:=GetHostByName(Buffer);
if Assigned(HostEnt) then
begin
PPInAddr:=@(PInAddr(HostEnt.H_Addr_List^));
while Assigned(PPInAddr^) do
begin
IPString:=StrPas(INet_NToA(PPInAddr^^));
LocalIP:=PPInAddr^^.S_Addr;
Inc(PPInAddr);
end;
end;
finally
try
WSACleanUp;
except
end;
end;
result:=ipstring;
end;
 
看来楼上误会了，是局域网中的机器，IP为192.168.0.2的机器，通过网关192.168.0.1上网，
现在要通过192.168.0.2的机器取得192.168.0.1机器自动分配的IP~~

jsxjd，这篇文章早就看过了，但是不知为何一直没有编译通过。
 
就是这个意思啦!
 
那我编译怎么不通过呢？？
哦，对了
我的机器是通过微软Winsock Proxy Client联接主机的，不知道有没影响？？
还有，jsxjd：
是function RasEnumConnections;external 'Rasapi32.dll' name 'RasEnumConnectionsA';
这句编译不通过。。
 
原来的函数声明不对，改一下就98下OK：
不过你要记得拨号上网后测试。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
const
RAS_MaxDeviceType = 16; //设备类型名称长度
RAS_MaxEntryName = 256; //连接名称最大长度
RAS_MaxDeviceName = 128; //设备名称最大长度
RAS_MaxIpAddress = 15; //IP地址的最大长度
RASP_PppIp = $8021; //拨号连接的协议类型，
//该数值表示PPP连接

type
HRASCONN = DWORD; //拨号连接句柄的类型
RASCONN = record //活动的拨号连接的句柄和设置信息
dwSize : DWORD; //该结构所占内存的大小(Bytes),
//一般设置为SizeOf(RASCONN)
hrasconn : HRASCONN; //活动连接的句柄
szEntryName :
array[0..RAS_MaxEntryName] of char;
//活动连接的名称
szDeviceType :
array[0..RAS_MaxDeviceType] of char;
//活动连接的所用的设备类型
szDeviceName :
array[0..RAS_MaxDeviceName] of char;
//活动连接的所用的设备名称
end;

TRASPPPIP = record //活动的拨号连接的动态IP地址信息
dwSize : DWORD; //该结构所占内存的大小(Bytes),
//一般设置为SizeOf(TRASPPPIP)
dwError : DWORD; //错误类型标识符
szIpAddress :
array[ 0..RAS_MaxIpAddress ] of char;
//活动的拨号连接的IP地址
end;
function RasEnumConnections(
var lprasconn : RASCONN ;
//接收活动连接的缓冲区的指针
var lpcb: DWORD;//缓冲区大小
var lpcConnections : DWORD//实际的活动连接数
):DWORD; stdcall; external 'Rasapi32.dll' name 'RasEnumConnectionsA';
//获取指定活动的拨号连接的动态IP信息

function RasGetProjectionInfo(
hrasconn : HRasConn;//指定活动连接的句柄
rasprojection : DWORD;//RAS连接类型
var lpprojection : TRASPPPIP;//接收动态IP信息的缓冲区
var lpcb : DWord//接收缓冲区的大小
): DWORD;stdcall;external
'Rasapi32.dll' name 'RasGetProjectionInfoA';

procedure TForm1.Button1Click(Sender: TObject);
const
MaxConnections = 10;
//假设最多有10个活动的拨号连接
var
connections : array[0..MaxConnections-1]
of RASCONN; //拨号连接数组
longSize : dword;
intAvailabelConnections : dword;
//活动的拨号连接的实际数目
intIndex : integer;
strTemp : string;
dwResult : DWORD;
dwSize : DWORD;
RASpppIP : TRASPPPIP;
//活动的拨号连接的动态IP地址信息
begin
connections[0].dwSize := sizeof(RASCONN);
longSize := MaxConnections *connections[ 0 ].dwSize;
intAvailabelConnections := 0;
dwResult := RasEnumConnections(
connections[0],longSize,intAvailabelConnections );
if 0 <> dwResult then
memo1.lines.add( '错误:' + inttostr( dwResult ) )
else begin
memo1.lines.add( '现有的活动连接有' +
IntToStr( intAvailabelConnections ) + '个');
//显示所有活动的拨号连接的信息（设置信息和动态IP地址）
for intIndex := 0 to intAvailabelConnections - 1 do
begin
//显示一个活动的拨号连接的设置信息
strTemp := '连接名称：'
+StrPAS( connections[ intIndex ].szEntryName )
+'，设备类型：'
+StrPAS( connections[ intIndex ].szDeviceType )
+ '，设备名称：'
+ StrPAS( connections[ intIndex ].szDeviceName );
memo1.lines.add( strTemp );
//显示一个活动的拨号连接的动态IP地址
dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := dwSize;
dwResult := RASGetProjectionInfo
(connections[ intIndex ].hRasConn,
RASP_PppIp,RasPPPIP,dwSize);//获取动态IP地址
if 0 <> dwResult then
memo1.lines.add('错误:' + inttostr( dwResult ))
else
memo1.lines.add('动态地址:' +
StrPas(RASpppIP.szIPAddress));
end;
end;
end;

end.
 
稍微改了一下，是不是有助于你查看：

const
RAS_MaxDeviceType = 16; //设备类型名称长度
RAS_MaxEntryName = 256; //连接名称最大长度
RAS_MaxDeviceName = 128; //设备名称最大长度
RAS_MaxIpAddress = 15; //IP地址的最大长度
RASP_PppIp = $8021; //拨号连接的协议类型，
//该数值表示PPP连接
type
HRASCONN = DWORD; //拨号连接句柄的类型
RASCONN = record //活动的拨号连接的句柄和设置信息
dwSize : DWORD; //该结构所占内存的大小(Bytes),
//一般设置为SizeOf(RASCONN)
hrasconn : HRASCONN; //活动连接的句柄
szEntryName :array[0..RAS_MaxEntryName] of char;
//活动连接的名称
szDeviceType :array[0..RAS_MaxDeviceType] of char;
//活动连接的所用的设备类型
szDeviceName :array[0..RAS_MaxDeviceName] of char;
//活动连接的所用的设备名称
end;
TRASPPPIP = record //活动的拨号连接的动态IP地址信息
dwSize : DWORD; //该结构所占内存的大小(Bytes),
//一般设置为SizeOf(TRASPPPIP)
dwError : DWORD; //错误类型标识符
szIpAddress :array[ 0..RAS_MaxIpAddress ] of char;
//活动的拨号连接的IP地址
end;
function RasEnumConnections(
var lprasconn : RASCONN ; //接收活动连接的缓冲区的指针
var lpcb: DWORD;//缓冲区大小
var lpcConnections : DWORD//实际的活动连接数
):DWORD; stdcall; external 'Rasapi32.dll' name 'RasEnumConnectionsA';
//获取指定活动的拨号连接的动态IP信息

function RasGetProjectionInfo(
hrasconn : HRasConn;//指定活动连接的句柄
rasprojection : DWORD;//RAS连接类型
var lpprojection : TRASPPPIP;//接收动态IP信息的缓冲区
var lpcb : DWord//接收缓冲区的大小
): DWORD;stdcall;external 'Rasapi32.dll' name 'RasGetProjectionInfoA';

procedure TForm1.Button1Click(Sender: TObject);
const
MaxConnections = 10;
//假设最多有10个活动的拨号连接
var
connections : array[0..MaxConnections-1] of RASCONN; //拨号连接数组
longSize : dword;
intAvailabelConnections : dword;//活动的拨号连接的实际数目
intIndex : integer;
strTemp : string;
dwResult,dwSize : DWORD;
RASpppIP : TRASPPPIP; //活动的拨号连接的动态IP地址信息
s:TStringList;
begin
s:=TStringList.create;
connections[0].dwSize := sizeof(RASCONN);
longSize := MaxConnections *connections[ 0 ].dwSize;
intAvailabelConnections := 0;
dwResult := RasEnumConnections(
connections[0],longSize,intAvailabelConnections );
if 0 <> dwResult then
s.add( '错误:' + inttostr( dwResult ) )
else begin
s.add( '现有的活动连接有' +
IntToStr( intAvailabelConnections ) + '个');
//显示所有活动的拨号连接的信息（设置信息和动态IP地址）
for intIndex := 0 to intAvailabelConnections - 1 do
begin
//显示一个活动的拨号连接的设置信息
strTemp := '连接名称：'
+StrPAS( connections[ intIndex ].szEntryName )
+'，设备类型：'
+StrPAS( connections[ intIndex ].szDeviceType )
+ '，设备名称：'
+ StrPAS( connections[ intIndex ].szDeviceName );
s.add( strTemp );
//显示一个活动的拨号连接的动态IP地址
dwSize := SizeOf(RASpppIP);
RASpppIP.dwSize := dwSize;
dwResult := RASGetProjectionInfo
(connections[ intIndex ].hRasConn,
RASP_PppIp,RasPPPIP,dwSize);//获取动态IP地址
if 0 <> dwResult then s.add('错误:' + inttostr( dwResult ))
else
s.add('动态地址:' + StrPas(RASpppIP.szIPAddress));
end;
end;
showmessage(s.text);
s.free;
end;
 
还是不行，说我没有拨号连接。。
我的机器是局域网中的机器，主机拨号的。
 
这个只能测试本机的拨号，我给你上述代码前都已测试过的，
如果是代理这个可能不行。
 
我把最楼上的改了一下便于您拷贝.
procedure TForm1.Button1Click(Sender: TObject);
const
MaxConnections = 10;//¼ÙÉè×î¶àÓÐ10¸ö»î¶¯µÄ²¦ºÅÁ¬½Ó
RAS_MaxDeviceType = 16; //É豸ÀàÐÍÃû³Æ³¤¶È
RAS_MaxEntryName = 256; //Á¬½ÓÃû³Æ×î´ó³¤¶È
RAS_MaxDeviceName = 128; //É豸Ãû³Æ×î´ó³¤¶È
RAS_MaxIpAddress = 15; //IPµØÖ·µÄ×î´ó³¤¶È
RASP_PppIp = $8021; //²¦ºÅÁ¬½ÓµÄЭÒéÀàÐÍ£¬
//¸ÃÊýÖµ±íʾPPPÁ¬½Ó
type
HRASCONN = DWORD; //²¦ºÅÁ¬½Ó¾ä±úµÄÀàÐÍ
RASCONN = record //»î¶¯µÄ²¦ºÅÁ¬½ÓµÄ¾ä±úºÍÉèÖÃÐÅÏ¢
dwSize : DWORD; //¸Ã½á¹¹ËùÕ¼ÄÚ´æµÄ´óС(Bytes),Ò»°ãÉèÖÃΪSizeOf(RASCONN)
hrasconn : HRASCONN; //»î¶¯Á¬½ÓµÄ¾ä±ú
szEntryName : array[0..RAS_MaxEntryName] of char;//»î¶¯Á¬½ÓµÄÃû³Æ
szDeviceType :array[0..RAS_MaxDeviceType] of char;//»î¶¯Á¬½ÓµÄËùÓõÄÉ豸ÀàÐÍ
szDeviceName :array[0..RAS_MaxDeviceName] of char;//»î¶¯Á¬½ÓµÄËùÓõÄÉ豸Ãû³Æ
end;
TRASPPPIP = record //»î¶¯µÄ²¦ºÅÁ¬½ÓµÄ¶¯Ì¬IPµØÖ·ÐÅÏ¢
dwSize : DWORD; //¸Ã½á¹¹ËùÕ¼ÄÚ´æµÄ´óС(Bytes),Ò»°ãÉèÖÃΪSizeOf(TRASPPPIP)
dwError : DWORD; //´íÎóÀàÐͱêʶ·û
szIpAddress : array[ 0..RAS_MaxIpAddress ] of char;//»î¶¯µÄ²¦ºÅÁ¬½ÓµÄIPµØÖ·
end;
var
RasEnumConnections: function(
var lprasconn : RASCONN ;//½ÓÊջÁ¬½ÓµÄ»º³åÇøµÄÖ¸Õë
var lpcb: DWORD;//»º³åÇø´óС
var lpcConnections : DWORD//ʵ¼ÊµÄ»î¶¯Á¬½ÓÊý
):DWORD; stdcall;
RasGetProjectionInfo: function (
hrasconn : HRasConn;//Ö¸¶¨»î¶¯Á¬½ÓµÄ¾ä±ú
rasprojection : DWORD;//RASÁ¬½ÓÀàÐÍ
var lpprojection : TRASPPPIP;//½ÓÊÕ¶¯Ì¬IPÐÅÏ¢µÄ»º³åÇø
var lpcb : DWord//½ÓÊÕ»º³åÇøµÄ´óС
): DWORD;stdcall;

connections : array[0..MaxConnections-1] of RASCONN; //²¦ºÅÁ¬½ÓÊý×é
longSize : dword;
intAvailabelConnections:dword; //»î¶¯µÄ²¦ºÅÁ¬½ÓµÄʵ¼ÊÊýÄ¿
intIndex : integer;
strTemp : string;
dwResult : DWORD;
RASpppIP : TRASPPPIP; //»î¶¯µÄ²¦ºÅÁ¬½ÓµÄ¶¯Ì¬IPµØÖ·ÐÅÏ¢
hand1,hand2:thandle;
begin
hand1:=loadlibrary('Rasapi32.dll');
if hand1=0 then exit;
try
@RasEnumConnections:=getprocaddress(hand1,'RasEnumConnectionsA');
if @RasEnumConnections=nil then exit;
hand2:=loadlibrary('Rasapi32.dll');
if hand2=0 then exit;
try
@RasGetProjectionInfo:=getprocaddress(hand2,'RasGetProjectionInfoA');
if @RasGetProjectionInfo=nil then exit;

connections[0].dwSize := sizeof(RASCONN);
longSize := MaxConnections*connections[0].dwSize; //½ÓÊջÁ¬½ÓµÄ»º³åÇø´óС
dwResult := RasEnumConnections(connections[0],longSize,intAvailabelConnections);

if 0 <> dwResult then memo1.lines.add( '´íÎó:' + inttostr( dwResult ) )
else
begin
memo1.lines.add('ÏÖÓеĻÁ¬½ÓÓÐ'+IntToStr(intAvailabelConnections)+'¸ö');
//ÏÔʾËùÓлµÄ²¦ºÅÁ¬½ÓµÄÐÅÏ¢£¨ÉèÖÃÐÅÏ¢ºÍ¶¯Ì¬IPµØÖ·£©

for intIndex := 0 to intAvailabelConnections - 1 do
begin//ÏÔʾһ¸ö»î¶¯µÄ²¦ºÅÁ¬½ÓµÄÉèÖÃÐÅÏ¢
strTemp :=
'Á¬½ÓÃû³Æ:' +StrPAS(connections[intIndex].szEntryName )
+'£¬É豸ÀàÐÍ£º' +StrPAS(connections[intIndex].szDeviceType )
+'£¬É豸Ãû³Æ£º' +StrPAS(connections[intIndex].szDeviceName );
memo1.lines.add( strTemp ); //ÏÔʾһ¸ö»î¶¯µÄ²¦ºÅÁ¬½ÓµÄ¶¯Ì¬IPµØÖ·

RASpppIP.dwSize := SizeOf(RASpppIP);
dwResult := RASGetProjectionInfo(connections[intIndex].hRasConn,
RASP_PppIp,RasPPPIP,RASpppIP.dwSize);//»ñÈ¡¶¯Ì¬IPµØÖ·
if 0 <> dwResult then
memo1.lines.add('´íÎó:' + inttostr( dwResult ))
else
memo1.lines.add('¶¯Ì¬µØÖ·:'+StrPas(RASpppIP.szIPAddress));
end;
end;//end of dwresult
finally
freelibrary(hand2);
end;
finally
freelibrary(hand1);
end;
end;
2000下可以运行.
 
拜托各位，我是想通过局域网中非主机取到拨号主机的对外动态IP~
感谢以上各位大侠的解答，感激不尽，但始终未能测试通过。。
望知情者速告知~~谢谢谢谢
 
to 不困
我也遇到了你这样的问题，如果你解决了，还望告之小弟
 
怎么跟fox777的问题一样。
写段代码访问： http://checkip.dyndns.org/ 就可以了
 
可能通过主机名来获得 IP 地址
 
to 不困
我遇到和你这个一样的问题
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1775275 能不能把卜泰男那个例子发一份给我，或者给我讲一下解决思路。谢谢！
steven_han@netmarch.com.cn
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
M
局域网中有4个公的IP地址， 为什么在实现局域网INTERNET接入时，只有两个IP地址可用？(100分)
回复
13
查看
327
mycwcgr_bak
M
P
通过代理服务器共享上网的局域网内如何取得此代理服务器外部IP （即Internet 上的 IP）？ (100分)
2
回复
23
查看
477
阳光游子
阳
Y
adsl拨号上网后,用delphi该如何获取ip地址(100分)
回复
3
查看
198
yao99
Y
黑
如何获取通过局域网主机的IP地址(10分)
回复
4
查看
162
黑鹰船长
黑
后退
顶部