Программа просмотра изображений - Почему она случайным образом дает сбой после создания многопоточности?

Короче говоря, я очень далек от опытного программиста, на самом деле, мои самые сложные программы до сих пор были либо простой строкой ASCII манипулирование, простая математика и поиск / сортировка массивов в Free Pascal или более поздних версиях, Delphi 7 и Java. Это было несколько лет назад, когда я изучал программирование в средней школе (это был простой Паскаль). Позже я стал программистом (познакомился с D7 и Java, а также с C ++), но бросил учебу в программировании по личным причинам, и с тех пор я не написал ни строчки кода.

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

Однако, Я столкнулся с проблемой в текущей версии кода, когда попытался сделать функцию загрузки и отображения изображений поточной. Во-первых, для лучшего понимания я объясню логику своей программы.

Прежде всего, в событии FormCreate главной формы программа ищет поддерживаемые файлы изображений в текущем каталоге (где находится исполняемый файл). Если файлов изображений нет, текущий каталог устанавливается на верхний уровень (со стандартным символом файловой системы Windows "..") и проверяется на наличие изображений. Поддерживаемые файлы изображений определяются расширениями файлов. В любом случае, эта функция проводника сохраняет имя файла найденных изображений и идентификатор типа файла (который является байтом) в динамическом массиве. Затем, используя этот массив в качестве ссылки, первый поддерживаемый файл изображения загружается правильной библиотекой и отображается в форме. В графическом пользовательском интерфейсе есть кнопки и поле со списком для переключения между изображениями, с переменными настройки события OnClick или OnSelect (поле со списком) каждого элемента управления для предположительно текущего файла изображения и вызова функции загрузчика изображений и средства отображения, которые используют эталонный массив.

Проблема в том, что что некоторые изображения настолько огромны, что загрузка занимает заметное время, поэтому графический интерфейс не может ответить, пока изображение не будет полностью загружено и отображено. Я попытался сделать эту программу многопоточной, инициализируя каждую функцию загрузчика изображений как поток. Хотя теперь графический интерфейс стал более отзывчивым, в программе, безусловно, есть две новые ошибки.

Во-первых, программа иногда случайным образом дает сбой при смене изображений с появлением сообщений, относящихся либо к « Ошибка JPEG # 58 ] "(предположительно означает «недопустимая файловая структура» во встроенной jpeg-библиотеке Delphi), исключение « EAccessViolation» , исключение « EOSError» (включая « системная ошибка, код 5 ] »),« неизвестная программная исключительная ситуация »,« Ошибка выполнения 216 », а также сообщения об ошибках о ячейках памяти и неудачных операциях чтения. Перед использованием потоков ни одно из этих сообщений об ошибках не появлялось, но я определенно хочу (и должен) использовать потоки в программе.

Другая, незначительная ошибка заключается в том, что при быстром нажатии кнопок интерфейса кажется, что вся загрузка и отображение происходит, хотя и с задержкой, а затем быстро. Я действительно понятия не имею, как «убить» поток и запустить его «снова», чтобы загрузить текущий файл вместо устаревшего, который он пытался загрузить несколько сотен миллисекунд назад.

Я запускаю поток следующим образом:

LoaderThread := CreateThread(nil, 0, Addr(LoadPicture), nil, 0, LoaderThreadID);
CloseHandle(LoaderThread);

Я использую это два раза в событии FormCreate основной формы (хотя только одно из них выполняется при любом запуске) и в событии OnClick или OnSelect элементов управления GUI, чтобы облегчить желаемую функцию элемента управления. (например, перейти к последнему изображению.)

Есть предложения? Заранее спасибо! :)

