Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
Топик располагается на нескольких страницах: [1] 2 3   вперед  Ctrl      все
 Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 137
В общем есть поток, в котором готовится и потом через Synchronize рисует изображение.
Пока учусь и тренируюсь такие вещи рисовать,потому изображение тестовое. Вроде всё хорошо рисует, обновляет и прочее, но после значительного количества итераций (много тысяч) программа зависает (not response). При том может зависнуть на 1000 итерации, а может пол часа нормально крутить и докрутить до 50000 не зависнув. Никаких сообщений о памяти, ресурсах, доступе, и прочем нет. Зависает скорее через время, нежели чем от числа повторений, если sleep поставить меньше, то и зависнет при меньшем числе итераций, но время зависания тоже разное, иногда почти сразу, иногда очень долго.

В потоке к форме не обращаюсь нигде, кроме ShowResult; (ну очень старался, вроде всё проверил)

Код приведу, сильно не бить за качество, не уверен что поможет. Хотя бы подскажите, как можно отловить причину зависания, как такие вещи в компиляторе отслеживать? Кода очень много в программе, куча обработчиков на кучи событий у кучи компонентов. Но зависает без каких-либо действий с моей стороны.

+

TDravRandom = class(TThread)
  private
    { Private declarations }
    MyImage: TImage;
  protected
    procedure Execute; override;
    procedure ShowResult; //
end;


procedure TDravRandom.Execute;
var

  Iter:Integer;
  i,X,Y:Integer;
  Rr,delt,skl:Real;
  x0,y0:integer;
  share_r,ratio:real;
  r:integer;

begin

  DrawingRandom:=True;
 // while (DrawingFile=-1) and (not Terminated)  do
  MyImage:=TImage.Create(nil);
  MyImage.Width:=CoreShell.Image1.Width;
  MyImage.Height:=CoreShell.Image1.Height;
  Iter:=0;

while (DrawingFile=-1) and (not Terminated)  do
    begin

      MyImage.Width:=CoreShell.Image1.Width;
      MyImage.Height:=CoreShell.Image1.Height;

      MyImage.Canvas.Lock;

    Rr:=1e10;
    for i:=2 to InitialData.fa_location.NVig do     //для масштабирования картинки
      begin
       delt:=Sqrt(((InitialData.fa_location.TVSCord[i].x-InitialData.fa_location.TVSCord[1].x)*(InitialData.fa_location.TVSCord[i].x-InitialData.fa_location.TVSCord[1].x))+
                 ((InitialData.fa_location.TVSCord[i].y-InitialData.fa_location.TVSCord[1].y)*(InitialData.fa_location.TVSCord[i].y-InitialData.fa_location.TVSCord[1].y)));
       if delt<Rr then Rr:=delt/2;
       end;

      skl:=3700/MyImage.Height;    //масштаб
      r:=Round(1130*Rr/(skl)*0.9);       //радиус шестигранника
      ratio:=r/GlTuningImage.ReloadTuning.ratio;

       MyImage.Canvas.Pen.Color:=clBlack;
       MyImage.Canvas.Font.Size:=Round(GlTuningImage.ReloadTuning.text[1].frontsize*2*ratio);

      x0:=Round(1*(MyImage.Width)/2); //центр
      y0:=Round(1*(MyImage.Height)/2);

      Inc(iter);
      MyImage.Canvas.TextOut  (10,10,inttostr(Iter)); //вывожу итерации просто чтоб понять когда зависло

      Draw_random_core_in_thread (MyImage,x0,y0,r,Rr,skl,ratio);

MyImage.Canvas.UnLock;

    //  if CoreShell.TreeView1.Selected.Index<>0 then exit;
      Synchronize(ShowResult);
      MyImage.Picture:=nil;
      Sleep(10); //так часто чтоб быстрее зависло, иначе часами ждать можно
    end;
    
  DrawingRandom:=false;
end;

procedure TDravRandom.ShowResult;
begin
   CoreShell.Image1.Picture:=MyImage.Picture;
end;


Ну и вызываемые процедурки:

procedure Draw_random_core_in_thread (TempImage:TImage;x0,y0,r:integer; Rr,skl,ratio:Real);
var
  i,X,Y:Integer;
  delt:Real;
