jp2img.int

来自「Jasper jpeg2000 from delphi」· INT 代码 · 共 30 行

unit jp2img;

interface
uses
  Classes,
  Graphics,
  Sysutils,
  Windows;

type
  TJP2Image = class(graphics.TBitmap)
  private
  public
    constructor Create; override;
    procedure LoadFromStream(Stream: TStream); override;
    procedure SaveToFile(const Filename: string); override;
    procedure SaveToStream(Stream: TStream); override;
    class procedure RegisterFileFormats;
    class procedure UnRegisterFileFormats;
    property  CompressionRate: single read FCompressionRate write SetCompressionRate;
  end;

function JasperLoadFromStream(AStream: TStream; ABmp: graphics.TBitmap): boolean;
function JasperLoadFromFile(const AFile: string; ABmp: graphics.TBitmap): boolean;
function JasperSaveToStream(AStream: TStream; ABmp: graphics.TBitmap;
  AFormat: string = 'jp2'; ARate: single = 0; Options: string = ''): boolean;
function JasperSaveToFile(const AFile: string; ABmp: graphics.TBitmap;
  ARate: single = 0; Options: string = ''): boolean;