时间戳

首页 > 解决方案 > TCP/IP Indy Chat Delphi 10.3.3 FMX（使用互联网，不只是局域网）

delphi - TCP/IP Indy Chat Delphi 10.3.3 FMX（使用互联网，不只是局域网）

问题描述

我尝试在 Delphi 10.3.3 社区版中使用 FireMonkey 和 Indy 组件TIdTCPClient以及TIdTCPServer.

如果客户端和服务器位于同一个 WiFi 网络中（服务器 = Windows 10 和客户端 = Android 10），则可以正常工作。我用图中显示的电脑的IPv4地址ipconfig获取了电脑的IP，我的手机连接成功。

但是，如果我使用互联网 IP（从https://www.whatismyip.com/de/获取），客户端显示的德语相当于“套接字错误 #111 连接被拒绝”，那么我错过了什么？我在编辑框中输入了要连接的 IP - 所以如果本地 IP 有效，为什么任何其他 IP 都不能正常工作？

这是我使用的代码：

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, IdCustomTCPServer, IdTCPServer, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdContext, FMX.ScrollBox, FMX.Memo,
  FMX.Edit;

type

  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button1: TButton;
    IdTCPClient1: TIdTCPClient;
    IdTCPServer1: TIdTCPServer;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure IdTCPServer1Connect(AContext: TIdContext);
    procedure IdTCPServer1Disconnect(AContext: TIdContext);
    procedure IdTCPServer1Execute(AContext: TIdContext);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Host := Edit1.Text;
  IdTCPClient1.Port := StrToInt(Edit2.Text);
  IdTCPClient1.Connect;
  if IdTCPClient1.Connected then
  begin
    IdTCPClient1.IOHandler.WriteLn(Edit3.Text);
    IdTCPClient1.Disconnect;
  end;
end;

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
ip:String;
begin
  ip:=AContext.Binding.PeerIP;
  TThread.Synchronize(nil,
    procedure
    begin
      Memo1.Lines.Add('connect: ' + ip)
    end);
end;

procedure TForm1.IdTCPServer1Disconnect(AContext: TIdContext);
var
ip:String;
begin
  ip:=AContext.Binding.PeerIP;
  TThread.Synchronize(nil,
    procedure
    begin
      Memo1.Lines.Add('disconnect: ' + ip)
    end);
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
msg:String;
begin
  msg:=AContext.Connection.IOHandler.ReadLn;
  TThread.Synchronize(nil,
    procedure
    begin
      Memo1.Lines.Add('message: ' + msg)
    end);
end;

end.

标签： delphitcpfiremonkeyindy

解决方案

首先，TIdTCPServer是一个多线程组件。它的事件在工作线程的上下文中触发。因此，在访问 UI 控件时，您必须与主 UI 线程同步，例如您的TMemo. 如果没有这种同步，可能会发生不好的事情，包括但不限于：崩溃、死锁、破坏 UI 控件、使 UI 对用户无响应等。

话虽如此，该TIdTCPServer.Bindings集合只能将侦听套接字绑定到属于TIdTCPServer正在运行的 PC 的本地 IP。

如果PC直接连接到Internet modem，那么modem的公网IP直接分配给PC，这样TIdTCPServer就可以绑定到Internet IP了。

但是，如果 PC 连接到 LAN 网络（通过以太网或 WiFi），则TIdTCPServer无法直接绑定到 Internet IP，只能绑定到 PC 的 LAN IP。因此，您必须在网络路由器上设置端口转发（通过路由器的管理站点/应用程序，或通过 uPNP，如果启用），将入站流量从路由器的 WAN IP/端口转发到服务器 PC 的 LAN IP/端口。然后客户端可以连接到路由器的Internet IP并被转发到TIdTCPServer。

推荐阅读