从数据库反序列化图像

Question

我正在尝试将图像作为BLOB存储到数据库中。 所以我需要在从数据库中检索回来后对其进行序列化和反序列化。 在没有 DB 的情况下测试序列化/反序列化步骤工作正常，但反序列化来自 DB 的数据则不行。 我尝试了很多不同的方式，比如所示的 3 种方式，以及as.data.frame等等。 MariaDB 和 SQLite 也会出现问题。 DB 中的数据类型是BLOB SQlite 和LONGBLOB ， MEDIUMBLOB MariaDB。所以我认为这与使用的数据库没有任何关系，只要类型是BLOB 。 感谢您的帮助。

# 1. Loading image + serializing it
pb <- readBin(paste0("S:\\File.png"), what="raw", size = NA_integer_, endian = .Platform$endian, n=1e6)
pbSer <- serialize(pb, NULL)

# 2. Storing it in DB (Code is for MariaDB)
query <- paste0("REPLACE INTO Images (Name, Image) VALUES ", "(\"", "pbSer", "\", \"", list(pbSer), "\")")
dbExecute(con, query)

# 3. Retrieving data
rows <- dbGetQuery(con, paste0("SELECT * FROM Images WHERE Name = \"pbSer\""))

# 4. Unlisting and deserializing
pb2Ser <- unlist(rows$Image)
pb2 <- unserialize(pb2Ser, NULL) # -> Error in unserialize(pb2Ser, NULL) : unknown input format

# Two more versions I've tried
pb2Ser <- as.raw(unlist(rows$Image))
pb2 <- unserialize(pb2Ser, NULL) # -> Error in unserialize(pb2Ser, NULL) : unknown input format

pb2Ser = as.raw(as.integer(paste0('0x', pb2Ser)))
pb2 <- unserialize(pb2Ser, NULL) # -> Error in unserialize(pb2Ser, NULL) : unknown input format

Answer 1

这对我有用（MariaDB）：

library(DBI)

con = dbConnect(
  RMariaDB::MariaDB(), dbname="test", username = "root")

# CREATE TABLE Images (Name VARCHAR(256) not null primary key, Image LONGBLOB);
  
pb <- readBin(paste0("C:\\path\\to\\setosa.png"), 
              what="raw", size = NA_integer_, endian = .Platform$endian, n=1e6)

pbSer <- serialize(pb, NULL)

# 2. Storing it in DB (Code is for MariaDB)
query <- paste0("REPLACE INTO Images (Name, Image) VALUES (?, ?)")
dbExecute(con, query, params = list("pbSer", list(pbSer)))

# 3. Retrieving data
rows <- dbGetQuery(con, paste0("SELECT * FROM Images WHERE Name = \"pbSer\""))

# 4. Unlisting and deserializing
pb2Ser <- unlist(rows$Image)

pb2 <- unserialize(pb2Ser, NULL) # OK

writeBin(pb2, paste0("C:\\path\\to\\setosa2.png"),
               endian = .Platform$endian)

# files are the same.