程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi 7中快速獲取本機IP地址

Delphi 7中快速獲取本機IP地址

編輯:Delphi

朋友們在用Delphi編程序的時候,常常碰到需要在程序中獲取自己的IP地址的情況。在以往的版本中,可以通過編寫一段代碼或函數實現這一功能。但有了Delphi 7,這個工作可以更簡化了。利用控件只需一句代碼,就可以非常方便地實現這一功能。

新建一Project1,在form1中添加控件statusbar1(Win32頁)和控件IdIPWatch1(Indy Misc頁)。接著設置好控件屬性:在statusbar1的panels中添加0-TStatusPanel和1-TStatusPanel兩項;IdIPWatch1的HistoryEnabled的屬性設為False。

編寫代碼:在TForm1.FormCreate(Sender: TObject)中加入以下代碼:

statusbar1.Panels[1].Text:=IdIPWatch1.LocalIP;

OK!按下F9功能鍵,運行程序,看一下窗口下邊狀態欄中是不是已經顯示了本機的IP地址了?

提示:若IdIPWatch1的HistoryEnabled的屬性設為True,則會在程序退出時,自動生成一個文件(文件名為HistoryFileName屬性設定的值),記錄當前的IP地址。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved