社区
Delphi
帖子详情
请教!如何编程序得到本机拨号上网的ip地址(本机在局域网内,有一个ip地址,不是这个)
CKEN
2000-03-28 05:57:00
如题
...全文
132
3
打赏
收藏
请教!如何编程序得到本机拨号上网的ip地址(本机在局域网内,有一个ip地址,不是这个)
如题
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Un1
2000-04-07
打赏
举报
回复
Dim lpraspppip As RASPPPIP
lpraspppip.dwSize = 40
If RasGetProjectionInfo(mhConn, RASP_PppIp, lpraspppip, 40) = 0 Then
mRemoteIPAddress = TrimNull(StrConv(lpraspppip.szServerAddress, vbUnicode))
End If
honeyhu
2000-04-06
打赏
举报
回复
通过拨号用 PPP 上网,本身有网卡 NIC。在求 ip 地址时总是只得到一个 ip(实际是NIC
的 IP),无法得到另一个 ip。最近再试了一下,可以得到两个 ip。
代码为:
char szHostName[128];
CString m_IpAdd1, m_IpAdd2;
if( gethostname(szHostName, 128) == 0 ) //得到本地机名
{
struct hostent * pHost;
pHost = gethostbyname(szHostName);
m_IpAdd1 = inet_ntoa(*((struct in_addr*)(pHost->h_addr_list[0])));
//第一个 ip,为 NIC IP
if (pHost->h_addr_list[1] != NULL) //没有拨号时当然没有PPP IP
m_IpAdd2 = inet_ntoa(*((struct in_addr*)(pHost->h_addr_list[1])));
//第二个 ip,为 PPP IP
}
kxy
2000-03-28
打赏
举报
回复
procedure TForm1.ButtonIPClick(Sender: TObject);
type
TaPInAddr = Array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
IP: String;
begin
Screen.Cursor := crHourGlass;
try
WSAStartup($101, GInitData);
IP:='0.0.0.0';
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then
begin
ShowMessage(IP);
Exit;
end;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[I] <> nil do
begin
IP := inet_ntoa(pptr^[I]^);
Inc(I);
end;
WSACleanup;
ShowMessage(IP);
finally
Screen.Cursor := crDefault;
end;
end;
如何查看计算机在广域网的地址,如何知道
本机
当前
局域网
IP地址
和广域网
IP地址
...
如何知道
本机
当前
局域网
IP地址
和广域网
IP地址
IP地址
具有唯一性,每
一个
IP地址
代表每一台电脑,
IP地址
等于电脑的名字,所以要了解自己电脑的
IP地址
是相当重要。
IP地址
大致分为两类:广域网(公网)IP和
局域网
(私有)IP。...
局域网
组件拨号连接服务器上网,架设pppoe服务器
拨号上网
防止ARP欺骗
ARP病毒是
局域网
中的
一个
不可回避的话题,但是这个问题在拨号用户那儿好象没怎么听说过,现在电信或者网通的家庭用户一般都是使用PPPOE拨号的方法上网,我到亲戚家帮着调试网络的时侯就发现怎么他的机器里面
IP地址
与...
局域网
内如何设置多个
ip地址
分配
有时候在同一台大型交换机
局域网
内,如果不同计算机同时使用同
一个
ip地址
上网,那么就会出现其它电脑被挤下去的情况,为了不影响多台电脑的正常使用,我们可以在
局域网
内设置多个
ip地址
进行分配。 更多系统教程尽在...
8.PPP拨号 获取
ip地址
拨号完能从运营商哪里
得到
一个
ip 地址 公网
IP地址
需要花钱买的 网络的分类:
局域网
LAN 城域网 MAN 广域网 WAN ——就是跨地理位置的数据通信链路。目前最大的广域网 因特网 【广域网两种接入方式】 1.专线:点到点...
两台计算机能否共用
一个
ip地址
,多台电脑共用
一个
WIFI,
IP地址
是不是一样?
如果说公网
IP地址
,那么多台电脑的
IP地址
会被路由器NAT成同
一个
IP地址
进行上网。WIFI(无线路由器)是代替终端进行
拨号上网
或者固定ip配置接入互联网后,利用自带的无线功能通过DHCP服务,把私网
ip地址
分配给终端用户...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章