Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.01.2010, 15:48
Аватар для NekitoSSSS
NekitoSSSS NekitoSSSS вне форума
Начинающий
 
Регистрация: 02.05.2009
Адрес: Башкортостан, г.Благовещенск
Сообщения: 142
Версия Delphi: XE
Репутация: 13
По умолчанию 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  
Старый 12.01.2010, 19:25
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

А если вместо Sleep(1000); использовать Application.ProcessMessages;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 12.01.2010, 19:41
Аватар для NekitoSSSS
NekitoSSSS NekitoSSSS вне форума
Начинающий
 
Регистрация: 02.05.2009
Адрес: Башкортостан, г.Благовещенск
Сообщения: 142
Версия Delphi: XE
Репутация: 13
По умолчанию

всеравное не работает((( еще варианты?? предлагайте все что знаете...
Ответить с цитированием
  #4  
Старый 12.01.2010, 20:10
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Значит у вас неправильно работает good, т.к. Application.ProcessMessages однозначно отдает управление.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 15.01.2010, 16:59
Аватар для NekitoSSSS
NekitoSSSS NekitoSSSS вне форума
Начинающий
 
Регистрация: 02.05.2009
Адрес: Башкортостан, г.Благовещенск
Сообщения: 142
Версия Delphi: XE
Репутация: 13
По умолчанию

Страдалецъ, спасибо за помощь но Application.ProcessMessages не работал всеравно а вот TTimer с предложенной работой справился прекрасно))
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:04.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter