自动设置NAT的Delphi控件

作者在 2007-10-22 23:41:00 发布以下内容

最近根据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

QuickBurro开发手记 | 阅读 5218 次
文章评论,共0条
游客请输入验证码