3 Sep
2008
3 Sep
'08
4:34 p.m.
On Wed, 3 Sep 2008 10:10:32 -0400, "Andrei Stebakov" lispercat@gmail.com wrote:
My image handlers look approximately like:
(defun image-handler () (no-cache) (setf (hunchentoot:content-type) "image/jpeg") (let ((stream (send-headers))) (with-image (new 100 100) (do-something-with-img new) (write-jpeg-to-stream stream :image new))))
You want to write binary data to this stream. See the sentence about "faithful output" here:
http://weitz.de/cl-gd/#write-jpeg-to-stream
Edi.