|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
2 одновременных дейсвия в 1 потоке. как?
народ, помогите с TICQClient`oм и потоками...
в общем прикрепляю процедуру: Код:
client.OnContactListRecv:=ContactListRecv; Получаю КЛ: Код:
client.RequestContactList; While (not good) do //пока не получен кл - begin //-гоняем цикл. Sleep(1000); end; Код:
procedure TEditThread.ContactListRecv(Sender: TObject; UIN: String; ContactList: TStringList); begin form1.Memo1.Lines.Add('КЛ получен!!!!'); good:=true; end; то есть цкил как раз то и ждет это событие, но дождаться не может, т.к. собой перекрывает поток(( Последний раз редактировалось NekitoSSSS, 12.01.2010 в 16:00. |
#2
|
||||
|
||||
А если вместо Sleep(1000); использовать Application.ProcessMessages;
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
всеравное не работает((( еще варианты?? предлагайте все что знаете...
|
#4
|
||||
|
||||
Значит у вас неправильно работает good, т.к. Application.ProcessMessages однозначно отдает управление.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
Страдалецъ, спасибо за помощь но Application.ProcessMessages не работал всеравно а вот TTimer с предложенной работой справился прекрасно))
|