Delphi WebRTC 与 P2P 组件
基于 STUN、TURN、ICE 协议的点对点通信、数据通道及 NAT 穿透，实现客户端直连。
基于 STUN、TURN、ICE 协议的点对点通信、数据通道及 NAT 穿透，实现客户端直连。
构建具有完整 NAT 穿透和实时通信支持的点对点应用程序。
面向 Delphi 和 C++Builder 的 UDP 客户端与服务器组件。在 Windows、Linux、macOS、iOS 和 Android 上收发单播、广播和组播数据报。
了解更多 →发现 NAT 后面的公网 IP 地址和端口映射。
uses
sgcP2P, sgcP2P_STUN_Classes, sgcSocket_Classes;
procedure TForm1.DiscoverPublicIP;
begin
sgcSTUNClient1.Host := 'stun.l.google.com';
sgcSTUNClient1.Port := 19302;
sgcSTUNClient1.SendRequest;
end;
procedure TForm1.sgcSTUNClient1STUNResponseSuccess(Sender: TObject;
const aSocket: TsgcSocketConnection;
const aMessage: TsgcSTUN_Message;
const aBinding: TsgcSTUN_ResponseBinding);
begin
Memo1.Lines.Add('Public IP: ' + aBinding.RemoteIP);
Memo1.Lines.Add('Public Port: ' + IntToStr(aBinding.RemotePort));
end;