За одно подключение отсылает одно сообщение, а нужно что бы писало 2-3
Код клиента
| Код |
TCPClient.Host:=Edit2.Text;
TCPClient.Port:=6052;
with TCPClient do
begin
Connect;
try
//Memo1.Lines.Add(ReadLn);
WriteLn(Edit1.Text);
WriteLn('klop');
finally
Disconnect;
end;
end;
|
Код сервака
| Код |
var
s:string;
begin
if AThread.Connection.Connected=true then
try
{ AThread.Connection.WriteLn('Work');
WriteLn('Work');
Memo1.Clear; }
s:=AThread.Connection.Readln;
Memo1.Lines.Add(s);
finally
AThread.Connection.Disconnect;
end;
|
Можно ли это сделать? И если можно, то как? |