Delphi 如何获取本地计算机名和IP地址
2011-01-04 23:08
274 查看
获取计算机名函数:
uses Windows;
function GetHostName:String;
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
Size: Cardinal;
begin
result:='';
Size := MAX_COMPUTERNAME_LENGTH+1;
GetComputerName(ComputerName, Size);
Result:=StrPas(ComputerName);
end;
获取计算机IP函数:
function HostNameToIP(HostName:string):String;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
result:='';
WSAStartup(2, WSAData);
HostEnt := GetHostByName(PChar(HostName));
if HostEnt <> nil then
begin
with HostEnt^ do
result:= Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),Byte(h_addr^[2]), Byte(h_addr^[3])]);
end;
WSACleanup;
end;
uses Windows;
function GetHostName:String;
var
ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
Size: Cardinal;
begin
result:='';
Size := MAX_COMPUTERNAME_LENGTH+1;
GetComputerName(ComputerName, Size);
Result:=StrPas(ComputerName);
end;
获取计算机IP函数:
function HostNameToIP(HostName:string):String;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
result:='';
WSAStartup(2, WSAData);
HostEnt := GetHostByName(PChar(HostName));
if HostEnt <> nil then
begin
with HostEnt^ do
result:= Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),Byte(h_addr^[2]), Byte(h_addr^[3])]);
end;
WSACleanup;
end;
相关文章推荐
- Delphi 如何获取本地计算机名和IP地址
- C#如何获取本地计算机的状态
- 如何在SqlServer中获取前端连接的IP地址,计算机名等信息
- 如何在.NET中获取电脑名,IP地址, 用户名, 计算机所在域名
- 如何在Node.js中获取本机本地IP地址
- 如何在SqlServer中获取前端连接的IP地址,计算机名等信息
- 获取本地计算机的名称和IP地址
- 如何在.NET中获取电脑名,IP地址, 用户名, 计算机所在域名
- InetAddress获取本地计算机IP地址
- 如何获取本地计算机的IP,子网掩码
- 局域网中知道ip地址,如何获取对方计算机名?
- 如何在.net中获取电脑名称,IP地址,用户名,计算机所在域名
- 获取本地计算机名和IP地址
- 如何在.NET中获取电脑名,IP地址, 用户名, 计算机所在域名
- C#如何获取本地IP地址(仅限于单网卡)
- 获取本地计算机的名称和IP地址
- 如何在.NET中获取电脑名,IP地址, 用户名, 计算机所在域名
- delphi获取本地IP地址
- 获取本地计算机名和IP地址
- 如何在SqlServer中获取前端连接的IP地址,计算机名等信息