[cl-gd-devel] Image to array of bytes

[Andrei Stebakov]

Instead of saving an image into a file using write-image-to-file I was
trying to provide a hunchentoot handler which outputs an array of bytes
(just like in the hunchentoot test.lisp image-ram-page example). For this I
thought write-jpeg-to-stream would be the best candidate so I did following:

  (let ((s (make-string-output-stream :element-type '(unsigned-byte 8))))
        (write-jpeg-to-stream s :image bg-image)
        (let ((image-data (make-array (image-size bg-image) :element-type
'(unsigned-byte 8))))
          (read-sequence image-data s)
          image-data)))))))

For which the SBCL complains:
#<SB-IMPL::STRING-OUTPUT-STREAM {CE6D171}> is not a binary output stream.

I am wondering if I am doing the right thing and choosing the right function
for the task. I also tried to create a stream with
flexi-stream:make-in-memory-output-stream
without any success.

Thank you,
Andrew
**
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-gd-devel/attachments/20070530/63df5895/attachment.html>