Solved

Saving BMP to Jpeg format in VB 6

Posted on 2001-07-27
11
493 Views
Last Modified: 2013-11-19
Is there any source-code for saving .bmp to .jpeg files.
I would like it if somebody can point me to a source that doesn't actually require DLL's or Classes. If not, could someone explain to me how to do this. The sources i've found on the net only contain links or require DLL's, witch is a hassle.

VB saves files as .JPG but the size is too big (+1.1M.)
This is for a screen capture at 800*600 res. & 16 Bit Colours. I know VB uses your current settings to save the pic, but i can't run the program at 256 Colours.

If no one knows of any source code or sites that can help me in this, I would appreciate it if there is a link to a compression utility/coding/app that i can use/find.

Much credit will be given and more if available.

Thanx :)!
0
Comment
Question by:Kosie2K
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
  • 2
  • +4
11 Comments
 
LVL 38

Expert Comment

by:PaulHews
ID: 6326933
I've never seen this done in VB, the only open source code I've seen for Jpeg is the Independent JPEG Group's work which is in C.

http://www.ijg.org/
0
 
LVL 2

Expert Comment

by:dwalsarie
ID: 6326937
If you would not want to use DLL's or Classes,
the JPEG compression would get really slow, and
you would have a lot of code which is really difficult.

I used this approach: the free Intel JPEG Library
A complete demo and tutorial can be found at
http://www.vbaccelerator.com/codelib/gfx/vbjpeg.htm
0
 
LVL 1

Expert Comment

by:darthg8r
ID: 6326940
I'd check planet source code.  They are great resource for things like that.  
0
Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

 
LVL 1

Expert Comment

by:darthg8r
ID: 6326945
I guess I could give you the URL couldn't I.  DUH.  http://www.planet-source-code.com
0
 
LVL 38

Expert Comment

by:PaulHews
ID: 6326954
www.smalleranimals.com offers an excellent image processing DLL (ImgSource) that is relatively easy to use with VB.  It costs around $25.

http://www.vbaccelerator.com/codelib/gfx/vbjpeg.htm has code and links to a freeware DLL that can be used to save to JPG.  (This is probably the code you are talking about, but it is probably your best solution for free, unless you wish to translate IJG's work to VB--not an easy task!)
0
 
LVL 28

Expert Comment

by:AzraSound
ID: 6327220
it seems someone sent me pure VB code to save as JPG a while back, but i wont know until i get home.  if i remember correctly, it was some long, ugly code, and most surely, performed much slower than its C equivalent.
0
 
LVL 8

Accepted Solution

by:
glass_cookie earned 75 total points
ID: 6333083
Hi!

Here's a file over the net for you:

Download...
http://www.planetsourcecode.com/upload/ftp/CODE_UPLOAD6309612000.zip

Description: This Code is for Converting a Windows Bitmap to a Jpeg file. All the code is there for you to do what you like Also the Code for the DLL file I must Tell you That it has been wrote in Delphi 4 if you have any problums with the dll then let me now.

AND

Download...
http://www.planetsourcecode.com/upload/ftp/CODE_UPLOAD58565172000.zip

Description: I wrote a little dll. You can convert a bitmap to a jpeg image (with Compress quality) or a jpeg to bitmap image. You can also capture the desktop in both formats (if You are using more then 256 colors).

That's it!

glass cookie : )
0
 

Author Comment

by:Kosie2K
ID: 6333617
To: glass cookie.

your dll works sort of but i need a more descriptive explanation of all it's functions.. I have read the Txt Document but am still a little confused... Also the first link you provided gave me an DLL but REGSVR32 can't register it.

is there any e-mail address where i can contact you?

If need be send it to Kosie2k@yahoo.com

Thanx! :)
0
 
LVL 43

Expert Comment

by:TimCottee
ID: 6333628
Kosie2K, the reason regsvr32 doesn't work is that the dll is a standard dll not an activex dll. Only activex dlls need to be registered, a standard dll is accessed in a different way: Private Declare Function BmpToJpeg Lib "JPeg32.dll" (ByVal BmpFilename As String, ByVal JpegFilename As String, ByVal Quality As Integer) As Integer from the jpeg32 activex control.
0
 

Author Comment

by:Kosie2K
ID: 6333650
Thanx a lot! :)

It does work but i have to play with it still to get it under control....

One other question... Is this Open Source or not?
0
 
LVL 8

Expert Comment

by:glass_cookie
ID: 6333724
Sorry... it isn't my dll - It's written by someone : |
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Learn the basics of inputting and editing your text components in Prezi. We will cover how to set styles, position, and group your text components. In your Prezi editor, click anywhere on the canvas to add text: A flashing cursor informs you that yo…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses
Course of the Month5 days, 5 hours left to enroll

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question