//  x0,y0:integer;

 // r:integer;
begin
  for i:=1 to InitialData.fa_location.NTVS do//
    begin

       X:=Round(x0+1000*InitialData.fa_location.TVSCord[i].x/skl);
       Y:=Round(y0-1000*InitialData.fa_location.TVSCord[i].y/skl);

       TempImage.Canvas.Brush.Color:=RGB(Random(100)+150, Random(100)+150, Random(100)+150);
       DrawPolygon (r,X,Y,TempImage.Canvas);
       TempImage.Canvas.Brush.Style := bsClear;
       TempImage.Canvas.TextOut( Round(X-TempImage.Canvas.TextWidth(inttostr(i))/2+GlTuningImage.ReloadTuning.text[1].Location.X*ratio),
                                        Round(Y+GlTuningImage.ReloadTuning.text[1].Location.Y*ratio),
                                        inttostr(i));  
     end;
end;



procedure DrawPolygon (r,x0,y0:Integer;Sender: TObject);     //рисуем многоугольник радиуса Р в точке Х0У0
var
a:array[1..6] of TPoint;
i:Integer;
begin
for i:=1 to 6 do
  begin
   a[i].X:=Round(r*cos(i*2*pi/6+pi/2)+x0);
   a[i].Y:=Round(r*sin(i*2*pi/6+pi/2)+y0);
  end;
(Sender as Tcanvas).Polygon(a);
end;


Картинка с другого сайта.
2 июл 19, 15:12    [21919095]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 10998
Андрей Игоревич
В потоке к форме не обращаюсь нигде, кроме ShowResult
Андрей Игоревич
  MyImage.Width:=CoreShell.Image1.Width;
  MyImage.Height:=CoreShell.Image1.Height;
  Iter:=0;

while (DrawingFile=-1) and (not Terminated)  do
    begin

      MyImage.Width:=CoreShell.Image1.Width;
      MyImage.Height:=CoreShell.Image1.Height;

Далее, TImage - это класс VCL для отрисовки изображения. Для работы в потоке не предназначен. Вам нужен TBitmap
2 июл 19, 15:33    [21919116]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 10998
Про дофигища глобальных переменных я молчу
2 июл 19, 15:35    [21919119]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 137
_Vasilisk_
Андрей Игоревич
В потоке к форме не обращаюсь нигде, кроме ShowResult
Андрей Игоревич
  MyImage.Width:=CoreShell.Image1.Width;
  MyImage.Height:=CoreShell.Image1.Height;
  Iter:=0;

while (DrawingFile=-1) and (not Terminated)  do
    begin

      MyImage.Width:=CoreShell.Image1.Width;
      MyImage.Height:=CoreShell.Image1.Height;

Далее, TImage - это класс VCL для отрисовки изображения. Для работы в потоке не предназначен. Вам нужен TBitmap

Но в данном случае я же просто спрашиваю размер, никак не изменяя, он мне нужен при каждой итерации (если пользователь растянул или уменьшил окно). Да и этот код я вставил уже позже, когда зависания уже были.
А чем плох запрос значения глобальной переменной без изменения её значения (далее я хотел бы рисовать куда более сложные изображения с сотнями параметров, вводить (а затем ещё и постоянно обновлять) их в поток через указатели или ещё как было бы ну очень проблемно).

TBitmap сейчас опробую, может ли быть в этом причина?
2 июл 19, 16:01    [21919158]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Квейд
Member

Откуда: Kyiv, Ukraine
Сообщений: 5225
Андрей Игоревич
_Vasilisk_
пропущено...
пропущено...

Далее, TImage - это класс VCL для отрисовки изображения. Для работы в потоке не предназначен. Вам нужен TBitmap

Но в данном случае я же просто спрашиваю размер, никак не изменяя, он мне нужен при каждой итерации (если пользователь растянул или уменьшил окно). Да и этот код я вставил уже позже, когда зависания уже были.
А чем плох запрос значения глобальной переменной без изменения её значения (далее я хотел бы рисовать куда более сложные изображения с сотнями параметров, вводить (а затем ещё и постоянно обновлять) их в поток через указатели или ещё как было бы ну очень проблемно).

