向窗體上添加一個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所示。
