请问如何枚举本机的所有的网卡和modem,并且获得他们的名称,IP地址和子网掩码?

xiaochai123 2004-07-07 01:50:54
请问如何枚举本机的所有的网卡和modem,并且获得他们的名称,IP地址和子网掩码,多谢了。能给原码最好。
...全文
398 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
Rex_love_Burger 2004-07-09
  • 打赏
  • 举报
回复
up
yccai 2004-07-09
  • 打赏
  • 举报
回复
用Microsoft Windows IP Helper API.也可以。
留下email
yccai 2004-07-09
  • 打赏
  • 举报
回复
用snmp可以做到。网上有例子下的。
xiaochai123 2004-07-09
  • 打赏
  • 举报
回复
fei19790920(饭桶的马甲) :你这个方法能获得网卡的全名吗,
我用GetAdaptersInfo无法获得网卡的全名只能获得部分的。
fei19790920 2004-07-08
  • 打赏
  • 举报
回复
//支持多网卡
use ...,winsock;
...
function getIPs: TStrings;
type
TaPInAddr = Array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result:=TStringList.Create;
Result.Clear;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[I] <> nil do
begin
Result.Add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;

sxy_9761 2004-07-08
  • 打赏
  • 举报
回复
NetBios
Rex_love_Burger 2004-07-08
  • 打赏
  • 举报
回复
邮箱拿来,发给你
xiaochai123 2004-07-08
  • 打赏
  • 举报
回复
GetAdaptersInfo是SDK中的函数,但在delphi中无法调用,请问该如何处理?
htyx 2004-07-07
  • 打赏
  • 举报
回复
先做个记号

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