列出本机所有的Ip
来源:互联网 发布:mysql 指定数据库编码 编辑:程序博客网 时间:2024/05/08 21:29
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,winsock;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
TaPInAddr = Array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
procedure TForm1.Button1Click(Sender: TObject);
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
st:TstringList;
begin
WSAStartup($101, GInitData);
st:=TStringList.Create;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then
begin
Exit;
end;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[I] <> nil do
begin
st.Add(inet_ntoa(pptr^[I]^));
showmessage(st.strings[i]);
Inc(I);
end;
WSACleanup;
end;
end.
- 列出本机所有的Ip
- 列出本机所有串口
- 得到本机的所有IP
- 获取本机所有的IP
- Java串口通信列出本机所有串口
- 获取本机所有IP地址的方法
- 用java得到本机所有的ip地址
- 获取本机所有IP地址的方法
- java获取本机所有的IP地址
- java获取本机的所有ip地址 包括IPV6
- linux 获取本机的所有IP地址
- 多网卡机器列出所有的IP地址
- 列出所有的索引
- 得到本机所有 IP 地址
- QT 获取本机所有IP
- windows下获取本机所有IP
- Linux下获取本机所有IP
- 获取本机所有IP java
- set hibernate.cglib.use_reflection_optimizer=false for more info 错误的原因
- 为什么中国的外包开发预算报价会高(1)
- 不知道asp.net 1.1中怎么设置默认button
- Layers, Levels, and DIP
- 如何建立VB、ASP等应用程序的OCX图表
- 列出本机所有的Ip
- 元数据
- SQL Server中的模式匹配
- Scarborough Fair -- Paul Simon
- 常见光学设计软件的扩展语言简介
- 一个好用的线程池
- 11月份招聘信息
- JBuilderX和JBuilder 2005的字体光标问题
- 毫无办法的Download.Trojan,只有WinXPsp2。