JPEGイメージをファイルにセーブせず画質の確認をする方法です。フォームに
Imageを２つ、Buttonを１つ置いてください。


procedure TForm1.Button1Click(Sender: TObject);
var
jpg : TJPEGImage;
begin
jpg := TJPEGImage.Create;
try
 Image1.Picture.LoadFromFile('Test.bmp');
 jpg.Assign(Image1.Picture.Bitmap);
 jpg.CompressionQuality := 1;//1〜100まで
 jpg.Compress;       //ここで圧縮処理を行います
 image2.Picture.Assign(jpg);

 {ここからがミソのようです。with jpg doにしても無意味です}
   with TJPEGImage(Image2.Picture.Graphic) do
    begin
    //その一
    { Grayscale := True;
     Grayscale := False;}

    //その二
    { Scale := jsHalf;
     Scale := jsFullSize; }

    //その三
    { PixelFormat := jf8bit;
     PixelFormat := jf24bit;}

    //その四
     Smoothing := False;
    end;
 {ここまで}

finally
 jpg1.Free;
end;
end;


その一からその四までは状況に応じて使い分けるといいと思います。SaveToFile
を使用するならCompressは不要のようです。

                                 　　　　　　　紅月　燐火(BZF05041)

Original document by 紅月　燐火      氏 ID:(BZF05041)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。