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;

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;

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;

finally

WSACleanup;

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.

推荐分享