Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Ошибка доступа в потоке при унитожении переменных


Автор: Nialon 5.10.2012, 22:23
Первое сообщение. Ыыы. Иногда очень нужен хороший форум где можно пообщаться с програмистами и всегда получить ответ.
Если поможете, добавлю в избранное и буду спрашивать всякие вопросы. Просто не знаю какие есть хорошие форумы по делфи.

Короче у меня есть поток в котором я гружу список TStringList, а после этого загружаю картинки в список кнопок. (TCategoryButtons).
Поток тут нужен был чтобы можно было все это поставить на паузу при необходимости если большой список.
С этим проблем никаких не было пока не решил выделить повторяющийся код из Execute в отдельную потоковую функцию LoadCategoryFromList. 
Стоило его выделить, у меня перестал срабатывать последний try finally блок на выходе Execute. Вот код по порядку вложения:

Код

procedure TThreadConfig.Execute;
begin

  repeat
  // Операции по типу выполнения
  case FUpdate of
  // Окно - часть потока.
  1: FUpdateGallery;
  else Terminate;
  end;

  if not Terminated then begin FUpdate := 0; Suspend; end;

  until Terminated;

end;


Чтобы не спрашивали что у меня в нем .... Вызывается основная, рабочая функция FUpdateGallery. Тут все ок. Далее:

Код

procedure TThreadConfig.FUpdateGallery;
var
  I: Word;
  GenList, FAFList: TStringList;
begin with FConfig do try try

if FSendSyncMsg then Synchronize( procedure // ОБЯЗАТЕЛЬНО
begin
// Заготовки
ProgressUpdGallery.Position := 0;
GalleryPathLabel.Visible    := false;
end);

//--------------------------------------------------

GenList := TStringList.Create; 

// Делаем поиск файлов
if FScanFolder(GalleryPathLabel.Text,GenList) then LoadCategoryFromList(GalleryButtons, GenList, LNG_PLUGIN_FOLDER_RU);

FAFList := TStringList.Create; // Готовый лист с файлами

// Теперь поиск в списке FAF. =)
// Рабочий код ...

// Есть найденные файлы
if FAFList.Count > 0 then LoadCategoryFromList(GalleryButtons, FAFList, LNG_PLUGIN_FAF_RU); // ПОТОКОБЕЗОПАСНАЯ .. Ошибок нет.

finally
//  FreeAndNil(GenList);
//  FreeAndNil(FAFList);
  FConfig.GalleryPathLabel.Visible := true;
end;
except on e: Exception do
  ShowMessage('Модуль потоковой загрузки галлереи: ' + e.Message);
end;
end;


Образец кода FUpdateGallery я сильно упростил, чтобы было проще, суть осталась та же.
В LoadCategoryFromList просто подсовываются разные списки, + она потокобезопасная. Ту да же зашито обновление прогресс бара.
В этом варианте у меня начал зависать прогресс бар, перестала включаться видимость эдита GalleryPathLabel. 32 строка.
Начал выяснять в чем дело, поменял местами блоки finally, except оказалось ошибка доступа при FreeAndNil(GenList); 30 строке.

Что за ерунда? Раньше был дублирующий код в обеих местах из LoadCategoryFromList, никаких проблем не было.
Пробовал удалять FreeAndNil(GenList); FreeAndNil(FAFList); Начинает работать дальше, но 1-2 раза прокрутишь поток, 
зависает вторичное окно или вылетает. Если 1 раз прокрутить поток, то при выходе приложение всегда зависает на 2-3 минуты.
Такое ощущение что нельзя пользоваться функциями, процедурами в потоке. 
Есть подозрение что это из-за того что я передаю списки параметром у функции. Не люблю потоки, а так хотелось упростить код.

Автор: Nialon 6.10.2012, 12:47
Я идиот, столько времени потратил на отладку и совершенно не заметил,
что уже уничтожаю переданный параметр списка в LoadCategoryFromList, что неправильно.
Пардон за беспокойство. Заработало как часы, можно ковыряться дальше. Всем спасибо.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)