TBitmap сейчас опробую, может ли быть в этом причина?


Не забывай про Canvas.Lock / Unlock
2 июл 19, 16:04    [21919162]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 10998
Андрей Игоревич
Но в данном случае я же просто спрашиваю размер, никак не изменяя
Если слово нельзя для вас не аргумент, то почитайте Рихтера. У него очень хорошо расписана работа с разными потоками
Андрей Игоревич
А чем плох запрос значения глобальной переменной без изменения её значения
Тем, что это значение внезапно может измениться
Андрей Игоревич
их в поток через указатели
Читайте Рихтера
Андрей Игоревич
ещё как было бы ну очень проблемно
Бросайте вы это занятие. Программирование это одна сплошная проблема
2 июл 19, 16:26    [21919189]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 2114
Ни TBitmap, ни TCanvas не стоит использовать в потоках. ВСЯ отрисовка с созданием необходимых классов - должна быть в основном потоке. И нет необходимости пересоздавать на каждый чих TImage. В потоке только подготовка данных. Если уж очень хочется что-то поместить в поток - то только голый GDI или GDI+
2 июл 19, 16:42    [21919214]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 137
_Vasilisk_
Андрей Игоревич
Но в данном случае я же просто спрашиваю размер, никак не изменяя
Если слово нельзя для вас не аргумент, то почитайте Рихтера. У него очень хорошо расписана работа с разными потоками
Андрей Игоревич
А чем плох запрос значения глобальной переменной без изменения её значения
Тем, что это значение внезапно может измениться
Андрей Игоревич
их в поток через указатели
Читайте Рихтера
Андрей Игоревич
ещё как было бы ну очень проблемно
Бросайте вы это занятие. Программирование это одна сплошная проблема

Вот вроде и ответили, а вроде и зачем это написали? К чему?
Меня устраивает изменение глобальных переменных на ходу, если я понимаю где и как это происходит. Возможно сделаю иначе. Но расчеты трехмерных полей и объектов вещь специфическая (колоссальные объемы данных и параметров) и часто я понимаю, что сделать так как обычно делают становиться невозможно ли запредельно сложно.


Вот лучше скажите, как очистить BitMap чтоб не происходило "переполнение ресурсов". Если MyImage.Picture:=nil; с этим справлялось, то, например MyBitMap.FreeImage - нет. Можно, конечно в каждом цикле создавать (Create) и освобождать(Free), что в принципе прекрасно работает - но выглядит это как-то неправильно.
2 июл 19, 16:54    [21919226]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 47660

white_nigger
Ни TBitmap, ни TCanvas не стоит использовать в потоках.

Ну, насчёт первого ты явно погорячился. Второе - да, надо тщатильнее следить за тем откуда
оно происходит.

Posted via ActualForum NNTP Server 1.5

2 июл 19, 17:01    [21919238]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 10998
Андрей Игоревич
К чему?
К тому, чтобы вы понимали, что делаете неправильно.
Андрей Игоревич
Меня устраивает изменение глобальных переменных на ходу, если я понимаю где и как это происходит
Никогда не смотрел на сигналы светофора. Меня устраивает, если я просто перебегаю дорогу
2 июл 19, 17:03    [21919241]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 137
white_nigger
Ни TBitmap, ни TCanvas не стоит использовать в потоках. ВСЯ отрисовка с созданием необходимых классов - должна быть в основном потоке. И нет необходимости пересоздавать на каждый чих TImage. В потоке только подготовка данных. Если уж очень хочется что-то поместить в поток - то только голый GDI или GDI+

А как тогда реализовать такую задачу - есть программа "оболочка", есть расчетные программы, расчетные программы каждые н-секунд сохраняют результаты расчетов на жесткий диск, данные постоянно подгружаются оболочкой (висит процесс который раз в Х-секунд сканирует ключевые папки) и будет выводить на экран результаты расчетов.
При этом чтобы все возможности оболочки по обработке данных были доступны, так время полное расчета исчисляться днями и неделями .

