如何使用Caveman与SXQL将图片保存至PostgreSQL数据库？

核心问题根源 #

你猜的没错，直接用SXQL生成字符串处理二进制数据会出问题——二进制数据包含大量不可打印字符，直接拼入SQL字符串会导致编码混乱，PostgreSQL的bytea类型需要专门的二进制参数绑定，而非字符串拼接。

分步解决 #

1. 确认数据库字段类型 #

首先确保存储图片的字段是bytea类型（不能是text/varchar），建表语句示例：

CREATE TABLE uploaded_pictures (
    id SERIAL PRIMARY KEY,
    image_data bytea NOT NULL,
    image_type VARCHAR(50) -- 可选，记录图片MIME类型，方便后续返回响应
);

2. 正确读取Circular Input Stream #

read-sequence需要循环读取直到流结束，且必须指定元素类型为(unsigned-byte 8)，避免把二进制数据误转为字符：

(defun read-stream-to-byte-array (stream)
  (let* ((buffer (make-array 4096 :element-type '(unsigned-byte 8)))
         (result (make-array 0 :element-type '(unsigned-byte 8)
                              :adjustable t :fill-pointer 0)))
    (loop for bytes-read = (read-sequence buffer stream)
          while (> bytes-read 0)
          do (adjust-array result (+ (fill-pointer result) bytes-read))
             (replace result buffer :start1 (fill-pointer result) :end2 bytes-read)
             (incf (fill-pointer result) bytes-read))
    result))

注意：如果之前调用过caveman2:parse-form之类的函数，流可能已经被消费，要确保request-raw-body是第一个读取流的操作。

3. 使用SXQL参数化查询插入数据 #

SXQL的sxql:param可以将二进制数据绑定为SQL参数，底层驱动（如cl-postgres）会自动处理bytea的编码，避免字符串拼接的问题：

(defun add-picture-to-db (byte-array image-type)
  (sxql:query (:insert-into :uploaded_pictures
                            (:set :image_data (sxql:param byte-array)
                                  :image_type (sxql:param image-type)))
              :connection *your-db-connection*))

调用示例：

(let* ((raw-stream (caveman2:request-raw-body caveman2:*request*))
       (image-bytes (read-stream-to-byte-array raw-stream))
       (image-type (caveman2:request-content-type caveman2:*request*)))
  (add-picture-to-db image-bytes image-type))

4. 从数据库取出并返回HTTP响应 #

取出bytea数据后，设置对应的Content-Type，直接返回字节数组作为响应体：

(defun get-picture-handler (picture-id)
  (let* ((picture-record (sxql:query (:select :image_data :image_type
                                              :from :uploaded_pictures
                                              :where (:= :id picture-id))
                                    :connection *your-db-connection*
                                    :single t)))
    (when picture-record
      (destructuring-bind (image-bytes image-type) picture-record
        (setf (caveman2:response-content-type) image-type)
        (caveman2:send-response :body image-bytes)))))

验证方式 #

1. 上传一张测试图片（如JPG/PNG）到你的接口
2. 访问get-picture-handler对应的URL（比如/pictures/1），用浏览器打开或用curl下载：

   curl -o test.jpg http://your-domain/pictures/1
   

3. 查看下载的图片是否能正常打开，以此验证存储和读取流程是否正确。

内容的提问来源于stack exchange，提问作者zimio