//------------------------------------------------------------------------------ //■関数名 BmpToJpeg //■用途 BMP->JPG変換 //■引数 // BMP ...TBitmapオブジェクト // SaveFileName ...JPEGのファイル名 // Quality ...圧縮度(1-100) // ※値が大きければ画質はよくなりファイルサイズは大きくなる // ※値が小さければファイルサイズは小さくなるが画質は犠牲になる // dwFlag ...true プログレッシブタイプ // ...false ノーマル //■備考 // 関数を使用する前に"uses"節に"JPEG"を追加すること //------------------------------------------------------------------------------ procedure BmpToJpeg(const BMP : TBitmap ; SaveFileName : String ; Quality: Integer;dwFlag :Boolean ) ; Var Jpeg : TJpegImage; begin Jpeg := TJpegImage.Create ; try Jpeg.Assign(BMP); Jpeg.CompressionQuality :=Quality; if dwFlag then begin Jpeg.ProgressiveDisplay :=True; Jpeg.ProgressiveEncoding :=True; end else begin Jpeg.ProgressiveDisplay :=False; Jpeg.ProgressiveEncoding :=False; end; Jpeg.SaveToFile(SaveFileName); finally Jpeg.Free; end; end; //------------------------------------------------------------------------------ //■関数名 JpegToBmp //■用途 JPG->BMP変換 //■引数 // BMP ...TBitmapオブジェクト(戻り値) // OpenFileName ...JPEGのファイル名 //■備考 // 関数を使用する前に"uses"節に"JPEG"を追加すること //------------------------------------------------------------------------------ procedure JpegToBmp(BMP : TBitmap ; OpenFileName : String); Var Jpeg : TJpegImage; begin Jpeg := TJpegImage.Create ; try Jpeg.LoadFromFile(OpenFileName); BMP.Assign(Jpeg); finally Jpeg.Free; end; end;