If you open a cell containing a photo with ctrlshift-E, you'll see something like:

So, internally there's already something compressed going on. Problem is, Mathematica uses a compression schema where the end result only contains printable characters, so this is slightly less efficient than a fully binary format.
I don't think Mathematica offers the possibility of an indexed color space.

