如何在Clojure中将二进制文件的内容读入字符串?

时间:2012-07-06 19:19:04

标签: clojure

我正在使用Compojure在Clojure中创建一个静态文件服务器,我一直在从文件系统读取图像并通过Compojure路径显示该图像。

很遗憾,

slurp并没有很好地处理二进制数据,我从那以后尝试了100种不同的方法,但这是我最近的失败尝试:

(defn image-output [filepath]
  (try
    (let [contents (apply str (with-open [rdr (io/reader filepath)]
      (into #{} (line-seq rdr))))]
      {
        :status 200
        :headers 
        {
          "Content-Type" "image/jpeg", 
          "Content-Length" "",
          "Cache-Control" "",
          "Expires" ""
        }
        :body contents
      }))
    (catch Exception e {:status 404})))

(defn endpoint_view [params]
  (if (contains? params :bucket)
    (image-output (join "/" [data_path (:bucket params) (:dir params) (:filename params)]))))

(defroutes main-routes
  (GET "/view/:bucket/:dir/:filename" {params :params} (endpoint_view params))
  (route/files "/")
  (route/resources "/s" {:root "./public/s"})
  (route/not-found "Page not found"))

看起来这个当前的尝试遭遇与使用slurp相同的命运,我可以回显内容字符串及其编码字符串,但是当我将内容类型更改为image / jpeg时,它就是一个破碎的图像。

我昨天花了一整天的时间进行谷歌搜索,但是没有一个例子完成了同样的目标,虽然他们帮助我了解了更多关于Java IO的信息,但是他们还不够清楚,无法帮助我到达我需要去的地方,或者产生了我已经得到的相同结果(例如:Best way to read contents of file into a set in Clojure)。

(如果您可以告诉我如何从文件路径获取内容类型以及这是我的下一个问题,那么虚构的奖励积分!)

1 个答案:

答案 0 :(得分:7)

只需让身体成为(io/file filepath) - Ring非常乐意为您提供文件。

编辑奖励积分:您可以使用ring.middleware.file-info/wrap-file-info获取您返回的文件的文件元数据。或者,您可以使用(compojure.route/files "/public")来提供整个目录,这样就可以解决所有这些问题。