全部 日志

• 10-22 23:41 自动设置NAT的Delphi控件

  最近根据uPnP技术、用delphi写了一个进行自动端口映射的控件TAutoNAT，用于在自行开发的delphi软件中实现自动端口映射，使得中间件QuickBurro的安装软件具备了

• 08-07 17:27 用Delphi实现自动NAT(5)

  3、运行结果 Build并运行上述程序，从Memo1里可以看到整个工作过程，可以看出，搜索设备、取控制页URL、增加端口映射项、查看映射项参数、删除映射项等关键

• 08-07 02:48 用delphi实现自动NAT(4)

  // // 增加NAT项过程启动... procedure TForm1.Button3Click(Sender: TObject); begin    controled:=false;    controltype:=1;  &

• 08-07 02:46 用delphi实现自动NAT(3)

  // // 连接根设备... procedure TForm1.Button2Click(Sender: TObject); begin    requested:=false;    response:='';    cli

• 08-07 02:43 用delphi实现自动NAT(2)

  // // 关闭程序... procedure TForm1.Button4Click(Sender: TObject); begin    form1.close; end; // // 搜索路由器设备... procedure TForm1.Bu