发送端
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
lCmd: string;
begin
lCmd := Trim(AContext.Connection.IOHandler.ReadLn);
if lCmd <> '' then
begin
Memo1.Lines.Add(lCmd);
AContext.Connection.IOHandler.WriteLn('您好');
end;
end;
接收端:
把IdTCPClient1的ReadTimeOut设为500,通过按按钮读取缓冲区。
procedure TForm2.Button3Click(Sender: TObject);
begin
Memo1.Lines.Add(IdTCPClient1.IOHandler.ReadLn);
end;