windows - 如何在 TIdTcpClient 和 TIdTcpServer 之间建立一个简单的连接以将字符串从客户端发送到服务器？

Question

我正在使用 Delphi xe6 来实现一个简单的客户端/服务器连接。客户端表单应该有一个 TEdit 组件，并且应该将 Edit.text 字符串发送到服务器备忘录。我想使用 Indy 组件:TIdTcpServer 和 TIdTcpClient，但我不知道如何在客户端和服务器之间建立简单的连接。

非常感谢您的帮助。

Answer 1

服务器:
在你的创建、初始化函数中的任何地方:

FIndySrv:=TIdTCPServer.Create(nil);
FIndySrv.DefaultPort:=50000;
FIndySrv.OnExecute:=DoOnIndyExecute;
FIndySrv.Active:=true;

OnExecute:

procedure TForm1.DoOnIndyExecute(AContext: TIdContext);
var recv:string;
begin
  recv := AContext.Connection.Socket.ReadLn;
  // ...
end;

客户:

FIndyClient:=TIdTCPClient.Create(nil);
FIndyClient.Host:='localhost';
FIndyClient.Port:=50000;
FIndyClient.Connect;
FIndyClient.Socket.WriteLn('Hallo Welt!');