Пока я реализовал через поток, который подгружает данные и рисует их на нужных мне Image и кроме упомянутого зависания проблем никаких не было. Вроде через BitMap уже минут 20 крутиться и не зависло, если и не зависнет - то как бы, почем не стоит использовать? В чем потенциальная проблема? Любимого всеми Рихтера я обязательно почитаю, но чуть-чуть попозже.
2 июл 19, 17:04    [21919246]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 2114
Dimitry Sibiryakov
Ну, насчёт первого ты явно погорячился. Второе - да, надо тщатильнее следить за тем откуда
оно происходит.
Поверь, с учётом квалификации автора как программиста - лучше сразу расставить флажки. К тому-же неизвестно как этот TBitmap и его канва будут использоваться
2 июл 19, 17:07    [21919249]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Мимопроходящий
Member

Откуда: бурятский тундрюк, эсквайр
Сообщений: 30037

не взлетит.
тут программист нужен. (С)

Posted via ActualForum NNTP Server 1.5

2 июл 19, 17:09    [21919256]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 10998
Андрей Игоревич
висит процесс который раз в Х-секунд сканирует ключевые папки
FindFirstChangeNotification, ReadDirectoryChangesW
Андрей Игоревич
так время полное расчета исчисляться днями и неделями .
А отрисовка тоже занимает недели? Загрузили расчет, за неделю рассчитали, отдали данные в главный поток - за пару секунд нарисовали
Андрей Игоревич
и кроме упомянутого зависания проблем никаких не было
Удачи в перебегании дорог
2 июл 19, 17:10    [21919262]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 137
_Vasilisk_
Андрей Игоревич
К чему?
К тому, чтобы вы понимали, что делаете неправильно.

Если причина именно из-за опасности изменения переменной на ходу - то я понимаю и принимаю эту опасность, так как для того, что бы ей избежать нужно приложить огромное количество дополнительных усилий. Если там есть ещё какие-то опасности (например обращение к глобальным переменным может вызвать какой-то конфликт) то очень прошу рассказать об этом.

_Vasilisk_
Андрей Игоревич
К чему?
К тому, чтобы вы понимали, что делаете неправильно.
Андрей Игоревич
Меня устраивает изменение глобальных переменных на ходу, если я понимаю где и как это происходит
Никогда не смотрел на сигналы светофора. Меня устраивает, если я просто перебегаю дорогу

Если я живу городе где 3 машины, а светофоры могут гореть красным по много часов и даже дней - возможно это единственный выбор адекватно передвигаться по городу.
2 июл 19, 17:10    [21919263]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Dimitry Sibiryakov
Member

Откуда:
Сообщений: 47660

white_nigger
неизвестно как этот TBitmap и его канва будут использоваться

Да это-то в общем-то известно: в потоке на нём будет что-то рисоваться, а потом отдаваться
в главный поток на отображение. Но в целом архитектура, описанная им выше, кривовата на
мой взгляд.

Posted via ActualForum NNTP Server 1.5

2 июл 19, 17:11    [21919265]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 10998
Андрей Игоревич
возможно это единственный выбор адекватно передвигаться по городу.
А возможно и нет. Особенно если в результате выбора есть возможность попасть на кладбище. Но, чтобы знать о всех возможностях, нужно книжки читать. А у вас
Андрей Игоревич
Любимого всеми Рихтера я обязательно почитаю, но чуть-чуть попозже.
2 июл 19, 17:14    [21919272]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
white_nigger
Member

Откуда: Тула
Сообщений: 2114
Dimitry Sibiryakov,

Так в общем случае неизвестно через чего "будет рисоваться" - хорошо если сам всё полностью можешь контролировать. И то опыт нужен. Например при разработке нашего TileControl обнаружилось, что стандартный JPEG идущий в поставке делфей нельзя использовать в потоках. Казалось бы - простая математика, процесс декодирования просится в поток. Но нашлись ситуации, правда не помню под какими версиями. Пришлось заюзать для потока декодер из системного GdiPlus
2 июл 19, 17:20    [21919281]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 137
_Vasilisk_
Андрей Игоревич
висит процесс который раз в Х-секунд сканирует ключевые папки
FindFirstChangeNotification, ReadDirectoryChangesW
Андрей Игоревич
так время полное расчета исчисляться днями и неделями .
А отрисовка тоже занимает недели? Загрузили расчет, за неделю рассчитали, отдали данные в главный поток - за пару секунд нарисовали
Андрей Игоревич
и кроме упомянутого зависания проблем никаких не было
Удачи в перебегании дорог

