function GetComputerName:String; //获取计算机名称
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt; s : array[0..128] of char;
begin
try
wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
WSAStartup(wVersionRequested, wsaData); //创建 WinSock
GetHostName(@s,128);
p:=GetHostByName(@s);
Result:=p^.h_Name;
finally
WSACleanup; //释放 WinSock
end;
end;
function GetHostIP:String; //获取IP
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt; s : array[0..128] of char; p2 : pchar;
begin
try
wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
WSAStartup(wVersionRequested, wsaData); //创建 WinSock
GetHostName(@s,128);
p:=GetHostByName(@s);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Result:= P2;
finally
WSACleanup; //释放 WinSock
end;
end;
分享到:
相关推荐
Delphi根据计算机名称获取IP地址..rar
本程序可以通过计算机名称来获取相应的IP地址,是在Delphi2009环境下编写的
使用WinSock中的GetHostByName函数可以快速获得本机的IP地址和计算机名称。这个方法可以嵌套到各种网络应用中。欢迎下载
演示如何通过DELPHI获取计算机的名称已经IP地址
摘要:Delphi源码,系统相关,获取IP Delphi根据计算机名称获取IP地址,相对时间较早的一个Delphi获取IP的程序,在Win7和Vista上是否能获取掉IP没有测试,目前在XP上可以获取到,真心想借鉴的要仔细看代码,部分代码是...
delphi的获取本机IP地址、计算机名称、计算机类型的原代码
在窗体内使用IP地址控件 屏蔽 Alt+F4 开关 Caps Num Scroll 锁 当程序空闲时执行 打开“开始”菜单 打开时间对话框 改变其它应用程序标题 改变指定网络服务器或域的用户密码 改变标准Windows对话框 改变系统时间 ...
2.3 获取计算机名 2.3.1 获取和设置本机主机名 2.3.2 获取远程主机名称 2.4 网络连接情况检测 2.4.1 使用WinInet高级函数库函数检测网络状态 2.4.2 通过读取系统状态参数检测网络状态 2.5 获取DNS信息 2.5.1 ...
获取本机并修改IP地址如何检测计算机是否联网如何知道系统有几个端口如何获取网络中所有的工作组如何取得计算机所在的工作组的名称如何更改DNS地址如何根据IP地址得到计算机的主机名称如何实现Ping操作如何映...
实例103 获取组件名称和内容 125 第3章 图形技术 127 3.1 绘制图形 128 实例104 绘制立体模型 128 实例105 在图片中写入文字 129 实例106 局部图片的复制 131 实例107 波形图的绘制 133 3.2 图形...
//返回服务器的机器名称. function GetRemoteServerName:string; function InStr(const sShort: string; const sLong: string): Boolean; {测试通过} {* 判断s1是否包含在s2中} function IntToStrEx(Value: ...
第6章通过15个实例介绍了一些常用的网络技术,主要内容包括扫描本地计算机打开的端口、在局域网内传递消息、获取本地计算机的名称和IP地址、根据IP地址得到主机名、映射虚拟盘等。 第7章通过14个实例演示了...
0080 判断IP地址是否合法的算法 53 0081 判断身份证是否合法的算法 54 0082 判断素数的算法 55 0083 将字符串转换成Unicode格式 56 3.4 排序及分组类算法 56 0084 利用回溯法将一组数平均分成两组 56 ...
0080 判断IP地址是否合法的算法 53 0081 判断身份证是否合法的算法 54 0082 判断素数的算法 55 0083 将字符串转换成Unicode格式 56 3.4 排序及分组类算法 56 0084 利用回溯法将一组数平均分成两组 56 ...
** 以下是易语言4.x及以前版本的升级信息 ******************************************************************************** 易语言4.14版相对于4.13更新说明: 对易语言核心支持库、编译器、开发环境的更新...