ОБНОВЛЕНИЕ: Вот некоторые (ну, почти все) моего исходного кода:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  MainForm.DoubleBuffered := true;
  MainJPEG := TJPEGImage.Create;
  MainJPEG.ProgressiveDisplay := true;
  MainJPEG.Smoothing := true;
  MainJPEG.Performance := jpBestQuality;
  MainPNG := TPNGObject.Create;
  MainGIF := TGIFImage.Create;
  AssignFile(Log, '_NyanLog.txt');
  CurrentDir := GetCurrentDir;
  ExploreCurrentDir;
  if CurrentDirHasImages = false then
  begin
    SetCurrentDir('..');
    CurrentDir := GetCurrentDir;
    ExploreCurrentDir;
  end;
  if CurrentDirHasImages = true then
    begin
      CurrentFilename := ImagesOfCurrentDir[CurrentPos].Filename;
      CurrentFiletype := ImagesOfCurrentDir[CurrentPos].Filetype;
      LoaderThread := BeginThread(nil, 0, Addr(LoadImage), nil, 0, LoaderThreadID);
      CloseHandle(LoaderThread);
      if Length(ImagesOfCurrentDir) > 1 then
      begin
        MainForm.NextButton.Enabled := true;
        MainForm.EndButton.Enabled := true;
        MainForm.SlideshowButton.Enabled := true;
        MainForm.SlideshowIntervalUpDown.Enabled := true;
      end;
      UpdateTitleBar;
    end
  else UpdateTitleBar;
end;

procedure ExploreCurrentDir;
var
  Over: boolean;
begin
  CurrentPos := 0;
  Over := false;
  ReWrite(Log);
  Write(Log, 'blablabla');
  if FindFirst(CurrentDir+'\*.*', faAnyFile-faDirectory, Find) = 0 then
    begin
      CurrentFilename := Find.Name;
      DetermineFiletype;
      if CurrentFiletype <> UNSUPPORTED then
      begin
        SetLength(ImagesOfCurrentDir, CurrentPos+1);
        ImagesOfCurrentDir[CurrentPos].Filename := CurrentFilename;
        ImagesOfCurrentDir[CurrentPos].Filetype := CurrentFiletype;
        MainForm.ImagelistComboBox.AddItem(CurrentFilename, nil);
        Write(Log, 'blablabla');
        CurrentPos := Succ(CurrentPos);
      end;
      while Over = false do
      begin
        if FindNext(Find) = 0 then
          begin
            CurrentFilename := Find.Name;
            DetermineFiletype;
            if CurrentFiletype <> UNSUPPORTED then
            begin
              SetLength(ImagesOfCurrentDir, CurrentPos+1);
              ImagesOfCurrentDir[CurrentPos].Filename := CurrentFilename;
              ImagesOfCurrentDir[CurrentPos].Filetype := CurrentFiletype;
              MainForm.ImagelistComboBox.AddItem(CurrentFilename, nil);
              Write(Log, 'blablabla');
              CurrentPos := Succ(CurrentPos);
            end;
          end
        else
          begin
            FindClose(Find);
            Over := true;
          end;
      end;
      CurrentDirImageCount := Length(ImagesOfCurrentDir);
      CurrentDirHasImages := true;
      Write(Log, 'blablabla');
    end;
  if CurrentDirHasImages = false then Write(Log, 'blablabla');
  CloseFile(Log);
  CurrentPos := 0;
end;

procedure LoadImage; //procedure #1 which should be used in a thread
begin
  if CurrentFiletype = BMP then
    begin
      MainForm.MainImage.Picture := nil;
      MainForm.MainImage.Picture.LoadFromFile(CurrentFilename)
    end
  else
    if CurrentFiletype = JPEG then
      begin
        MainForm.MainImage.Picture := nil;
        MainJPEG.LoadFromFile(CurrentFilename);
        MainForm.MainImage.Picture.Assign(MainJPEG);
      end
    else
      if CurrentFiletype = PNG then
        begin
          MainForm.MainImage.Picture := nil;
          MainPNG.LoadFromFile(CurrentFilename);
          MainForm.MainImage.Picture.Assign(MainPNG);
        end
      else
        if CurrentFiletype = GIF then
          begin
            MainForm.MainImage.Picture := nil;
            MainGIF.LoadFromFile(CurrentFilename);
            MainForm.MainImage.Picture.Assign(MainGIF);
          end;
