Скачать: CL | DM;

В процедуре 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c