Со сканированием папок проблем нет, но спасибо данные варианты тоже рассмотрю.
Отрисовка занимает миллисекунды. Но отрисовывать надо каждый раз когда появились новые данные (раз в несколько секунд), рисовать после окончания расчета - это уже отдельный вопрос.
Ну от подскажите, как передать в поток, допустим, сотню разных параметров (там, как отдельные, числа, строки, булевы, массивы всего вышеупомянутого записи, куча всего и вся всех видов цветов и форм, помимо этого массивы значений на сотни тысяч элементов). При том, чтоб это не было жутко трудоемко.

В общем поток уже 40 минут крутится и обновляет картинку, пока ничего не зависло, судя по всему проблему из названия темы решить удалось путем перехода на BitMap. (но пока не уверен).
2 июл 19, 17:21    [21919282]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
kealon(Ruslan)
Member

Откуда: Нижневартовск
Сообщений: 4805
Dimitry Sibiryakov
white_nigger
Ни TBitmap, ни TCanvas не стоит использовать в потоках.

Ну, насчёт первого ты явно погорячился. Второе - да, надо тщатильнее следить за тем откуда
оно происходит.
Что-то примитивное только, GraphUtils например совсем не потокобезопасный. Да и каждую виртуальную процу рассматривать под микроскопом то ещё удовольствие
2 июл 19, 17:34    [21919297]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
YuRock
Member

Откуда: Донецк
Сообщений: 3940
Андрей Игоревич
Ну от подскажите, как передать в поток, допустим, сотню разных параметров (там, как отдельные, числа, строки, булевы, массивы всего вышеупомянутого записи, куча всего и вся всех видов цветов и форм, помимо этого массивы значений на сотни тысяч элементов).
Это очень просто.
Сделать соответствующую логику (архитектуру) у своей программы.
2 июл 19, 18:03    [21919327]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
_Vasilisk_
Member

Откуда: Украина, Харьков
Сообщений: 10998
Андрей Игоревич
Ну от подскажите, как передать в поток, допустим, сотню разных параметров
Обернуть их в одну запись. При этом не забывать о синхронизации

Простейший вариант
+
TSettings = record
  ...........
end;

TMyThread = class(TThread)
private
  FSettings: TSettings;
  FSettingsLock: TRtlCriticalSection;
private
  procedure SettingsLock;
  procedure SettingsUnLock;
  function GetSettings: TSettings;
  procedure SetSettings(const AVal: TSettings);
public
  constructor Create;
  destructor Destroy; override;
public
  property Settings: TSettings read GetSettings write SetSettings;
end;

constructor TMyThread.Create;
begin
  inherited Create(False);
  InitializeCriticalSection(FSettingsLock);
end;

destructor TMyThread.Destroy; 
begin
  DeleteCriticalSection(FSettingsLock);
  inherited Destroy;
end;

procedure TMyThread.SettingsLock;
begin
  EnterCriticalSection(FSettingsLock);
end;

procedure TMyThread.SettingsUnLock;
begin
  LeaveCriticalSection(FSettingsLock);
end;

function TMyThread.GetSettings: TSettings;
begin
  SettingsLock;
  try
    Result := FSettings;
  finally
    SettingsUnLock;
  end;
end;

procedure TMyThread.SetSettings(const AVal: TSettings);
begin
  SettingsLock;
  try
    FSettings := AVal;
  finally
    SettingsUnLock;
  end;
end;
и обращаться только к свойству Settings (к полю FSettings не обращаться никогда)
2 июл 19, 18:05    [21919328]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 137
_Vasilisk_
Андрей Игоревич
Ну от подскажите, как передать в поток, допустим, сотню разных параметров
Обернуть их в одну запись. При этом не забывать о синхронизации

Простейший вариант
+
TSettings = record
  ...........
end;

TMyThread = class(TThread)
private
  FSettings: TSettings;
  FSettingsLock: TRtlCriticalSection;
private
  procedure SettingsLock;
  procedure SettingsUnLock;
  function GetSettings: TSettings;
  procedure SetSettings(const AVal: TSettings);
