本实例演示如何利用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所示。
 |
更多内容请看IP地址知识普及专题、Delphi网络及通讯编程专题，或进入讨论组讨论。
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
相关专题
- IP地址知识普及专题 (446篇文章)
- Delphi网络及通讯编程 (110篇文章)
- 熊猫烧香核心源码(Delphi模仿版-仅供学习 (11349次浏览)
- 用Delphi开发视频聊天软件 (4953次浏览)
- Delphi控制Excel自动生成报表 (4001次浏览)
- 动态语言崛起 Delphi For PHP能否挽救Borla (2976次浏览)
- Delphi 中串口通讯的实现 (2889次浏览)
- 用Delphi + DirectX开发简单RPG游戏 (2551次浏览)
- 用Delphi和Web Services开发短信应用程序 (2043次浏览)
- 使用TCP/IP协议实现聊天程序 (1827次浏览)
- 用DELPHI实现文件加密压缩 (1721次浏览)
- 利用Delphi编程控制摄像头 (1391次浏览)
