[2005] Image Manipulation

[kleinma]

I usually write business apps, but I am working on an image editing utility for a friend of mine who is currently scanning a few thousand pictures into his PC.

I am not trying to reinvent the wheel as there are many really good image editing apps out there, so I am only trying to include functionality that pertains to what he needs it for.

So far it has been pretty simple, except for some roadblocks which I have so far overcome. The biggest issues I have faced are the fact that once you load an image in .NET to a bitmap or image object, that file is locked until you dispose of the image object. This makes it hard to do something like open an image, manipulate it, and save it back to the same file name. I have a decent work around for that though.

I am currently just sitting on one issue so I figure maybe someone has some insight on this:

My problem is one of the few manipulations I need to be able to do is rotate an image. Sure this is simple enough to do using the RotateFlip method of the image or bitmap class. The problem is when you save back to disk though.

If I load a jpeg file from disk, and save it back to disk, the file size remains exactly the same. However if I apply a rotation to the image, the size grows by several megs when I save it back. If I specify JPEG as the format for encoding, the size cuts down to about half the original size.

here is some code that illustrates the issue:

        'ORIGINAL TESTING PIC IS 1.3MB

        'OPEN AND SAVE WITH NO TRANSFORM
        Using MyImage As Image = Image.FromFile("C:\somepic.jpg")
            MyImage.Save(Application.StartupPath & "\testpic2.jpg", MyImage.RawFormat)
            'SIZE OF THIS FILE IS 1.3MB
        End Using

        'SAVE USING SAME IMAGEFORMAT OF ORIGINAL IMAGE
        Using MyImage As Image = Image.FromFile("C:\somepic.jpg")
            MyImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
            MyImage.Save(Application.StartupPath & "\testpic2.jpg", MyImage.RawFormat)
            'SIZE OF THIS FILE IS OVER 9MB
        End Using

        'SAVE USING JPEG
        Using MyImage As Image = Image.FromFile("C:\somepic.jpg")
            MyImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
            MyImage.Save(Application.StartupPath & "\testpic2.jpg", ImageFormat.Jpeg)
            'SIZE OF THIS FILE IS 629KB
        End Using

[BillBoeBaggins]

I am just talking out my a** but could you copy the contents of the image file into binary, and then into a new Image object that would not be linked into that file. Close the file. Delete it. Then your new image as it.

[kleinma]

I am not sure how that would help with with the file size/encoding of the image??

[BillBoeBaggins]

nm.. I thought you had that handled, but were just looking for a way to save your changes back to the same file name.

[kleinma]

Nope.. other way around.

[BillBoeBaggins]

http://tonesnotes.com/blog/2004/05/t...ate_jpegs.html

[kleinma]

http://tonesnotes.com/blog/2004/05/t...ate_jpegs.html

Thanks I will check that out and see how it fairs.