Исправление ошибок при чтении изображений из BLOB в MySQL с использованием Delphi

Delphi , Базы данных , SQL

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

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

В проекте используется компонент mysql.pas для работы с базой данных MySQL. Структура таблицы CarsTbl включает поля ID, CarName и Car_Img типа LONGBLOB. Изображения автомобилей сохраняются в этой таблице вместе с их именами. Процедура сохранения данных работает корректно.

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

Анализ кода

procedure GetCarImage(const MyCarName:String;TrgStream:TMemoryStream);
var
  query_string: String;
  rCount: Integer;
  mySQL_Res: PMYSQL_RES;
  LibH: PMYSQL;
  Row: PMYSQL_ROW;
  iLen: PMYSQL_LENGTHS;
begin
  // ...
  TrgStream.WriteBuffer(Row^[1], iLen[1]);
  // ...
end;

В коде процедуры GetCarImage используется цикл Repeat для обработки всех строк результата запроса. Однако, если в таблице есть несколько записей с одинаковым именем, это приведет к записи всех данных изображения в один поток, что сделает файл изображения некорректным.

Подтвержденное решение

Для корректной работы необходимо убрать цикл Repeat и обработать первую строку результата запроса, как показано в обновленной версии процедуры GetCarImage:

procedure GetCarImage(const MyCarName:String;TrgStream:TMemoryStream);
begin
  // ...
  Row := mysql_fetch_row(mySQL_Res);
  iLen := mysql_fetch_lengths(mySQL_Res);
  if Row <> nil then begin
    TrgStream.position := 0;
    TrgStream.WriteBuffer(Row^[1]^, iLen[1]);
    // Использование ^ позволяет избежать записи дополнительных символов
  end;
  // ...
end;

Также важно убедиться, что поток TrgStream создается и инициализируется правильно перед использованием.

Альтернативное решение

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

var
  Stream: TStream;
begin
  Stream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('Car_Img'), bmRead);
  Stream.Position := 0;
  // Загрузка изображения из потока в компонент TImage
  Image1.Picture.LoadFromStream(Stream);
  Stream.Free;
end;

Заключение

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

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

Проблема связана с некорректным чтением данных из полей типа BLOB в базе данных MySQL при использовании языка программирования Delphi, что приводит к ошибкам в формате файлов, например, к поврежденным заголовкам изображений.

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

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

:: Главная :: SQL ::