如何把PICTURE.IMAGE转为JPEG文件

Question

如何把PICTURE.IMAGE转为JPEG文件？
其中picture不可见，是用于后台做图的。
希望给出代码。ijl.dll试过，但是无法把image类型转换为cDIBSection谢谢。

Answer 1

picture不是有hdc的么，有hdc不就可以干任何事情了么？

Answer 2

你可以在http://vbaccelerator.com/codelib/gfx/vbjpeg.htm下载一个免费的JPEG控件，该控件提供了SaveJPG函数可以用来保存图像为.jpg格式。如果要转换.bmp文件，可以先将其读入一个Picture控件，再使用SaveJPG函数。如： 
     Dim c As New cDibSection 
     
     picThis.LoadPicture "c:\my\my.bmp" 
     ' 转换Picture对象到DIBSection: 
     c.CreateFromPicture picThis.Picture 
     ' Save it: 
     SaveJPG c, sFileName 

Answer 3

用savepicture语句如：savepicture picture1.image,"c:\kk.jpg"

Answer 4

以上各位的主意不行。savepicture picture1.image,"c:\kk.jpg"
是假的JPG，实际还是BMP的。从文件大小可以看出。
saveJPG就是IJL的函数，我要把picThis.image变为JPG而不是picThis.picture。因为这个picture控件是不可见的。而且还要在上面做些图像处理，所以只能使用image。如何把image变为DIBSection？picture.image是一个BMP图像与DIBSection的DIB应该很相似，就没有一个办法把两个互相转换吗？

Answer 5

我有一个这样的控件，可以将BMP转换成JPEG
方法是 
先把BMP保存，然后再使用这个控件将BMP转化为JPEG文件保存，如果你要的话可以发信箱
[email protected]

Answer 6

http://www.fantasiasoft.net/Source/
有利用ijl11.dll实现jpeg读取/保存的代码

Answer 7

总算找到个偷懒的办法解决问题了。
在IJL1.5的VB代码中的CDIBSEC.CLS中，参照LOAD函数再重新写一个新的函数，参数为一个hbitmap的句柄。也不知道违反不违反版权，^_^。先放几天再结贴。

Answer 8

我做了一个picturebox控件可以实现转换
在我主页的首页有下载连接
http://www.blanksoft.com