Исправление ошибки освобождения объектов в Delphi: правильный порядок в блоке `finally`

Delphi , Базы данных , BLOB поля

Ошибка освобождения объектов в Delphi: правильный порядок в блоке finally

Вопрос, поднятый пользователем TIAMark, касается ошибки, возникающей при работе с полями типа BLOB в Delphi. Проблема заключается в том, что процедура обновления записи работает, но затем программа крашится. Ошибка связана с неправильным порядком освобождения объектов в блоке finally.

Описание проблемы

Пользователь TIAMark реализовал функционал для чтения и записи полей типа BLOB из файлов и обратно. В коде для обновления записи используется процедура UpdateRecord, которая работает, но приводит к сбою программы. Аналогичный код для создания новой записи в функции NewRecord работает без сбоев.

Анализ кода

В процедуре UpdateRecord и функции NewRecord используется блок finally для освобождения ресурсов. В UpdateRecord сначала освобождается объект qry, затем fs и blob, в то время как в NewRecord порядок освобождения объектов отличается: сначала освобождается blob, затем fs и qry.

Подтвержденный ответ

Проблема заключается в неправильном порядке освобождения объектов. Объект blob (BLOB-стрим) связан с объектом qry (набором данных) и должен быть освобожден до освобождения qry. Это связано с тем, что BLOB-стрим создается на основе поля набора данных, и если освободить набор данных раньше, то BLOB-стрим не сможет корректно освободиться, так как его ресурсы еще используются набором данных.

Исправленный код

procedure TBlobFunction.UpdateRecord(id: int64; const filename: string);
var
  qry: TDataset;
  blob: TStream;
  fs: TFileStream;
begin
  HourGlass(true);
  qry := DM.CreateQry('SELECT ' + join([blobfield, idfield, filenamefield], ', ') +#10' FROM ' + tablename +#10'WHERE ' + idfield + ' = ' + id.ToString);
  blob := nil;
  fs := nil;
  try
    qry.Edit;
    qry.FieldByName(filenamefield).AsString := fileName;
    blob := qry.CreateBlobStream(qry.FieldByName(blobfield), bmWrite);
    try
      blob.Seek(0, soFromBeginning);
      fs := TFileStream.Create(fileName, fmOpenRead or fmShareDenyWrite);
      blob.CopyFrom(fs, fs.Size);
    finally
      fs.Free;
    end;
    qry.Post;
  finally
    blob.Free; // Освобождение BLOB-стрима перед набором данных
    qry.Free;
  end;
  HourGlass(false);
end;

Общие рекомендации

При освобождении объектов в блоке finally следует придерживаться правила "последний пришел - первый ушел", то есть освобождать объекты в обратном порядке их создания. Это предотвратит возможные ошибки, связанные с освобождением ресурсов, которые еще используются другими объектами.

Следуя этим рекомендациям, можно избежать подобных ошибок при работе с BLOB-полями и другими ресурсоемкими объектами в Delphi.

Создано по материалам из источника по ссылке.

Пользователь столкнулся с ошибкой освобождения объектов в блоке `finally` при работе с полями типа BLOB в Delphi, связанной с неправильным порядком освобождения ресурсов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: BLOB поля ::