JPEG 이미지를 압축하여 화면에 표시 할 수 없습니다.

Question

이미지를 imgQInput (TImage)에로드하고 TJpegImage에 할당하고 압축 (압축률 5)하고 imgQOutput (다른 TImage)에 표시하려고합니다. 그러나 그것은 효과가 없습니다. imgQOutput의 이미지는 원본과 같습니다. 그것은 압축 요소 때문에 매우 pixelated 봐야합니다! 그러나 압축은 JPEG를 디스크에 저장할 때 실제로 작기 때문에 작동합니다.

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

압축 된 JPG를 전혀 사용하지 않았습니다. 다음과 같은

변경 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는 휘발성 DIB가 포함 처분 TJPEGImage 인스턴스. 이 경우, 클래스가 TImage의 재 묘화에 대한 응답으로 최근에 .Compress의 JPEG를 디코딩하게됩니다.