Saving Pictures to JPG Files from VB **RESOLVED**

[MoMad]

There was a dll and a sample project of this at the vbaccelerator website but now the site is gone!!!!

Does anybody know where i can get those samples??


Fomr this site:
http://www.vbaccelerator.com/codelib/gfx/vbjpeg.htm
Download the SaveJPEG Project (including ijl11.dll) (150kb)


Please help,
this is urgent!!

Thanks,
MoMad

[Sastraxi]

Go to intel's site and search for their DLL. Then, you'll just have to figure it out yourself, I'm afraid. Or, use google's cached version.

[MoMad]

I did man, but the link to the actual code is broken!!!!!!! Their whole website is been shut down for a while now. I wonder what happened to them?

[MoMad]

The JPEG DLL is no longer being offered by Intell, but i was able to do a search for it on google and i found it!

But now i will need help putting the pieces together... I need to take a bitmap (a byte array of the actual bitmap in memory), and convert it into a jpeg (an actual byte array of the jpeg in memory). I just want to work with memory pointers.

That VBAccelerator code was perfecrt, but I wonder what happened to them? hmmmmmm...

[Gaming_World]

Heres some code to save as a JPG I found a while ago:

[MoMad]

Thanks man,

you just saved me a whole load of work. I was about to write a JPEG compress/decompress dll in VC++. If your file works out, then i wont need to.

Thanks,
MoMad

[MoMad]

Actually, I was looking for code to put the jpeg data into a byte array. I have the bitmap data stored into a byte array already but its too big, the same picture could be much smaller if it was a jpeg.

To make a long store short, I just need the entire jpeg file stored into a byte array like:

Dim JPeg() As Byte
ReDim JPeg(UBound(BMP)) As Byte
 
SaveToPtr ByVal VarPtr (Jpeg), ByVal VarPtr (BMP)

Or something like that, i know i have seen it on the vbaccelarator website and downloaded it, but i cant find it anywhere on my hard drive. Any help appreciated.

Thanks,
MoMad

[MoMad]

I did it, and here's the code:

Thanks for the zip file man, i would've typed everything up and spent loads of time figuring out how vb translates vc objects and viseversa. Anyways, the sample worked greatly except i realized the bitmap has to be 24bit for the JPeg thing to work, and some other weird things had to be done.

Here's the function:

Public Function SaveToJPegPtr(DestJPegPtr() As Byte, _
                              SrcBitmapData() As Byte, _
                              ByVal Width As Long, _
                              ByVal Height As Long, _
                              Optional ByVal Quality As Long = 75) As Long
 
' DestJPegPtr -- buffer to store the jpeg data (Dim JPegBuffer() As Byte)
' SrcBitmapData -- buffer that holds bitmap data (from GetDIBits)
' Width -- width of the bitmap
' Height -- height of the bitmap
' Quality -- quality of the JPEG (75 is default)