Почему Delphi сервер отключается после первого запроса?

Question

[ruJumi]

Доброго времени суток.
Пишу клиент-серверное приложение на Delphi, клиент должен отправляет параметры, сервер их обработать и отправить ответ. Пока что для проверки сделал отправку числа, сервер его множит и отправляет назад. Но сервер получает только 1 сообщение и отключается, и не отвечает.
Клиент

procedure TForm1.Button1Click(Sender: TObject);
begin
 TcpClient1.Open;
TcpClient1.Sendln(Edit1.Text + #10);
  ListBox1.Items.Add('< ' + Edit1.Text);
  TcpClient1.Close;
end;
procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
  var DataLen: Integer);
begin
   ListBox1.Items.Add('> ' + TcpClient1.Receiveln());
end;

Север

procedure TForm1.FormCreate(Sender: TObject);
begin
 TcpServer1.Open;
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var c:integer;
begin
  memo1.lines.add(ClientSocket.Receiveln());
  c:=strtoint(ClientSocket.Receiveln());
  c:=c*5;
  TcpServer1.Sendln(inttostr(c)+#10);
end;

Что здесь не так?

Answer 1

[Алексей]

Вы два раза пытаетесь прочитать данные:
1) memo1.lines.add(ClientSocket.Receiveln());
2) c:=strtoint(ClientSocket.Receiveln());

Наверное нужно один раз прочитать вход в переменную, а затем уже с ней работать.

Comments

[ruJumi]

не помогло, теперь еще вылетает ошибка "Project Project1.exe raised exception class EConvertError with message "4 'is not a valid integer value'.

[Алексей]

Возможно вы читаете в переменную типа integer.
Читайте в строку, выводите эту строку и преобразовывайте в integer.
Или покажите новый код.

[ruJumi]

все равно ошибка
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var c:integer; s:string;
begin
s:=ClientSocket.Receiveln();
c:=strtoint(s);
memo1.lines.add(inttostr(c));
c:=c*5;
s:=inttostr(c);
TcpServer1.Sendln(s+#10);
end;

[Алексей]

Уберите #10 из Sendln в клиенте и сервере.

[ruJumi]

Спасибо, ошибка пропала, но сервер все рано не посылает ответ

[Алексей]

Замените TcpServer1.Sendln(s+#10); на ClientSocket.Sendln(s);

[ruJumi]

не помогло