文档章节

获取本机IP地址

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 85
阅读 3
收藏 0
uses
  WinSock;

function LocalIP: String;
type
  TaPInAddr = Array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  Buffer: Array[0..63] of AnsiChar;
  i: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := '';
  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 := inet_ntoa(pptr^[i]^);
    Inc(i);
  end;
  WSACleanup;
end;

//测试:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(LocalIP);  //
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2007/12/13/992966.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
比特币源码解读十三

我们现在通过对Appinit2的分析看到了很多比特币的核心内容,现在我们要看的是第十一步。也有非常核心的内容。我们先大概了解下这步的内容:Step 11: start node (启动节点) 节点启动 一。我们...

ttblack
2017/10/28
0
0
Java-No.08 Java Linux下获取服务器ip地址

1、在window下获取本机ip地址 InetAddress inet = InetAddress.getLocalHost(); System.out.println("本机的ip=" + inet.getHostAddress()); 该方法在linux下获取到的ip为127.0.0.1,原因是你......

蓝汀华韶
2015/03/30
0
0
BAT批处理修改IP地址和DNS配置

1、Windows XP系统BAT批处理修改IP地址和DNS。 新建:文本文档,复制下面代码到文本文档,保存为Set IP Address.bat,双击运行,即可! @echo off echo ** echo * 修改IP地址、DNS * echo Wi...

yhw85
2013/02/05
0
0
Android模拟器的ip获取以及模拟器之间socket通信

1、Android 获取本机Mac 地址方法: 需要在AndroidManifest.xml文件中添加权限: <uses-permission android:name="android.permission.ACCESSWIFISTATE" /> Java代码 public String getLocal......

xiahuawuyu
2012/10/07
0
0
Shell 命令行获取本机IP,grep的练习

Shell 命令行获取本机IP,grep的练习 在 mac 下面输入 或者在 下面输入 就可以得到我们的网卡信息。不过通常情况下,我们需要查看的是我们的IP地址,不需要这么多的信息。所以,我想把这些信...

FungLeo
2017/08/02
0
0

没有更多内容

加载失败,请刷新页面

加载更多

ajax 提交返回map集合 获取不到值

后台java代码 @RequestMapping("/cameraList") @ResponseBody public Map<String, Object> cameraListForPage(@RequestParam(defaultValue = "1", value = "page") Integer page......

S三少S
9分钟前
0
0
TypeScrip最污的技术课-技术胖TypeScript图文视频教程

近日Node.js之父瑞安达尔(Ryan Dahl)发布新的开源项目 deno,从官方介绍来看,可以认为它是下一代 Node,使用 rust 语言代替 C++ 重新编写跨平台底层内核驱动,上层仍然使用 V8 引擎,最终...

JamesView
11分钟前
5
0
Es学习笔记

1.过滤排重聚合查询 筛选出某一个聚合值的个数统计。相当于mysql的distinct. 关键字:cardinality "aggs": { "2":{ "cardinality": { "field": "field" } ...

Gmupload
14分钟前
0
0
h5语义化标签

语义化HTML:用最恰当的HTML元素标签做恰当的事情。 优点: 提升可访问性; SEO; 结构清晰,利于维护; 通用容器:div——块级通用容器;span——短语内容无语义容器。 <title></title>:简...

莫西摩西
20分钟前
0
0
修改11g rac中 asm diskstring的发现路径

问题 : 如果我 们asm_disking以前是/dev/oracleasm/disks/* ,并且现在已经有磁盘组再用这个磁盘串了,那么,我们无法直接修改这个发现串为 ORCL:*,修改会报错,提示存在的磁盘无法使用新的...

tututu_jiang
23分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部