真正的Delphi点对点UDP通讯实例

【实例简介】
本程序为一个真正点对点通讯示范程序：） 实现内网到内网的直接连接（QQ用的技术）使用Delphi实现。在网上未看到类似的程序，特此发布提供喜欢的朋友参考。通过UDP来实现穿透NAT的点对点通讯。
【实例截图】
【核心代码】
e5811d59-3450-454e-a1a0-f148c889f1d8
└── 真正的Delphi点对点UDP通讯实例
└── okbase.net
└── PeerToPeer
├── PeerToPeer
│   ├── Client
│   │   ├── bin
│   │   │   ├── CLient.exe
│   │   │   ├── Log
│   │   │   │   ├── 20060325.log
│   │   │   │   ├── 20081127.log
│   │   │   │   └── 20181024.log
│   │   │   └── sys.ini
│   │   └── sources
│   │   ├── CLient.bkm
│   │   ├── CLient.cfg
│   │   ├── CLient.dof
│   │   ├── CLient.~dpr
│   │   ├── CLient.dpr
│   │   ├── CLient.res
│   │   ├── CLient.ToDo
│   │   ├── Consts.dcu
│   │   ├── FastMM4.dcu
│   │   ├── FastMM4Messages.dcu
│   │   ├── FrmLog.bkm
│   │   ├── FrmLog.dcu
│   │   ├── FrmLog.dfm
│   │   ├── FrmLog.pas
│   │   ├── main.bkm
│   │   ├── main.dcu
│   │   ├── main.dfm
│   │   ├── main.pas
│   │   ├── NMConst.dcu
│   │   ├── Nmudp.dcu
│   │   ├── pmybasedebug.dcu
│   │   ├── Public_Var.dcu
│   │   ├── UntCFGer.dcu
│   │   ├── untFunctions.dcu
│   │   ├── UntProctol.dcu
│   │   ├── UntPTPClient.bkm
│   │   ├── UntPTPClient.dcu
│   │   ├── UntPTPClient.~pas
│   │   ├── UntPTPClient.pas
│   │   ├── UntTIO.dcu
│   │   └── UntUser.dcu
│   ├── Doc
│   │   ├── DB.mmz
│   │   └── PLoveCon.exe
│   ├── Public
│   │   ├── 2ccc.com.nfo
│   │   ├── NMUDP.pas
│   │   ├── PMyBaseDebug.pas
│   │   ├── Public_Var.pas
│   │   ├── UntCFGer.pas
│   │   ├── UntClient.pas
│   │   ├── untFunction.inc
│   │   ├── untFunctions.pas
│   │   ├── UntProctol.pas
│   │   ├── UntSendThread.pas
│   │   ├── UntTBaseSocketClient.pas
│   │   ├── UntTBaseSocketServer.pas
│   │   ├── UntTIO.pas
│   │   └── UntUser.pas
│   └── Server
│   ├── bin
│   │   ├── Log
│   │   │   ├── 20060325.log
│   │   │   ├── 20081127.log
│   │   │   └── 20181024.log
│   │   ├── PTPServer.exe
│   │   └── sys.ini
│   └── Sources
│   ├── Consts.dcu
│   ├── DXServerCore.dcu
│   ├── DXSessionTracker.dcu
│   ├── DXSock.dcu
│   ├── DXSocket.dcu
│   ├── DXString.dcu
│   ├── FastMM4.dcu
│   ├── FastMM4Messages.dcu
│   ├── FrmMain.dcu
│   ├── FrmMain.dfm
│   ├── FrmMain.pas
│   ├── NMConst.dcu
│   ├── NMUDP.dcu
│   ├── pmybasedebug.dcu
│   ├── PTPServer.cfg
│   ├── PTPServer.dof
│   ├── PTPServer.dpr
│   ├── PTPServer.res
│   ├── PTPServer.ToDo
│   ├── Public_Var.dcu
│   ├── UntCFGer.dcu
│   ├── untFunctions.dcu
│   ├── UntProctol.dcu
│   ├── UntTBaseSocketServer.dcu
│   ├── UntTIO.dcu
│   ├── UntUDPServer.bkm
│   ├── UntUDPServer.dcu
│   ├── UntUDPServer.~pas
│   ├── UntUDPServer.pas
│   └── UntUser.dcu
└── readme.txt

14 directories, 88 files