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

Question

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

我很感激你的帮助.

Answer 1

服务器:
Create,Initialize函数中的任何位置:

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!');