急!急!急!远程文件传送问题:两台计算机通过modem拨号连接成功后,如何得到本地计算机和远程计算机的动态ip地址? (高分) http://lijun_1.myetang.com/delphi/delphi_4.htm 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果你用的是ras远程访问的方法的话,可以获得ip地址。先用RasEnumConnections函数获得连接句柄。再用RasGetProjectionInfo获得连接后的ip,想要详细代码的话,可以去网上搜索,或是给我发mailto:[email protected] ---- 在WIN9X下,如果安装了拨号网络,则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32.DLL和RasApi16.DLL,我们可利用其中的RAS系列函数来获取和设置拨号连接网络的信息。当然是可以获取拨号连接的动态IP地址了。在Delphi帮助文件中,有相关RAS函数的详细说明。 ---- 一、先解释一些要用到的数据常量和数据结构。 constRAS_MaxDeviceType = 16;//设备类型名称长度RAS_MaxEntryName = 256;//连接名称最大长度RAS_MaxDeviceName = 128;//设备名称最大长度RAS_MaxIpAddress = 15;//IP地址的最大长度RASP_PppIp = $8021;//拨号连接的协议类型,该数值表示PPP连接typeHRASCONN = 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; DELPHI 遍历类的所有属性成员方法(包括私有的) *** 高分请问一个比较难的问题,关于Delphi6和nvarchar的 *** 想写一个小程序,线程的,并发进行,怎样写? 在F1Book中显示不了Excel数据!!! 动态读取excel数据,请教刷新问题! 缺少dcu文件怎么办? 怎么样手动添加一个事件???? 关于DBGRID的一个菜鸟级问题 请问高手怎样把开始菜单中的 开始 换成别的字符 硬盘序列号(出厂就有的那种)最多几个字节 关于web app debug execute到dll的转化 再次提问:如何获得局域网内某台机子共享文件夹里的所有文件和文件夹名
先用RasEnumConnections函数获得连接句柄。
再用RasGetProjectionInfo获得连接后的ip,
想要详细代码的话,可以去网上搜索,或是给我发mailto:[email protected]
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;