народ, помогите с 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;
то есть цкил как раз то и ждет это событие, но дождаться не может, т.к. собой перекрывает поток((