在Clojure的Ring Web应用程序中生成并流式传输zip文件

我有一个需要的Ring处理程序：

>压缩几个文件
>将Zip流式传输到客户端.

现在我有点工作,但只有第一个压缩条目流式传输,然后停止/停止.我觉得它与刷新/流媒体有关,这是错误的.

这是我的(compojurE)处理程序：

(GET "/zip" {:as request}
            :query-params [order-id   :- s/Any]
            (stream-lessons-zip (read-String order-id) (:db request) (:auth-user request)))

这是stream-lessons-zip函数：

(defn stream-lessons-zip
  []
  (let [lessons ...];... not shown

  {:status 200
   :headers {"Content-Type" "application/zip,application/octet-stream"
             "Content-Disposition" (str "attachment; filename=\"files.zip\"")
   :body (futil/zip-lessons lessons)}))

我使用管道输入流来进行流式处理：

(defn zip-lessons
 "Returns an inputstream (piped-input-stream) to be used directly in Ring http responses"
[lessons]
(let [paths (map #(SELEct-keys % [:file_path :file_name]) lessons)]
(ring-io/piped-input-stream
  (fn [output-stream]
    ; build a zip-output-stream from a normal output-stream
    (with-open [zip-output-stream (ZipOutputStream. output-stream)]
      (doseq [{:keys [file_path file_name] :as p} paths]
        (let [f (cio/file file_path)]
          (.putNextEntry zip-output-stream (ZipEntry. file_name)) 
          (cio/copy f zip-output-stream)
          (.closeEntry zip-output-stream))))))))

所以我确认’课程’向量包含4个条目,但zip文件只@R_495_11262@个条目.此外,Chrome似乎并未“完成”下载,即.它认为它仍在下载.

我怎样才能解决这个问题？