Delphi: Błąd Canvas does not allow drawing przy rysowaniu w wątkach

Witam! Podczas poruszania tematu ilości optymalnych wątków dla programu (tutaj: https://www.elektroda.pl/rtvforum/topic2205517.html#10570584) "wyskoczył" pewien problem z którym nie mogę się uporać.

W programie obliczenia wykonuje kilka wątków, wyniki chciałbym rysować na bieżąco na Canvas mojej formy głównej.

Niestety, po jakimś czasie pracy programu kompilator wywala następujący błąd: Canvas does not allow drawing'. Zgłaszający wątek zawiesza się (właściwie to zgłasza OnTerminate, które przejąłem), pozostałe kontynuują pracę. Znów po losowym obiegu sytuacja się powtarza, aż wszystkie wątki się zawieszą.

Kompilator kolejno wskazuje na wszystko co wykorzystuje Canvas (wykreślałem linijki kodu, żeby sprawdzić z czym może to mieć związek), np.:


Procedurę rysowania wywoływałem poprzez TThread.Synchronize, ale wówczas kompilator zgłasza mi błąd: Project raised exception class EAccessViolation with message 'access violation in module at adress...

Oto przykład wywołania z tablicy wątków:



Czy to może być kwestia mojej deklaracji, czy tego, że nie można rysować wątkami na Formie? Wkleić kompletny kod?

Odnośnie Synchronize musiałby się wypowiedzieć ktoś znający Delphi.

Procedurę rysowania na wywoływałbym z procedury rysowania okna. Z "roboczego" wątku wywołać Invalidate/InvalidateRect (nazwy z WinAPI ).

Użyj przed rysowaniem Lock dla kanwy, a po rysowaniu uwolnij ją.

Co do Synchronize - musi ona być wywoływana zawsze z danego wątku, a ten zapis co przedstawiłeś nie do końca wskazuje na to.

Użyłem tego tak:



I to zadziałało, rysuje się piknie panocku, ale podczas rysowania w efekcie mam nieaktywne np. menu z poziomu którego steruję programem. Cała forma robi się nieaktywna... chyba, że podczas pracy programu na chwilę przejdę do innego programu, debbugera, albo formy, wówczas forma odzyskuje władzę.

Podejrzewam, że to coś u mnie sprzętowego. Tak czy siak - działa. Bardzo dziękuję.

Tablicę wątków złożyłem taką:



ale odkąd wykorzystałem Lock/Unlock nie wywołuję już tej procedury


poprzez Synchronize, tylko bezpośrednio w wątku. I pięknie działa.

Tak na wszelki wypadek zapytam - czy popełniłem niniejszym jakieś błędy techniczne na które mogę być potem narażony?

Dodano po 6 [minuty]:

I od razu o coś spytam. Czy kiedy tworzę obraz większy niż Canvas mojej formy, to mogę go potem jakoś przewijać w formie? Czy raczej powinienem poszukać obiektu, który postawię na formie i jego obsługą się zajmę?

OK, w sumie to by było na tyle:).

Temat do zamknięcia, dziękuję za pomoc.

Pozwolę sobie jeszcze poruszyć, na koniec, dość istotną sprawę.
Nie do końca opisałeś, co i jak rysujesz, ale podejrzewam, że blokujesz canvas przy każdym wywołaniu synchronize.
Zastanów się, czy to ma sens, i czy musisz koniecznie rysować coś i czy będzie za każdym razem to taka zmiana, która będzie widać.
W zależności od ilości wątków, blokuj canvas i rysuj co któreś wywołanie synchronize. Co 10, co 100... zależy jakie będą różnice w tym "rysunku".
To przyspieszy wykonanie wątków drastycznie.
Pozdrawiam i powodzenia. Arnoldziq.