🚀 go-pugleaf

Hej,
mam taki nietypowy problem:

Mam sobie bazę danych MSSQL (komponenty Devart - choć to raczej bez znaczenia)
Dane odświeżam sobie w osobnym wątku
  query.Active:=False; / query.Active:=True;  czy tam: query.Refresh;

query ma Zdarzenie: AfterOpen i AfterRefresh które powoduje modyfikację napisów na formie głównej aby więc to prawidłowo zrealizować powinienem użyć procedury Synchronize - inaczej program się najczęściej zwiesza / wysypuje. 

Tylko jak to zrobić z procedurami które odpalają się jako zdarzenia w wyniku działania wątku który wykonuje otwarcie czy odświeżenie wyników query?

Mogę odłączyć na czas otwierania tabelki te procedury i po odświeżeniu danych ponownie je podłączyć np tak:


//procedura uruchamiana w osobnym wątku 
procedure test(obiekt: TMSQuery);
var s,t:TDataSetNotifyEvent;
Begin
  s:=obiekt.AfterOpen;
  obiekt.AfterOpen:=nil;
  t:=obiekt.AfterScroll;
  obiekt.AfterScroll:=nil;  
  ... 
  obiekt.Active:=False;
  obiekt.Active:=True;
  ... 
  obiekt.AfterScroll:=t;
  obiekt.AfterOpen:=s;
end;

Tylko wtedy nie wykona się procedura AfterOpen - która powinna się wykonać ale za pomocą Synchronize.

Wywołanie Synchronize(TThreadMethod(obiekt.AfterOpen)) - powoduje wysypanie się aplikacji tak jak by nie następowała synchronizacja (zwis/koniec aplikacji)

Jak powinienem zrobić to prawidłowo aby nie dochodziło do konflitów między watkami?