|
|
Регистрация | << Правила форума >> | 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. |