Клиент/сервер Indy TCP с клиентом, действующим в качестве сервера

ничто не мешает вам сделать это с компонентом Tidtcpserver Indy.

tidtcpserver только устанавливает соединение. Вам нужно будет реализовать остальное. Таким образом, последовательность фактической отправки и получения может быть такой, какой вы хотите.

поместите этот код в OnExecute событие компонента tidtcpserver:

var
  sName: String;
begin
  // Send command to client immediately after connection
  AContext.Connection.Socket.WriteLn('What is your name?');
  // Receive response from client
  sName := AContext.Connection.Socket.ReadLn;
  // Send a response to the client
  AContext.Connection.Socket.WriteLn('Hello, ' + sName + '.');
  AContext.Connection.Socket.WriteLn('Would you like to play a game?');
  // We're done with our session
  AContext.Connection.Disconnect;
end;

вот как вы можете настроить TIdTCPServer действительно просто:

IdTCPServer1.Bindings.Clear;
IdTCPServer1.Bindings.Add.SetBinding('127.0.0.1', 8080);
IdTCPServer1.Active := True;

это говорит серверу слушать на только адрес обратной связи, порт 8080. Это предотвращает подключение к компьютеру посторонних лиц.

затем, чтобы подключить клиент, вы можете перейти к командной строке Windows и введите следующее:

telnet 127.0.0.1 8080

вот вывод:

как тебя зовут?

Марк

Привет, Маркус.

хотели бы вы сыграть в игру?

подключение к узлу потерянный.

нет telnet? Вот как установите клиент telnet на Vista и 7.

или с клиентом TIdTCP, вы можете сделать это:

var
  sPrompt: String;
  sResponse: String;
begin
  // Set port to connect to
  IdTCPClient1.Port := 8080;
  // Set host to connect to
  IdTCPClient1.Host := '127.0.0.1';
  // Now actually connect
  IdTCPClient1.Connect;
  // Read the prompt text from the server
  sPrompt := IdTCPClient1.Socket.ReadLn;
  // Show it to the user and ask the user to respond
  sResponse := InputBox('Prompt', sPrompt, '');
  // Send user's response back to server
  IdTCPClient1.Socket.WriteLn(sResponse);
  // Show the user the server's final message
  ShowMessage(IdTCPClient1.Socket.AllData);
end;

важно отметить, что операторы ReadLn ждут, пока не появятся данные. Это магия, стоящая за всем этим.