Не отправляется строка через TCP [D7, WinXP]
Junior © (2003-02-16 10:41:00)
Имеется ТСР соединение, строки от клиента к серваку
отправляются без проблем а вот обратно не получается.
На сервере:
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:00) [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 ();
Наверх 
ЧАТ |
Орешник |
|
