: mime-type>clsid ( mime-type -- clsid )
image-encoders [ MimeType>> alien>native-string = ] with find nip Clsid>> ;
-: startup-gdi+ ( -- )
- start-gdi+ &stop-gdi+ drop ;
-
: write-image-to-stream ( image stream extension -- )
[ image>gdi+-bitmap ]
[ stream>IStream &com-release ]
PRIVATE>
M: gdi+-image stream>image*
- drop startup-gdi+
+ drop
stream>gdi+-bitmap
gdi+-bitmap>data
data>image ;
M: gdi+-image image>stream
- drop startup-gdi+ output-stream get swap write-image-to-stream ;
+ drop output-stream get swap write-image-to-stream ;