在没有临时磁盘文件的情况下在clojure中调整图像大小

时间:2013-05-09 03:12:37

标签: image clojure resize

我是一个新手(并且我不知道任何Java)。

我的目标是从网址中获取图片并制作缩略图。到目前为止我已经有了这个:

(ns myapp.image
  (:require [clojure.java.io :as io])
  (:import  [javax.imageio.ImageIO]
            [java.awt.image.BufferedImage]))

(defn get-remote-image
  [url file]
  (with-open [in (io/input-stream url) out (io/output-stream file)]
    (io/copy in out)))

(defn resize
  "Resize a file.  Pass in a width and height."
  [file-in file-out width height]
  (let [img     (javax.imageio.ImageIO/read (io/file file-in))
        imgtype (java.awt.image.BufferedImage/TYPE_INT_ARGB)
        simg    (java.awt.image.BufferedImage. width height imgtype)
        g       (.createGraphics simg)]
    (.drawImage g img 0 0 width height nil)
    (.dispose g)
    (javax.imageio.ImageIO/write simg "png" (io/file file-out))))

现在它从url抓取图像并将其写入磁盘,缓冲区写入缓冲区。然后它从磁盘读取并在内存中调整图像大小,再次将其写入新文件。最后,我可以删除第一个副本。

我想在没有临时磁盘写入的情况下一次完成整个操作。我并不特别介意将整个图像记忆在内存中...出于我的目的,它们通常都是小图像。

我不明白如何将数据从io流传递到java.awt.image.BufferedImage对象。

2 个答案:

答案 0 :(得分:5)

我刚刚创建了一个你可能会觉得有用的新图片Imagez:它有一个scale-image函数,可以在缩放图像方面完全符合你的要求:

(use 'mikera.image.core)

;; scale an image into a thumbnail of a given size
(def thumbnail (scale-image some-buffered-image new-width new-height))

将图像处理操作与IO功能分开可能是个好主意,这样如果需要(例如测试),就可以在内存中处理所有文件系统依赖项。

答案 1 :(得分:2)

使用ImageIO的{​​{3}}方法,该方法将URL作为参数并返回BufferedImage对象。