Discussion :

[Futixu]

Bonjour à tous,
j'aimerai afficher dans un TImage une image jpeg redimensionné.
Cependant je n'y arrive que avec une image bmp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
Graphics::TBitmap *bmp = new Graphics::TBitmap();
if (OpenDialog1->Execute())
    {
    bmp->LoadFromFile(OpenDialog1->FileName);
    Bitmap->Width = 100;
    Bitmap->Height = 100;
    Bitmap->Canvas->StretchDraw(Bitmap->Canvas->ClipRect, bmp);
    Image1->Picture->Graphic = Bitmap;
    }

Comment y parvenir avec une image jpeg?

Merci d'avance pour votre aide!

[kmaniche]

Bonjour à tous,
j'aimerai afficher dans un TImage une image jpeg redimensionné.
Cependant je n'y arrive que avec une image bmp :
[code]
Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
Graphics::TBitmap *bmp = new Graphics::TBitmap();

là on vois bien que c'est une TBitmap, alors il faut changer pour prise en charge des TJpegImage

un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
  TJPEGImage *jp = new TJPEGImage();
  try
  {
    jp->Assign(Image1->Picture->Bitmap);
    jp->SaveToFile("c:\\monjpeg.jpg");
  }
  __finally
  {
    delete jp;
  }
}

[kmaniche]

Es-ce que ça marchée