В процедуре TForm1.IdTCPServer1Execute(..) прогр. блокир. ??????

← →
Amid (2004-07-15 11:48) [0]

Внутри процедуры procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread); програма блокируется, а имено где Memo1.Lines.Add(). Подскажите где ошибка !!!!

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
Var
c : TMemoryStream;
s : String;
begin

c:=TMemoryStream.Create;
c.LoadFromFile("d:\sointer.gdb");

with AThread.Connection do
Begin

s:=ReadLn;
Memo1.Lines.Add("Server :"+s);//сдесь Блокируется !!!!!
// но не знаю почему ????

If s="QWE" Then
Begin
WriteStream(c,true,false);
Memo1.Lines.Add("Server <-WriteStream");
Disconnect;
c.Free;
End;

End;

end;

← →
NAlexey © (2004-07-15 12:33) [1]

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

В процедуре TForm1.IdTCPServer1Execute(..) прогр. блокир. ?????? Найти похожие ветки