public
  constructor Create;
  destructor Destroy; override;
public
  property Settings: TSettings read GetSettings write SetSettings;
end;

constructor TMyThread.Create;
begin
  inherited Create(False);
  InitializeCriticalSection(FSettingsLock);
end;

destructor TMyThread.Destroy; 
begin
  DeleteCriticalSection(FSettingsLock);
  inherited Destroy;
end;

procedure TMyThread.SettingsLock;
begin
  EnterCriticalSection(FSettingsLock);
end;

procedure TMyThread.SettingsUnLock;
begin
  LeaveCriticalSection(FSettingsLock);
end;

function TMyThread.GetSettings: TSettings;
begin
  SettingsLock;
  try
    Result := FSettings;
  finally
    SettingsUnLock;
  end;
end;

procedure TMyThread.SetSettings(const AVal: TSettings);
begin
  SettingsLock;
  try
    FSettings := AVal;
  finally
    SettingsUnLock;
  end;
end;
и обращаться только к свойству Settings (к полю FSettings не обращаться никогда)

Спасибо, постараюсь использовать.
На тему Рихтера (книга - "Программирование под Windows"?) - будет время, почитаю, объёмное произведение. Но стоит понимать, что программирование для меня не цель, а средство решения рабочих задач.

Форма более не виснет, вопрос из заглавия темы решен.
3 июл 19, 13:50    [21919835]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Андрей Игоревич
Member

Откуда:
Сообщений: 137
_Vasilisk_
+
TSettings = record
  ...........
end;

TMyThread = class(TThread)
private
  FSettings: TSettings;
  FSettingsLock: TRtlCriticalSection;
private
  procedure SettingsLock;
  procedure SettingsUnLock;
  function GetSettings: TSettings;
  procedure SetSettings(const AVal: TSettings);
public
  constructor Create;
  destructor Destroy; override;
public
  property Settings: TSettings read GetSettings write SetSettings;
end;

constructor TMyThread.Create;
begin
  inherited Create(False);
  InitializeCriticalSection(FSettingsLock);
end;

destructor TMyThread.Destroy; 
begin
  DeleteCriticalSection(FSettingsLock);
  inherited Destroy;
end;

procedure TMyThread.SettingsLock;
begin
  EnterCriticalSection(FSettingsLock);
end;

procedure TMyThread.SettingsUnLock;
begin
  LeaveCriticalSection(FSettingsLock);
end;

function TMyThread.GetSettings: TSettings;
begin
  SettingsLock;
  try
    Result := FSettings;
  finally
    SettingsUnLock;
  end;
end;

procedure TMyThread.SetSettings(const AVal: TSettings);
begin
  SettingsLock;
  try
    FSettings := AVal;
  finally
    SettingsUnLock;
  end;
end;

Хотя мне и не понятно использование property и критической секции, в чем смысл таких перестраховок? Или есть необходимость.

Для меня это выглядит как если перед каждым действием мы проверяем все переменные на существование, на форматирование, на соответствие каким нибудь условиям, заключаем всё в try exept finaly, ещё чего-нибудь для защиты, а кода внутри i+j=k;
Обычно если код не работает значит всё, хана, убиваем программу и ищем ошибку, варианты чтоб программа не умерла, но сделала часть кода не верно или не сделала вообще - обычно меня не устраивают...

Может это для ситуаций разработки программ большими группами или когда стабильность работы программы важнее результата?
3 июл 19, 14:19    [21919880]     Ответить | Цитировать Сообщить модератору
 Re: Зависает форма при работе потока по рисовании на Image после тысяч итераций.  [new]
Gator
Member

Откуда: Москва
Сообщений: 14347
Андрей Игоревич
Обычно если код не работает значит всё, хана, убиваем программу и ищем ошибку, варианты чтоб программа не умерла, но сделала часть кода не верно или не сделала вообще - обычно меня не устраивают...
Обычно софтина как раз работает у всех прекрасно.
НО! Данные разных юзеров хранит, как хочется ей, а не как её автору/юзверю
Также не надо зарекаться от железных аварий и стихий.
3 июл 19, 15:07    [21919956]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: [1] 2 3   вперед  Ctrl      все
Все форумы / Delphi Ответить