delphi 获取本机IP地址和MAC地址
unit NetFunc;
interface uses
SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; // 错误信息常量
const
C_Err_GetLocalIp = '获取本地ip失败';
C_Err_GetNameByIpAddr = '获取主机名失败';
C_Err_GetSQLServerList = '获取SQLServer服务器失败';
C_Err_GetUserResource = '获取共享资失败';
C_Err_GetGroupList = '获取所有工作组失败';
C_Err_GetGroupUsers = '获取工作组中所有计算机失败';
C_Err_GetNetList = '获取所有网络类型失败';
C_Err_CheckNet = '网络不通';
C_Err_CheckAttachNet = '未登入网络';
C_Err_InternetConnected = '没有上网'; C_Txt_CheckNetSuccess = '网络畅通';
C_Txt_CheckAttachNetSuccess = '已登入网络';
C_Txt_InternetConnected = '上网了'; // 检测机器是否登入网络
function IsLogonNet: Boolean; // 得到本机的局域网Ip地址
function GetLocalIP(var LocalIp: string): Boolean; // 通过Ip返回机器名
function GetNameByIPAddr(IPAddr: string; var MacName: string): Boolean; // 获取网络中SQLServer列表
function GetSQLServerList(var List: Tstringlist): Boolean; // 获取网络中的所有网络类型
function GetNetList(var List: Tstringlist): Boolean; // 获取网络中的工作组
function GetGroupList(var List: Tstringlist): Boolean; // 获取工作组中所有计算机
function GetUsers(GroupName: string; var List: Tstringlist): Boolean; // 获取网络中的资源
function GetUserResource(IPAddr: string; var List: Tstringlist): Boolean; // 映射网络驱动器
function NetAddConnection(NetPath: Pchar; PassWord: Pchar; LocalPath: Pchar)
: Boolean; // 检测网络状态
function CheckNet(IPAddr: string): Boolean; // 判断Ip协议有没有安装 这个函数有问题
function IsIPInstalled: Boolean; // 检测机器是否上网
function InternetConnected: Boolean; // 关闭网络连接
function NetCloseAll: Boolean; /// //////////////////////////////////////////////////////////////////////////
/// ////////////////////////////////////////////////////////////
/// //////////////////////////////////////////////
/// /////////// 代码实现部门//////////// { =================================================================
功 能: 检测机器是否登入网络
参 数: 无
返回值: 成功: True 失败: False
备 注:
版 本:
1.0 2002/10/03 09:55:00
================================================================= }
function IsLogonNet: Boolean;
begin
Result := False;
if GetSystemMetrics(SM_NETWORK) <> then
Result := True;
end; { =================================================================
功 能: 返回本机的局域网Ip地址
参 数: 无
返回值: 成功: True, 并填充LocalIp 失败: False
备 注:
版 本:
1.0 2002/10/02 21:05:00
================================================================= }
function GetLocalIP(var LocalIp: string): Boolean; var
HostEnt: PHostEnt;
IP: String;
Addr: Pchar;
Buffer: array [ .. ] of Char;
WSData: TWSADATA;
begin
Result := False;
try
WSAStartUp(, WSData);
GetHostName(Buffer, SizeOf(Buffer));
// Buffer:='ZhiDa16';
HostEnt := GetHostByName(Buffer);
if HostEnt = nil then
exit;
Addr := HostEnt^.h_addr_list^;
IP := Format('%d.%d.%d.%d', [Byte(Addr[]), Byte(Addr[]), Byte(Addr[]),
Byte(Addr[])]);
LocalIp := IP;
Result := True;
finally
WSACleanup;
end;
end; { =================================================================
功 能: 通过Ip返回机器名
参 数:
IpAddr: 想要得到名字的Ip
返回值: 成功: 机器名 失败: ''
备 注:
inet_addr function converts a string containing an Internet
Protocol dotted address into an in_addr.
版 本:
1.0 2002/10/02 22:09:00
================================================================= }
function GetNameByIPAddr(IPAddr: String; var MacName: String): Boolean; var
SockAddrIn: TSockAddrIn;
HostEnt: PHostEnt;
WSAData: TWSADATA;
begin
Result := False;
if IPAddr = '' then
exit;
try
WSAStartUp(, WSAData);
SockAddrIn.sin_addr.s_addr := inet_addr(Pchar(IPAddr));
HostEnt := gethostbyaddr(@SockAddrIn.sin_addr.s_addr, , AF_INET);
if HostEnt <> nil then
MacName := StrPas(HostEnt^.h_name);
Result := True;
finally
WSACleanup;
end;
end; { =================================================================
功 能: 返回网络中SQLServer列表
参 数:
List: 需要填充的List
返回值: 成功: True,并填充List 失败 False
备 注:
版 本:
1.0 2002/10/02 22:44:00
================================================================= }
function GetSQLServerList(var List: Tstringlist): Boolean; var
i: integer;
// sRetValue: String;
SQLServer: Variant;
ServerList: Variant;
begin
// Result := False;
List.Clear;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := to ServerList.Count do
List.Add(ServerList.item(i));
Result := True;
Finally
SQLServer := NULL;
ServerList := NULL;
end;
end; { =================================================================
功 能: 判断IP协议有没有安装
参 数: 无
返回值: 成功: True 失败: False;
备 注: 该函数还有问题
版 本:
1.0 2002/10/02 21:05:00
================================================================= }
function IsIPInstalled: Boolean; var
WSData: TWSADATA;
ProtoEnt: PProtoEnt;
begin
Result := True;
try
if WSAStartUp(, WSData) = then
begin
ProtoEnt := GetProtoByName('IP');
if ProtoEnt = nil then
Result := False
end;
finally
WSACleanup;
end;
end; { =================================================================
功 能: 返回网络中的共享资源
参 数:
IpAddr: 机器Ip
List: 需要填充的List
返回值: 成功: True,并填充List 失败: False;
备 注:
WNetOpenEnum function starts an enumeration of network
resources or existing connections.
WNetEnumResource function continues a network-resource
enumeration started by the WNetOpenEnum function.
版 本:
1.0 2002/10/03 07:30:00
================================================================= }
function GetUserResource(IPAddr: string; var List: Tstringlist): Boolean; type
TNetResourceArray = ^TNetResource; // 网络类型的数组 Var
i: integer;
Buf: Pointer;
Temp: TNetResourceArray;
lphEnum: THandle;
NetResource: TNetResource;
Count, BufSize, Res: DWord;
Begin
Result := False;
List.Clear;
if copy(IPAddr, , ) <> '\\' then
IPAddr := '\\' + IPAddr; // 填充Ip地址信息
FillChar(NetResource, SizeOf(NetResource), ); // 初始化网络层次信息
NetResource.lpRemoteName := @IPAddr[]; // 指定计算机名称
// 获取指定计算机的网络资源句柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,
RESOURCEUSAGE_CONNECTABLE, @NetResource, lphEnum);
Buf := nil;
if Res <> NO_ERROR then
exit; // 执行失败
while True do // 列举指定工作组的网络资源
begin
Count := $FFFFFFFF; // 不限资源数目
BufSize := ; // 缓冲区大小设置为8K
GetMem(Buf, BufSize); // 申请内存,用于获取工作组信息
// 获取指定计算机的网络资源名称
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
if Res = ERROR_NO_MORE_ITEMS then
break; // 资源列举完毕
if (Res <> NO_ERROR) then
exit; // 执行失败
Temp := TNetResourceArray(Buf);
for i := to Count - do
begin
// 获取指定计算机中的共享资源名称,+2表示删除"\\",
// 如\\192.168.0.1 => 192.168.0.1
List.Add(Temp^.lpRemoteName + );
Inc(Temp);
end;
end;
Res := WNetCloseEnum(lphEnum); // 关闭一次列举
if Res <> NO_ERROR then
exit; // 执行失败
Result := True;
FreeMem(Buf);
End; { =================================================================
功 能: 返回网络中的工作组
参 数:
List: 需要填充的List
返回值: 成功: True,并填充List 失败: False;
备 注:
版 本:
1.0 2002/10/03 08:00:00
================================================================= }
function GetGroupList(var List: Tstringlist): Boolean; type
TNetResourceArray = ^TNetResource; // 网络类型的数组 Var
NetResource: TNetResource;
Buf: Pointer;
Count, BufSize, Res: DWord;
lphEnum: THandle;
p: TNetResourceArray;
i, j: SmallInt;
NetworkTypeList: TList;
Begin
Result := False;
NetworkTypeList := TList.Create;
List.Clear;
// 获取整个网络中的文件资源的句柄,lphEnum为返回名柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, Nil, lphEnum);
if Res <> NO_ERROR then
exit; // Raise Exception(Res);//执行失败
// 获取整个网络中的网络类型信息
Count := $FFFFFFFF; // 不限资源数目
BufSize := ; // 缓冲区大小设置为8K
GetMem(Buf, BufSize); // 申请内存,用于获取工作组信息
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
// 资源列举完毕 //执行失败
if (Res = ERROR_NO_MORE_ITEMS) or (Res <> NO_ERROR) then
exit;
p := TNetResourceArray(Buf);
for i := to Count - do // 记录各个网络类型的信息
begin
NetworkTypeList.Add(p);
Inc(p);
end;
Res := WNetCloseEnum(lphEnum); // 关闭一次列举
if Res <> NO_ERROR then
exit;
for j := to NetworkTypeList.Count - do // 列出各个网络类型中的所有工作组名称
begin // 列出一个网络类型中的所有工作组名称
NetResource := TNetResource(NetworkTypeList.Items[j]^); // 网络类型信息
// 获取某个网络类型的文件资源的句柄,NetResource为网络类型信息,lphEnum为返回名柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, @NetResource, lphEnum);
if Res <> NO_ERROR then
break; // 执行失败
while True do // 列举一个网络类型的所有工作组的信息
begin
Count := $FFFFFFFF; // 不限资源数目
BufSize := ; // 缓冲区大小设置为8K
GetMem(Buf, BufSize); // 申请内存,用于获取工作组信息
// 获取一个网络类型的文件资源信息,
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
// 资源列举完毕 //执行失败
if (Res = ERROR_NO_MORE_ITEMS) or (Res <> NO_ERROR) then
break;
p := TNetResourceArray(Buf);
for i := to Count - do // 列举各个工作组的信息
begin
List.Add(StrPas(p^.lpRemoteName)); // 取得一个工作组的名称
Inc(p);
end;
end;
Res := WNetCloseEnum(lphEnum); // 关闭一次列举
if Res <> NO_ERROR then
break; // 执行失败
end;
Result := True;
FreeMem(Buf);
NetworkTypeList.Destroy;
End;
delphi 获取本机IP地址和MAC地址的更多相关文章
- delphi 获取本机IP地址和MAC地址 (转)
unit NetFunc; interface uses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants ...
- C# 获取本机CPU序列号,MAC地址,硬盘ID,本机IP地址,计算机名,物理内存,PC类型
首先引入服务 然后 调用 本文转载自http://blog.sina.com.cn/s/blog_7eeb43210101hf7f.html public class Computer { publi ...
- 使用Python获取计算机名,ip地址,mac地址等等
获取计算机名 # 获取计算机名,常用的方法有三种 import os import socket # method one name = socket.gethostname() print(name ...
- 获取本机IP、mac地址、计算机名
python获取本机IP.mac地址.计算机名 在python中获取ip地址和在php中有很大不同,我们先来看一下python 获得本机MAC地址: >>> import uuid ...
- python获取本机IP、mac地址、计算机名
在python中获取ip地址和在php中有很大不同,在php中往往比较简单.那再python中怎么做呢? 我们先来看一下python 获得本机MAC地址: 1 2 3 4 import uuid de ...
- QT5下获取本机IP地址、计算机名、网络连接名、MAC地址、子网掩码、广播地址
获取主机名称 /* * 名称:get_localmachine_name * 功能:获取本机机器名称 * 参数:no * 返回:QString */ QString CafesClient::get_ ...
- Linux 获取本机IP、MAC地址用法大全
getifaddrs()和struct ifaddrs的使用,获取本机IP ifaddrs结构体定义如下: struct ifaddrs { struct ifaddrs *ifa_next; /* ...
- Delphi获取本机的MAC地址
Delphi获取本机的MAC地址: uses NB30; function GetAdaPterInfo(lana: Char): string; var Adapter: TAdapterS ...
- Python - 获取本机IP地址、Mac地址
Python - 获取本机IP地址.Mac地址 在python中获取ip地址和在php中有很大不同,在php中往往比较简单.那再python中怎么做呢? 直接看代码: # Python - 获取本机I ...
随机推荐
- 【C#/WPF】UI控件的拖拽/拉伸
需求①:控件拖拽——按住鼠标,可自由拖拽控件. 方法:目前看到的办法有两种. 使用ZoomableCanvas:http://www.cnblogs.com/gnielee/archive/2011/ ...
- Jdbc获取oracle中guid主键
上代码 String sql = "BEGIN insert into itil_task_plan (PLAN_CODE) values (?) returning id into ?; ...
- 【Qt Tips】QLineEdit内容过滤之setValidator和setInputMask浅析
1.QValidator分析 2.InputMask格式 3.测试代码和用例 项目路径: GitHub: https://github.com/Qunero/NeoQtTestDemo/tree/ma ...
- MVC出现错误:系统找不到指定文件(异常来自 HRSULT:0x80070002)
vs2013创建Web应用程序MVC出现错误:系统找不到指定文件(异常来自 HRSULT:0x80070002) 查到博客园VS2013新建Web Application时报错Exception fr ...
- NLog 配置与使用
有段时间没写博客了,过年放假,一直在弄CMS.什么都自己写了一遍,今天写写NLog,之前一用的log4net,感觉配置起来还是有些麻烦. NuGet 添加组件 配置 NLog.config <? ...
- 关于Cocos2d-x运行项目时弹框崩溃的解决
想要运行工程的时候,跳出一个框说停止cantnot open the window,还提到什么GLVM之类的,这是显卡驱动出现问题,如果是远程连接电脑的话,很有可能就是用来远程连接的那台电脑的显卡驱动 ...
- bcm56150_i2c驱动分析
本文主要关注bsp中,关于smbus(系统管理总线,是i2c的子集)的配置过程,了解如如何配置i2c寄存器.所有发送的数据都会写在FIFO中,使能之后就发送出去.接收数据就从接收寄存器中读取.读取和发 ...
- Linux中vi的使用
首先,如果vi中出现了方向键变成ABCD的情况,需要卸载默认的vim-common,再安装vim. sudo apt-get remove vim-common sudo apt-get instal ...
- MySQL无法远程连接解决方案
1.查看/etc/mysql/my.cnf配置文件是否只允许本地连接 注释配置:#bind-address = 127.0.0.1,重启MySQL Server 2.防火墙(我用的是iptables) ...
- RGB 颜色对照表
R G B 值 R G B 值 R G B 值 黑色 0 0 0 #000000 黄色 255 255 0 #FFFF00 浅灰蓝色 176 224 230 #B0E0E6 象牙黑 41 36 ...