class procedure Create(bmp: Graphics.TBitmap; out fastImage: IImageAdapter); overload;

procedure GetPelsPerMeter(const bm: Graphics.TBitmap; var xPelsPerMeter, yPelsPerMeter: integer); procedure GetBmpDPI(Bitmap: Graphics.TBitmap; var xDPI, yDPI: integer); function PelsPerMeterToDPI(x: integer): integer; function PerMeterToPerInch(const a: float): float; function PerInchToPerMeter(const a: float): float;