Delphi中快速得到本機IP地址

字號:

朋友們在用Delphi編程序的時候,常常碰到需要在程序中獲取自己的IP地址的情況。在以往的版本中,可以通過編寫一段代碼或函數(shù)實現(xiàn)這一功能。但有了Delphi 7,這個工作可以更簡化了。利用控件只需一句代碼,就可以非常方便地實現(xiàn)這一功能。
    新建一Project1,在form1中添加控件statusbar
    1(Win32頁)和控件IdIPWatch1(Indy Misc頁)。接著設(shè)置好控件屬性:在statusbar1的panels中添加0-TStatusPanel和1-TStatusPanel兩項;IdIPWatch1的HistoryEnabled的屬性設(shè)為False。
    編寫代碼:在TForm1.FormCreate(Sender: TObject)中加入以下代碼:
    statusbar1.Panels[1].Text:=IdIPWatch1.LocalIP;
    OK!按下F9功能鍵,運行程序,看一下窗口下邊狀態(tài)欄中是不是已經(jīng)顯示了本機的IP地址了?
    提示:若IdIPWatch1的HistoryEnabled的屬性設(shè)為True,則會在程序退出時,自動生成一個文件(文件名為HistoryFileName屬性設(shè)定的值),記錄當(dāng)前的IP地址。