最近根据uPnP技术、用delphi写了一个进行自动端口映射的控件TAutoNAT,用于在自行开发的delphi软件中实现自动端口映射,使得中间件QuickBurro的安装软件具备了自动进行NAT设置的能力,大大简化了软件的安装。下面把TAutoNAT控件的使用说明贴一下,如哪位朋友需要,请联系我,100元/份,源码,带例子。
*************************************
TAutoNAT控件使用说明
*************************************
一、属性
1、可读写类型属性
Name:对象名称,字符型
Tag:控件序号,数值型
Timeout:任务执行超时值
2、只读类型属性(用于读取任务执行结果)
TaskType: 当前执行的任务类别号: 1-搜索 2-取控制页地址 3-增加端口 4-取外网地址 5-删除端口
RouterIp: 路由器内网IP(本地网IP)
RouterPort: 路由器控制端口(本地网端口)
RouterLocation: 路由器设备位置URL
RouterName: 路由器设备名称
RouterUSN: 路由器设备标识名
RouterURL: 路由器URL
ExternalIp: 路由器外网IP
ControlURL: 控制页URL
URLbase: 控制页基地址
二、事件
OnTaskFail:当任务执行失败时激发
OnTaskSuccess:当任务执行成功时激发
三、方法
SearchRouter(): boolean;
查找路由器设备的方法,返回结果为任务是否已顺利提交。任务执行成功时,激发OnTaskSuccess事件,
执行失败时,激发OnTaskFail事件。若任务执行成功,通过读下列属性值可得到路由器信息:
TaskType=1 (搜索设备)
RouterIp=路由器内网IP(本地网IP)
RouterPort=路由器控制端口(本地网端口)
RouterLocation=路由器设备位置URL
RouterName=路由器设备名称
RouterUSN=路由器设备标识名
RouterURL=路由器URL
URLbase=控制页基地址
GetControlURL()
取路由器控制页URL地址,返回结果为任务是否已顺利提交。任务执行成功时,激发OnTaskSuccess事件,
执行失败时,激发OnTaskFail事件。若任务执行成功,通过读下列属性值可得到控制页地址:
TaskType=2 (取控制页URL)
ControlURL=控制页URL
AddNatMapping(NatPortName: string; ExternalPort: integer; LocalIp: string; LocalPort: integer; Protocol: string)
增加一个端口映射项,返回结果为任务是否已顺利提交,其中入口参数如下:
NatPortName:映射项名称
ExternalPort:外网端口号
LocalIP:被映射的内网IP
LocalPort:被映射的内网端口
Pr