delphi - 如何使用 IdTCPClient 等待来自服务器的字符串？

Question

我在使用 IdTelnet (indy 10.1) 时遇到问题。我无法以 Unicode 模式从服务器读取数据。现在我想用 IdTCPClient 编写 telnet 终端。

服务器有时会发送一行，有时会发送越来越多的行。但发送之间没有固定的时间。

现在我的问题是，当我必须从 InBuffer 读取数据时。

或者当我必须使用ReadLn函数从服务器读取数据时，我必须运行ReadLn多少次？

Answer 1

TIdTelnet 是一个多线程组件。它有一个内部线程，可以连续从套接字读取数据，只要数据缓冲区可用，就会触发 TIdTelnet.OnDataAvailable 事件。

TIdTelnet 是 TIdTCPClient 后代。查看 IdTelnet.pas 源文件以了解它是如何实现的。您可以在自己的代码中执行类似的操作，在自己的线程中调用 TIdIOHandler.ReadLn()，例如:

type
  TMyThread = class(TThread)
  private
    FConn: TIdTCPConnection;
  protected
    procedure Execute; override;
  public
    constructor Create(AConn: TIdTCPConnection); reintroduce;
  end;

constructor TMyThread.Create(AConn: TIdTCPConnection);
begin
  inherited Create(False);
  FConn := AConn;
end;

procedure TMyThread.Execute;
var
  S: String;
begin
  while not Terminated do
  begin
    S := FConn.IOHandler.ReadLn(...);
    ...
  end;
end;

var
  Thread: TMyThread = nil;

procedure TForm1.ConnectButtonClick(Sender: TObject);
begin
  IdTCPClient1.Connect;
  try
    Thread := TMyThread.Create(IdTCPClient1);
  except
    IdTCPClient1.Disconnect;
    raise;
  end;
end;

procedure TForm1.DisconnectButtonClick(Sender: TObject);
begin
  if Assigned(Thread) then Thread.Terminate;
  try
    IdTCPClient1.Disconnect;
  finally
    if Assigned(Thread) then
    begin
      Thread.WaitFor;
      FreeAndNil(Thread);
    end;
  end;
end;

如果你不想使用线程，那么你可以使用计时器。为了确保您的计时器线程(例如主线程)不会被不必要地阻塞，请在 TIdIOHandler.InputBuffer 出现时使用具有较小超时的 TIdIOHandler.CheckForDataOnSource() 方法。空，然后仅在数据可用时调用 TIdIOHandler.ReadLn()，例如:

procedure TForm1.ConnectButtonClick(Sender: TObject);
begin
  IdTCPClient1.Connect;
  ReadTimer.Enabled := True;
end;

procedure TForm1.DisconnectButtonClick(Sender: TObject);
begin
  ReadTimer.Enabled := False;
  IdTCPClient1.Disconnect;
end;

procedure TForm1.ReadTimerElapsed(Sender: TObject);
var
  S: String;
begin
  if IdTCPClient1.IOHandler.InputBufferIsEmpty then
  begin
    IdTCPClient1.IOHandler.CheckForDataOnSource(10);
    if IdTCPClient1.IOHandler.InputBufferIsEmpty then Exit;
  end;
  S := IdTCPClient1.IOHandler.ReadLn(...);
  ...
end;