TImage里的图形转为TJPEGImage，TBitmap

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Graphics::TBitmap   *bmp=new   Graphics::TBitmap();
    bmp->Width=Image1->Width;
    bmp->Height=Image1->Height;
    bmp->Canvas->StretchDraw(Rect(0,0,bmp->Width,bmp->Height),
                                Image1->Picture->Graphic);
    Canvas->Draw(0, 0, bmp);
}

 

/////////////////////////////////////////////////////////////////////

SaveDialog1->Filter   =   GraphicFilter(__classid(TJPEGImage));  
            SaveDialog1->Title="另存为JPEG格式图像";  
            if   (SaveDialog1->Execute()){  
                      TImage   *tmpImage=new   TImage(Form1);  
                      Graphics::TBitmap   *tmpBitmap=  
                                new   Graphics::TBitmap();  
                      TJPEGImage   *Jpeg   =new   TJPEGImage();  
                      tmpImage->AutoSize=true;  
                      tmpImage->Picture->LoadFromFile(Form1->CurrentDir+"//"  
                                +Form1->ListView1->Selected->Caption);  
                      tmpBitmap->Width=tmpImage->Width;  
                      tmpBitmap->Height=tmpImage->Height;  
                      tmpBitmap->Canvas->StretchDraw(Rect(0,0,  
                                tmpBitmap->Width,tmpBitmap->Height),  
                                tmpImage->Picture->Graphic);  
                      switch   (RadioGroup1->ItemIndex){  
                      case   0:  
                                Jpeg->PixelFormat=jf8Bit;  
                                break;  
                      case   1:  
                                Jpeg->PixelFormat=jf24Bit;  
                                break;  
                      case   2:  
                                Jpeg->Grayscale=true;  
                      }  
                      Jpeg->Assign((TPersistent   *)tmpBitmap);  
                      Jpeg->CompressionQuality=TrackBar1->Position;  
                      Jpeg->Compress();  
                      Jpeg->SaveToFile(SaveDialog1->FileName);  
                      delete   tmpBitmap;  
                      delete   tmpImage;  
                      delete   Jpeg;