В процедуре TForm1.IdTCPServer1Execute(..) прогр. блокир. ?????? [D6, Win2k]
Amid © (2004-07-15 11:48:00)
Внутри процедуры 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:00) [1]
А ты для сервера используешь менеджер потоков?
Наверх 
ЧАТ |
Орешник |
|
