BorlandTalk.com

Brian Heemsbergen · Guest

I'm posting a complete code solution so the next former VB6 SLOB doesn't
have to Google so much. I'd have never gotten here with previous posts,
but man you Delphi people are TERSE! "Just load it into a
memorystream." How???????

If I forgot something like freeing memory, please advise.

BTW - I tested using a 200x400 pixel picture. The internal .jpg was
15,780 and the internal .bmp was 240,054. So a big savings. BUT, VB6
pads 24 bit color bitmaps to 32 bits so a 200x400 would be 320,000
(200x400x4). So my other routines will still need some work.

Brian

-----------------------

uses jpeg;

// in a proc

var
myBitMap : tbitmap;
myJPG : TJPEGImage;
myStream : TMemoryStream;

begin

// the easy way to actually load an image
// the rest is just to test the internal memory size
// imgSplash is a TImage put on the form from the Tool Palatte
//
// imgSplash.Picture.LoadFromFile ('Foyt1977SplashU.jpg');
// imgSplash.Picture.LoadFromFile ('Foyt1977Splash.bmp');

mystream := tmemorystream.Create;
myJPG := TJPEGImage.Create;
myJPG.LoadFromFile ('Foyt1977SplashU.jpg');
imgsplash.Canvas.Draw(0,0,myJPG); // just to see if loaded
myJPG.SaveToStream(myStream);
showmessage('Size of jpg = ' + inttostr(mystream.Size));
myJPG.Free;
mystream.Free;

mystream := tmemorystream.Create;
mybitmap := TBitMap.Create;
mybitmap.LoadFromFile('Foyt1977Splash.bmp');
imgsplash.Canvas.Draw(0,0,mybitmap); // just to see if loaded
mybitmap.SaveToStream(myStream);
showmessage('Size of bmp = ' + inttostr(mystream.Size));
mybitmap.Free;
mystream.Free;