непонятки с клиент-сервером.

[ромик0]

порты, хосты я указал в объект инспекторе.

procedure TForm1.Button1Click(Sender: TObject);
begin 
  Client.Active := true;
  Client.Connect;
  if client.Connect = true then begin
  ShowMessage('yes Connect');
  end
  else
  begin
  ShowMessage('no Connect');
  end;
end;
procedure TForm1.ServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
Memo1.Text := ClientSocket.Receiveln;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 Client.Sendln(Memo2.Lines.Text);
end;
end.

1 - почиму отправляет только один раз...? а в остальные просто ничего не делает

[BARNEY]

отключаться после отправки не забываем?

[ромик0]

нужно каждый раз после отправки заново конектиться ???просто первый день в сетевом программировании...

[ромик0]

делаю так

procedure TForm1.Button2Click(Sender: TObject);
begin
 Client.Sendln(Memo2.Lines.Text);
 client.disconnect;
end;

после этого мне приходится заново конектить клиент с сервером.((( можно по другому?

 client.Connect

сообщения теперь отправляются нормально.

[BARNEY]

а зачем чтобы весело подключение? логика то какая от этого? чтоб подключение жило должны ходить пакеты... иначе оно не нужно и его вырубают.