Ошибка доступа при работе с потоками/нитями

← →
Tkach_ (2002-06-13 13:36) [0]

Столкнулся с проблемой при работе с потоками.
Поток А запускает поток В. Код выглядит следующим образом:

procedure TAThread.Execute;
begin
while not Terminated do
begin
Synchronize(UpdateLog);
if StartBFlag then
BList.Add(TBThread.Create(False));
end;
end;

procedure TBThread.Execute;
begin
while not Terminated do
Synchronize(UpdateLog);
end;

В результате генерируется ошибка: "access violation at <adress1>: write of adress <adress2>"

Помогите разобраться.

← →
Игорь Шевченко © (2002-06-13 13:37) [1]

Что делает UpdateLog ?

← →
Digitman © (2002-06-13 13:44) [2]

<adress1> , <adress2> - это для тебя диагностика, а не для Пушкина)

Значение <adress1> совместно с меню "Search|Find Error.." главного окна IDE Делфи, запустившего приложение врежиме встроенной отладки, укажет тебе модуль и строку в нем, при выполнении которой произошло AV

← →
Tkach_ (2002-06-13 14:10) [3]

2 Игорь Шевченко ©
UpdateLog обоих потоков обновляет Мемо главной формы и устанавливает флаг StartBFlag (только поток А)

← →
Игорь Шевченко © (2002-06-13 14:12) [4]

Э...код бы...

← →
Tkach_ (2002-06-13 14:35) [5]

код такой

procedure TАThread.UpdateLog;
begin
MainForm.Memo1.Lines.Add("что-то там");
StartBFlag:=(MainForm.Name1=Self.Name1);
end;

procedure TBThread.UpdateLog;
begin
MainForm.Memo1.Lines.Add("что-то там");
end;

← →
Внук © (2002-06-13 14:38) [6]

Переполнение Memo?

← →
Fiend © (2002-06-13 14:44) [7]

Я думаю что дело в возможности одновременного выполнения MainForm.Memo1.Lines.Add("что-то там");
разными потоками. Synchronyze насколько я знаю синхронизит поток с главным потоком приложения и то что вы в обоих потока А и Б делаете это не защизает Вас от одновременного выполнения метода АДД объекта Lines. А если один поток А вызвал этот метод но он не успел завершиться и тут вдруг проц переключился на выполнение другого потока Б, который тоже вдруг в этот момент вызвал тот же метод - сечете к чему это может привести???
Вам нужно использовать разделение ресурсов между потоками, это нада сделать при помощи Мьютексов или семафоров или т.д. что больше подходит

Ошибка может происходить в принципе не только из за метода АДД, мы ведь здесь весь код не видим

← →
Tkach_ (2002-06-13 14:48) [8]

с мемо все в порядке. Ошибка выдается при первом вызове Synchronize(UpdateLog) в потоке В:

procedure TBThread.Execute; begin while not Terminated do Synchronize(UpdateLog); // здесь ОШИБКА AV!!! end;

← →
Внук © (2002-06-13 14:50) [9]

>>Fiend © (13.06.02 14:44) "Synchronyze насколько я знаю синхронизит поток с главным потоком приложения" - вот именно, поэтому описываемая Вами ситуация здесь невозможна. Иначе, что Вы понимаете под словом "синхронизирует"?

← →
Fiend © (2002-06-13 14:56) [10]

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

← →
Игорь Шевченко © (2002-06-13 14:56) [11]

Код UpdateLog в студию

← →
Внук © (2002-06-13 14:59) [12]

BList тоже небезразмерный. Вообще этот код приведет к быстрому перерасходу памяти :) А то, что ошибка вылетает на той строке - так получилось :) Попробуйте ограничить выполнение каждого цикла хотя бы 10 итерациями и посмотрите, что получится.

← →
Fiend © (2002-06-13 14:59) [13]

ааааахахахаххаа, и побольше доктор! ПОБОЛЬШЕ кода!!!!

← →
Внук © (2002-06-13 15:01) [14]

>>Fiend © (13.06.02 14:56)
Это может привести максимум к DeadLock, то есть обыкновенному повисанию приложения, но никак не к AV

← →
Внук © (2002-06-13 15:03) [15]

Но здесь и этого не будет, поскольку синхронизируются всего лишь UpdateLog - очень нехитрые процедуры

← →
Fiend © (2002-06-13 15:05) [16]

Я так думаю, что столь уважаемая АВ является причиной некорректного или несанкционированного системой совместного доступа к памяти, вполне возможно и из двух потоков

← →
Игорь Шевченко © (2002-06-13 15:09) [17]

Memo1 надо защищать критической секцией.

Рихтера учить наизусть, главу про синхронизацию потоков

2Friend
Syncronize использует виндовскиую очередь сообщений для синхронизации так что одновременно вызваться метод Add из разных мест не может. Очевидно причина ваших глюков была в другом и похоже ваша проблемма решена не в правильном направлении.

Народ, ну фактически здесь происходит в самом худшем случае
Syncronize(MainForm.Memo1.Lines.Add("что-то там")); - из потока А
Syncronize(MainForm.Memo1.Lines.Add("что-то там")); - из потока B
Оба вызова встраиваются в контекст главного потока, и все нормально живет. Иначе зачем нужен Syncronize???

2kull
Ну для начала мой ник всё же FIEND а не FRIEND!!!
Ну а второе - моя проблема как раз правильно решена
А третье - автору то самому уже помоему уже ничего и не надо, он сам ничё не отвечает и не спрашивает

Автору: Я воспроизвел код - ошибки нет. D5/NT4

> Fiend © (13.06.02 15:27)

Ну за ник прошу прощения - очепятка вышла.
А насчет автора - так я-же не ради автора а ради дела...

Ошибка доступа при работе с потоками/нитями Найти похожие ветки