Re: Question: re Image Files.

[Austin Obyrne <austin.obyrne@hotmail.com>]

On Friday, August 31, 2012 10:12:59 PM UTC+1, (unknown) wrote:
> Le vendredi 31 août 2012 09:18:11 UTC+2, Mark Murray a écrit : > Yes, but you have to handle each individual image format (GIF, JPEG, > BMP etc) separately. This is a LOT of work to write a general program. Sure. The good news is that it is already done :-) Download or check-out GID: http://gen-img-dec.sf.net/ Then all the work is to define a container, say a flat byte buffer or a two-dimensional array, then define 2 procedures, e.g. here for a flat buffer: procedure Set_X_Y (x, y: Natural) is begin idx:= 3 * (x + image_width * (image_height - 1 - y)); end Set_X_Y; -- procedure Put_Pixel ( red, green, blue : Primary_color_range; alpha : Primary_color_range ) is begin buffer(idx..idx+2):= (red, green, blue); idx:= idx + 3; end Put_Pixel; plus a feedback procedure that can be null (just there for showing progess), then instanciate a procedure: procedure Load_image is new GID.Load_image_contents( Primary_color_range, Set_X_Y, Put_Pixel, Feedback, GID.fast ); An that's it! PNG, BMP, GIF, JPEG, TGA are auto-detected. You don't need to tell GID under what format the image is encoded. I guess Austin is trying to do steganography. The simplest way it to take test\mini.adb and customize it for that purpose. Have fun! _________________________ Gautier's Ada programming http://freecode.com/users/gdemont

Many thanks for your coding of the “Generic Image Decoder “ for my benefit.
- that was really appreciated - Austin