Работа с BLOB-параметрами в хранимой процедуре TADOStoredProc в Delphi

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

При работе с базами данных в среде Delphi иногда возникает необходимость передачи больших объемов данных, известных как BLOB (Binary Large OBject), в параметры хранимой процедуры. Это может быть связано с загрузкой файлов, изображений или других бинарных данных. В данной статье мы рассмотрим, как правильно работать с BLOB-параметрами в TADOStoredProc.

Проблема

Разработчик столкнулся с проблемой передачи BLOB-параметра в хранимую процедуру spAddToSolve, которая принимает параметр @SolveData типа VarBinary(max). Используя компонент TADOStoredProc, разработчик не смог корректно передать данные из файла в параметр процедуры.

Решение

Для передачи BLOB-параметра в хранимую процедуру через TADOStoredProc необходимо использовать метод CreateBlobStream. В примере кода ниже показано, как правильно инициализировать и заполнить BLOB-параметр:

procedure AddItem(dbCon : TADOConnection; sourcePath : String);
var
  addProc    : TADOStoredProc;
  field      : TField;
  dataStream : TFileStream;
  blobStream : TStream;
begin
  if FileExists(sourcePath) then
  begin
    dataStream := TFileStream.Create(sourcePath, fmOpenRead or fmShareDenyNone);
    try
      addProc := TADOStoredProc.Create(nil);
      addProc.Connection := dbCon;
      addProc.ProcedureName := 'spAddToSolve';
      field := addProc.FieldByName('@SolveData');
      blobStream := addProc.CreateBlobStream(field, bmWrite);
      blobStream.CopyFrom(dataStream, dataStream.Size);
      addProc.Open;
    finally
      addProc.FreeBlobStream(blobStream);
      dataStream.Free;
    end;
  end;
end;

Важно отметить, что после использования CreateBlobStream необходимо вызвать FreeBlobStream, чтобы корректно освободить ресурсы.

Альтернативный подход

В альтернативном подходе разработчик пытается напрямую присвоить поток данных параметру, но сталкивается с несовместимостью типов:

param.Value := dataStream; // Types are not compatible

Это неверный способ, так как TParameter.Value не предназначен для приема потоков данных.

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

Разработчик на правильном пути, если он использует метод LoadFromStream для загрузки данных из потока в параметр:

param.DataType := ftBlob;
param.LoadFromStream(dataStream);

Комментарии и дополнительные проблемы

Разработчик сообщает, что при вызове addProc.Open возникает исключение "Operation aborted". Это может быть связано с различными проблемами, включая неправильное закрытие соединения или проблемы с транзакциями. Важно убедиться, что соединение с базой данных корректно закрывается и нет активных транзакций, которые могут блокировать операцию.

Заключение

В данной статье мы рассмотрели, как работать с BLOB-параметрами в TADOStoredProc. Используя CreateBlobStream и LoadFromStream, можно корректно передать бинарные данные в параметры хранимой процедуры. При возникновении ошибок важно внимательно анализировать контекст выполнения кода и состояние соединения с базой данных.

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

В статье рассматривается проблема и решение по работе с BLOB-параметрами в хранимой процедуре TADOStoredProc в Delphi, используя метод CreateBlobStream для передачи бинарных данных.

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

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

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