Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка доступа в потоке при унитожении переменных 
V
    Опции темы
Nialon
  Дата 5.10.2012, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 29.12.2011

Репутация: нет
Всего: нет



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

Короче у меня есть поток в котором я гружу список 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:44
PM   Вверх
Nialon
Дата 6.10.2012, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 29.12.2011

Репутация: нет
Всего: нет



Я идиот, столько времени потратил на отладку и совершенно не заметил,
что уже уничтожаю переданный параметр списка в LoadCategoryFromList, что неправильно.
Пардон за беспокойство. Заработало как часы, можно ковыряться дальше. Всем спасибо.
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0441 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.