जेपीईजी छवि को संपीड़ित नहीं कर सकता है और इसे स्क्रीन पर दिखाया जा सकता है

Question

मैं imgQInput (जो एक टीआईमेज है) में एक छवि लोड करने का प्रयास करता हूं, इसे एक TJpegImage को असाइन करें, इसे संपीड़ित करें (संपीड़न कारक 5) और इसे imgQOutput (एक और TImage) में दिखाएं। लेकिन यह काम नहीं करता है। ImgQOutput में छवि मूल के समान ही है। यह संपीड़न कारक के कारण बहुत pixelated देखना चाहिए! संपीड़न हालांकि काम करता है, क्योंकि जब मैं जेपीईजी को डिस्क में सहेजता हूं तो यह वास्तव में छोटा होता है।

JPG:= TJPEGImage.Create; 
    TRY 
    JPG.CompressionQuality:= trkQuality.Position; 
    JPG.Assign(imgQInput.Picture.Graphic); 
    CompressJpeg(JPG); 
    imgQOutput.Picture.Assign(JPG);   <--------- something wrong here. the shown image is not the compressed image but the original one 
    FINALLY 
    FreeAndNil(JPG); 
    END; 


function CompressJpeg(OutJPG: TJPEGImage): Integer; 
VAR tmpQStream: TMemoryStream; 
begin 
tmpQStream:= TMemoryStream.Create; 
TRY 
    OutJPG.Compress; 
    OutJPG.SaveToStream(tmpQStream); 
    OutJPG.SaveToFile('c:\CompTest.jpg');  <--------------- this works 
    Result:= tmpQStream.Size; 
FINALLY 
    FreeAndNil(tmpQStream); 
END; 
end; 

Answer 1

आपने संपीड़ित जेपीजी का बिल्कुल उपयोग नहीं किया था। निम्नलिखित के रूप में

बदलें CompressJpeg: (! याद है, छवियों बड़ा हो सकता है)

function CompressJpeg(OutJPG: TJPEGImage): Integer; 
VAR tmpQStream: TMemoryStream; 
begin 
tmpQStream:= TMemoryStream.Create; 
TRY 
    OutJPG.Compress; 
    OutJPG.SaveToStream(tmpQStream); 
    OutJPG.SaveToFile('c:\CompTest.jpg'); // You can remove this line. 
    tmpQStream.Position := 0;    // 
    OutJPG.LoadFromStream(tmpQStream);  // Reload the jpeg stream to OutJPG 
    Result:= tmpQStream.Size; 
FINALLY 
    FreeAndNil(tmpQStream); 
END; 
end; 

Answer 2

यहाँ आप के लिए एक प्रतिस्पर्धा जवाब है, कम डेटा बाजीगरी के साथ है

type 
    TJPEGExposed = class(TJPEGImage);  // unfortunately, local class declarations are not allowed 

procedure TForm1.FormClick(Sender: TObject); 
var 
    JPEGImage: TJPEGImage; 
const 
    jqCrappy = 1; 
begin 
    Image1.Picture.Bitmap.LoadFromFile(GetDeskWallpaper); 

    Image2.Picture.Graphic := TJPEGImage.Create; 
    JPEGImage := Image2.Picture.Graphic as TJPEGImage; // a reference 
    JPEGImage.Assign(Image1.Picture.Bitmap); 
    JPEGImage.CompressionQuality := jqCrappy; // intentionally 
    JPEGImage.Compress; 
    TJPEGExposed(JPEGImage).FreeBitmap; { confer: TBitmap.Dormant } 
end; 

TJPEGImage.FreeBitmap disposes अस्थिर डीआईबी के भीतर निहित TJPEG छवि उदाहरण। सचित्र मामले में यह TImage पुनर्भुगतान के जवाब में हाल ही में .Compress 'एड जेपीईजी को डीकोड करने का कारण बनता है।