Delphi 获取本机 HostName IP Address

本文整理自网络，侵删。

 
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;





type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

    // MAC Address



  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses    Types, WinSock, Nb30;


// IP Address

function WinSockVersion: Word;
begin
  Result := MakeWord(1, 1);
end;

function HostName: string;
var
  WSAData: TWSAData;
  Buffer: array[0..MAX_PATH] of AnsiChar;
begin
  Result := '';
  if WSAStartup(WinSockVersion, WSAData) = 0 then
  try
    if WinSock.GetHostName(Buffer, SizeOf(Buffer)) = 0 then
      Result := string(Buffer);
  finally
    WSACleanup;
  end;
end;

function IpAddress(const HostName: string): string;
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
begin
  Result := '';
  if WSAStartup(WinSockVersion, WSAData) = 0 then
  try
    HostEnt := GetHostByName(PAnsiChar(AnsiString(HostName)));
    if HostEnt <> nil then
      Result := string(inet_ntoa(PInAddr(HostEnt.h_addr_list^)^));
  finally
    WSACleanup;
  end;
end;

function IpAddresses(const HostName: string): TStringDynArray;
type
  PPInAddr = ^PInAddr;
var
  WSAData: TWSAData;
  HostEnt: PHostEnt;
  InAddrPtrPtr: PPInAddr;
begin
  Result := nil;
  if WSAStartup(WinSockVersion, WSAData) = 0 then
  try
    HostEnt := GetHostByName(PAnsiChar(AnsiString(HostName)));
    if HostEnt <> nil then
    begin
      InAddrPtrPtr := PPInAddr(HostEnt.h_addr_list);
      while InAddrPtrPtr^ <> nil do
      begin
        SetLength(Result, Length(Result) + 1);
        Result[Length(Result) - 1] := string(inet_ntoa(InAddrPtrPtr^^));
        Inc(InAddrPtrPtr);
      end;
    end;
  finally
    WSACleanup;
  end;
end;





procedure TForm1.Button1Click(Sender: TObject);
var
  Addresses: TStringDynArray;
  i:integer;
begin
 Memo1.Lines.Add(HostName);
 Memo1.Lines.Add(IpAddress(HostName));

Addresses:= IpAddresses(HostName);
  for I := 0 to Length(Addresses) - 1 do
 Memo1.Lines.Add('IP Address: ' + Addresses[I]);
end;

end.

 

相关阅读 >>

Delphi xe7中的运行时设置android应用程序屏幕方向

Delphi模拟文件拖拽

Delphi 检测判断字符串是否包含有中文字符

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

Delphi和金山词霸制作批量单词翻译

Delphi 查询当前目录下文件名是否存在

Delphi 通�^窗口句柄或窗口标题得到进程句柄

Delphi xe下的fmx中压缩图片

Delphi idhttp访问路由里的web

Delphi 判断当前网络连接方式

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取本机 HostName IP Address