Не отправляется строка через TCP

← →
Junior (2003-02-16 10:41) [0]

Имеется ТСР соединение, строки от клиента к серваку отправляются без проблем а вот обратно не получается.
На сервере:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
Athread.Connection.WriteLn(messfromserv);
end;

На клиенте:
-----------------создаю поток
procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
UThclient.ReadfromServ.Create(false);
end;
------------------Сам поток

procedure ReadfromServ.Execute;
var str : string;

begin
str := Form1.IdTCPClient1.ReadLn("", 10);
if str <> "" then

begin
Form1.Memo1.Lines.Add(str);
end;
end;

В чем проблема? Спасибо.

← →
S@shka (2003-02-16 18:35) [1]

А зачем ???
У тебя сессия идет
Сессия....
1. Клиент пишет
IdTCPClient1.Writeln ("Bla-bla");
....
(1а)
2. Сервер onExecute
str := Athread.Connection.Readln ();
3. И пишет в ответ
athread.connection.writeln ("bla-bla-bla")
4. Клиент просто читает
( где 1а)
str1 := IdTCPClient1.Readln ();

Не отправляется строка через TCP Найти похожие ветки