end;

procedure NextImage; //the "NextButton" button from the GUI calls this
begin
  if CurrentPos < Length(ImagesOfCurrentDir)-1 then
  begin
    CurrentPos := Succ(CurrentPos);
    CurrentFilename := ImagesOfCurrentDir[CurrentPos].Filename;
    CurrentFiletype := ImagesOfCurrentDir[CurrentPos].Filetype;
    UpdateTitleBar;
    LoaderThread := BeginThread(nil, 0, Addr(LoadImage), nil, 0, LoaderThreadID);
    CloseHandle(LoaderThread);
    while MainImageIsEmpty = true do
    begin
      if CurrentPos < Length(ImagesOfCurrentDir)-1 then
      begin
        CurrentPos := Succ(CurrentPos);
        CurrentFilename := ImagesOfCurrentDir[CurrentPos].Filename;
        CurrentFiletype := ImagesOfCurrentDir[CurrentPos].Filetype;
        UpdateTitleBar;
        LoaderThread := BeginThread(nil, 0, Addr(LoadImage), nil, 0, LoaderThreadID);
        CloseHandle(LoaderThread);
      end;
      if CurrentPos = CurrentDirImageCount-1 then Break;
    end;
  end;
  if CurrentPos = CurrentDirImageCount-1 then
  begin
    MainForm.NextButton.Enabled := false;
    MainForm.EndButton.Enabled := false;
    MainForm.SlideshowButton.Enabled := false;
    MainForm.SlideshowIntervalUpDown.Enabled := false;
  end;
  MainForm.PrevButton.Enabled := true;
  MainForm.StartButton.Enabled := true;
end;

procedure PrevImage; //called by "PrevButton"
begin
  //some code, calls LoadImage
  //almost the same logic as above for a backward step among the images
end;

procedure FirstImage; //called by "StartButton"
begin
  //some code, calls LoadImage
end;

procedure LastImage; //called by "EndButton"
begin
  //some code, calls LoadImage
end;

procedure Slideshow; //procedure #2 which should be used in a thread
begin
  while SlideshowOn = true do
  begin
    SlideshowInterval := MainForm.SlideshowIntervalUpDown.Position*1000;
    Sleep(SlideshowInterval);
    NextImage; //NextImage calls LoadImage which should be a thread
    if CurrentPos = CurrentDirImageCount-1 then SlideshowOn := false;
  end;
end;

function MainImageIsEmpty;
begin
  if MainForm.MainImage.Picture = nil then MainImageIsEmpty := true
  else MainImageIsEmpty := false;
end;

procedure TMainForm.NextButtonClick(Sender: TObject);
begin
  NextImage;
end;

procedure TMainForm.PrevButtonClick(Sender: TObject);
begin
  PrevImage;
end;

procedure TMainForm.StartButtonClick(Sender: TObject);
begin
  FirstImage;
end;

procedure TMainForm.EndButtonClick(Sender: TObject);
begin
  LastImage;
end;

procedure TMainForm.SlideshowButtonClick(Sender: TObject);
begin;
  if SlideshowOn = false then
    begin
      SlideshowOn := true;
      SlideshowThread := BeginThread(nil, 0, Addr(Slideshow), nil, 0, SlideshowThreadID);
      SlideshowButton.Caption := '||';
      SlideshowButton.Hint := 'DIAVETÍTÉS LEÁLLÍTÁSA';
    end
  else
    begin
      SlideshowOn := false;
      CloseHandle(SlideshowThread);
      SlideshowButton.Caption := '|>';
      SlideshowButton.Hint := 'DIAVETÍTÉS INDÍTÁSA';
    end;
end;