Display JPEG images

韩冰

Display JPEG images

6 w. b7 r3 R2 d- kAnswer ( W, w5 S' L2 x5 {' [( rUse the class TJPEGImage to load the JPEG, and then use the Assign method to draw the JPEG onto a regular TImage. Here is a code example that demonstrates how.

; Z/ z4 U, ?* [+ ]4 y+ M( O. I$ d

#include <jpeg.hpp>

0 u! T: V4 ] T8 ]

void __fastcall TForm1::Button1Click(TObject *Sender) { // Create a TJPEGImage, and tell it to load the file conf99.jpg TJPEGImage *JImage = new TJPEGImage; 2 B1 Q6 W6 n* `, O u% F# R JImage->LoadFromFile("conf99.jpg");

+ a, L9 o# @/ v; A# _9 Q3 }

// Now that we have a TJEGImage, we can use Assign to // copy that image into a TImage. % j0 z: r @8 x3 U/ I Image1->Width = JImage->Width; Image1->Height = JImage->Height; Image1->icture->Assign(JImage);

0 z% ^; @! T- n6 r# V

delete JImage; }

3 e* y; ?) M* }, L. Z3 `

Figure 1 shows the program in action. The image is a picture of me and my son playing games during the DirectX madness event at Borcon 99. The picture was taken by Danny Thorpe, and its part of his photo gallery on the community website. Fortunately for you, Danny took a picture of my best side.