Текущий архив: 2004.08.01;
Скачать: 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 вся ветка
Текущий архив: 2004.08.01;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.042 c
