Anyone know or has a function who convert png/gif to jpg/tiff
Need VB6 code help which can a png or gif file to jpg or tiff.
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
If you're willing to use a third-party (free!) package and make a command line call from your VB6 code, GraphicsMagick can do it. Here are two EE articles that show where/how to download it, as well as some sample calls:
Create a PDF file with Contact Sheets (montage of thumbnails) for all JPG files in a folder and each of its subfolders using an automated, batch method
Create an image (BMP, GIF, JPG, PNG, TIF, etc.) from a multi-page PDF
In your case, you'll use the convert operation and the call will be something like this:
from PNG to JPG:
gm convert input.png output.jpg
from GIF to TIFF:
gm convert input.gif output.tif
There are, of course, many options/parameters that you may want to use. Regards, Joe
Create a PDF file with Contact Sheets (montage of thumbnails) for all JPG files in a folder and each of its subfolders using an automated, batch method
Create an image (BMP, GIF, JPG, PNG, TIF, etc.) from a multi-page PDF
In your case, you'll use the convert operation and the call will be something like this:
from PNG to JPG:
gm convert input.png output.jpg
from GIF to TIFF:
gm convert input.gif output.tif
There are, of course, many options/parameters that you may want to use. Regards, Joe
Windows XP SP1 and later has Windows Image Acquisition Library v2.0. Just add reference to it in your VB project:
Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile "C:\YourFile.png"
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
IP.Filters(1).Properties("Quality").Value = 5
Set Img = IP.Apply(Img)
Img.SaveFile "C:\NewFile.jpg"
Premium Content
You need an Expert Office subscription to comment.Start Free Trial