Delphi中根據IP地址得到主機名

本實例演示如何利用TUdpSocket組件獲取IP地址和主機名。

向窗體上添加一個TUdpSocket組件，如圖1所示。

圖1 主界面

TUdpSocket組件中有兩個屬性——LocalHostName和LocalHostAddr，其中分別存儲了本地計算機的主機名和IP地址，所以在窗體的初始化中添加如下響應代碼來顯示主機名和IP地址：

procedure TForm1.FormCreate(Sender: TObject);
　 begin
　　 self.Caption:=UdpSocket1.LocalHostName;
　　 self.Caption:=self.Caption+’:’+UdpSocket1.LocalHostAddr;
end;

程序代碼如下：

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, ExtCtrls;
type
　 TForm1 = class(TForm)
　 UdpSocket1: TUdpSocket;
　 procedure FormCreate(Sender: TObject);
private
　 { Private declarations }
public
　 { Public declarations }
end;
var
　 Form1: TForm1;
　 implementation
　 {$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
　 begin
　　 self.Caption:=UdpSocket1.LocalHostName;
　　 self.Caption:=self.Caption+’:’+UdpSocket1.LocalHostAddr;
　 end;
end.

保存文件，然後按F9鍵運行程序，程序運行結果如圖2所示。