我用modem-交换机-modem连接上主机后。服务器可能有2个ip。一个是网卡ip,一个是modem的ip。怎样才能获得modem那个ip?不过分再送。
解决方案 »
- 请教大家 我想把编写完的Ddelphi程序放在WinPE上运行 可以吗
- DELPHI如何实现把一个文件夹下的文件转移到另外一个文件夹呢
- 很奇怪的olevariant类型
- 急招DELPHI程序员7名
- 各位救我:怎样给IE发送刷新消息?
- Parameters.ParamByName('固定资产编号').Value:=QuotedStr('jkjk'),提示类型不正确
- 请问下面这些delphi的DLL声明怎么转换成VB的DLL声明,谢谢
- 谁来答上,我一定给分,不给不是人。。。
- 怎样使OpenDialog位于父窗口的正中
- 哪位用过dephi6的dbexpress
- 那里有《Delphi高手突破》下载
- 如何统计memo里的字符数!?
在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);constMaxConnections = 10;//假设最多有10个活动的拨号连接varconnections : array[0..MaxConnections-1] of RASCONN;//拨号连接数组longSize : dword;intAvailabelConnections : dword;//活动的拨号连接的实际数目intIndex : integer;strTemp : string;dwResult : DWORD;dwSize : DWORD;RASpppIP : TRASPPPIP;//活动的拨号连接的动态IP地址信息beginconnections[ 0 ].dwSize := sizeof(RASCONN);longSize := MaxConnections * connections[ 0 ].dwSize;//接收活动连接的缓冲区大小intAvailabelConnections := 0;//获取所有活动的拨号连接的信息(连接句柄和设置信息)dwResult := RasEnumConnections( connections[ 0 ],longSize,intAvailabelConnections );if 0 < > dwResult thenmemo1.lines.add( '错误:' + inttostr( dwResult ) )elsebeginmemo1.lines.add( '现有的活动连接有' +IntToStr( intAvailabelConnections ) + '个');//显示所有活动的拨号连接的信息(设置信息和动态IP地址)for intIndex := 0 to intAvailabelConnections - 1 dobegin//显示一个活动的拨号连接的设置信息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 thenmemo1.lines.add('错误:' + inttostr( dwResult ))elsememo1.lines.add('动态地址:' + StrPas(RASpppIP.szIPAddress));end;end;end;以上程序在PWIN98+Delphi3.0下调试通过。
procedure TForm7.Button7Click(Sender: TObject);
var
hthread:thandle;
threadid:dword;
begin
hthread:=createthread(nil,0,@rasdial,nil,0,threadid);
end;
其中rasdial为一个函数。编译时报错第4个参数不能为空。
谁能帮我解释createthread函数。
先定义一个线程
Thread1:TThread;
然后构造
Thread1:=TThread.create;
我是菜鸟,不知道说的对不对