Решение проблемы сохранения изображений в базе данных SQL с использованием параметризованных запросов в Delphi

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

При работе с базами данных в Delphi часто возникает необходимость сохранения изображений. Один из способов сделать это – использовать тип данных BLOB для хранения изображений в базе данных. В данной статье мы рассмотрим, как правильно использовать параметризованные запросы для обновления поля типа TBlobField, содержащего изображение, в SQL-запросе.

Проблема

Задача состоит в том, чтобы обновить изображение в таблице базы данных с использованием параметризованного запроса. Пользователь столкнулся с проблемой, пытаясь обновить поле pic в таблице tbl, используя параметризованный запрос. В коде были попытки создать параметр для BLOB-поля и загрузить изображение из файла, но все попытки оказались безуспешными.

Контекст

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

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

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

qry.Parameters.Clear;
qry.Parameters.Add('blobVal');
qry.Parameters.ParamByName('blobVal').LoadFromFile('c:\sample.jpg', ftBlob);
qry.Parameters.Add('idVal');
qry.Parameters.ParamByName('idVal').Value := 1;
qry.SQL.Text := 'update tbl set pic = :blobVal where id = :idVal';
qry.ExecSQL;

Для чтения BLOB обратно из базы данных, используйте следующий код:

qry.SQL.Text := 'select id, pic from tbl where id = 1';
qry.Open;
TBlobField(qry.FieldByName('pic')).SaveToFile('c:\sample_2.jpg');

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

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

qry.Parameters.Clear;
qry.SQL.Text := 'update tbl set pic = :blobVal where id = :idVal';
qry.Parameters.ParamByName('blobVal').LoadFromFile('c:\sample.jpg', ftBlob);
qry.Parameters.ParamByName('idVal').Value := 1;
qry.ExecSQL;

Примеры кода на Object Pascal

Для полноты картины приведем пример кода на Object Pascal, который демонстрирует сохранение и чтение записанного в виде структуры объекта (packed record) в BLOB-тип поля базы данных, а также чтение обратно:

type
  TMyRecord = packed record
    FontName: string[30];
    FontSize: word;
    FontColor: integer;
    FontStyle: word;
    Attachment: string[255];
    URL: string[255];
  end;

procedure TForm1.TestInsert;
var
  Rec1, Rec2 : TMyRecord;
  MS : TMemoryStream;
begin
  FillChar(Rec1, SizeOf(Rec1), #0);
  FillChar(Rec2, SizeOf(Rec2), #0);

  Rec1.FontName := 'AName';
  Rec1.URL := 'AUrl';

  MS := TMemoryStream.Create;
  try
    MS.Write(Rec1, SizeOf(Rec1));
    MS.Seek(0, soFromBeginning);
    qBlobInsert.Parameters[0].Value := 1;
    qBlobInsert.Parameters[1].LoadFromStream(MS, ftBlob);
    qBlobInsert.SQL.Text := scInsert;
    qBlobInsert.ExecSQL;

    // Процесс чтения данных обратно в Rec2 пропущен для краткости
    // ...
  finally
    MS.Free;
  end;
end;

Этот код демонстрирует, как можно работать с BLOB данными как с потоками, что является стандартным подходом в Delphi при работе с бинарными данными.

Заключение

В данной статье мы рассмотрели, как правильно обновлять изображения в базе данных SQL с использованием параметризованных запросов в Delphi. Представленные примеры кода на Object Pascal помогут разработчикам, работающим с компонентами ADOQuery, эффективно решать задачи, связанные с хранением и извлечением бинарных данных из базы данных.

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

Контекст вопроса связан с решением проблемы сохранения изображений в базе данных SQL с использованием параметризованных запросов в среде разработки Delphi.

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

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

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