iemio.pas

·ImageEn 2.3.0 ImageEn一组用于图像处理、查看和分析的Delphi控件。能够保存几种图像格式

    // DCX
    procedure LoadFromFileDCX(const nf:string);
    procedure LoadFromStreamDCX(Stream:TStream);
    procedure SaveToFileDCX(const nf:string);
    procedure SaveToStreamDCX(Stream:TStream);
    // TIFF
    procedure LoadFromFileTIFF(const nf: string);
    procedure LoadFromStreamTIFF(Stream: TStream);
    procedure SaveToFileTIFF(const nf: string);
    procedure SaveToStreamTIFF(Stream: TStream);
    // AVI
    procedure LoadFromFileAVI(const nf: string);
    procedure SaveToFileAVI(const nf: string; const codec: string = '');
    // PostScript (PS)
    procedure SaveToFilePS(const nf: string);
    procedure SaveToStreamPS(Stream: TStream);
    // Adobe PDF
    procedure SaveToFilePDF(const nf: string);
    procedure SaveToStreamPDF(Stream: TStream);
    // ICO
    procedure LoadFromFileICO(const nf: string);
    procedure LoadFromStreamICO(Stream: TStream);
    // URL
    procedure LoadFromURL(URL: string);
    // DirectShow media
    {$ifdef IEINCLUDEDIRECTSHOW}
    procedure LoadFromMediaFile(const nf:string);
    {$endif}
    // TWAIN
{$IFDEF IEINCLUDETWAIN}
    function Acquire(api: TIEAcquireApi = ieaTWain): boolean;
    function SelectAcquireSource(api: TIEAcquireApi = ieaTWain): boolean;
    function AcquireOpen: boolean;
    procedure AcquireClose;
{$ENDIF}
    // General
    procedure LoadFromFile(const nf: string);
    procedure SaveToFile(const nf: string);
    procedure LoadFromFileFormat(const FileName:string; FileFormat: TIOFileType);
    procedure LoadFromFileAuto(const FileName:string);
    procedure LoadFromStream(Stream:TStream);
    procedure LoadFromStreamFormat(Stream:TStream; FileFormat:TIOFileType);
{$IFDEF IEINCLUDEOPENSAVEDIALOGS}
    function ExecuteOpenDialog(InitialDir: string = ''; InitialFileName: string = ''; AlwaysAnimate: boolean = True; FilterIndex: integer = 1; ExtendedFilters: string = ''): string;
    function ExecuteSaveDialog(InitialDir: string = ''; InitialFileName: string = ''; AlwaysAnimate: boolean = False; FilterIndex: integer = 1; ExtendedFilters: string = ''): string;
{$ENDIF}
{$IFDEF IEINCLUDEPRINTDIALOGS}
    function DoPrintPreviewDialog(const TaskName: string = ''; PrintAnnotations:boolean=false; const Caption:string=''): boolean;
{$ENDIF}
    property ResetPrinter: boolean read fResetPrinter write fResetPrinter;

{!!
<FS>TImageEnMIO.NativePixelFormat

<FM>Declaration<FC>
property NativePixelFormat:boolean;

<FM>Description<FN>
By setting this property to True, you disable the conversion of paletted images and gray scale to 24 bit.
By default, ImageEn converts all paletted images to 24 bit (true color). Only black/white images are stored in the original format with 1 bit per pixel.

Note that setting NativePixelFormat=True, you will not be able to execute some image processing operations.
!!}
    property NativePixelFormat:boolean read fNativePixelFormat write fNativePixelFormat;

{!!
<FS>TImageEnMIO.PrintingFilterOnSubsampling

<FM>Declaration<FC>
property PrintingFilterOnSubsampling: <A TResampleFilter>;

<FM>Description<FN>
Specifies a filter when the image needs to be printed and it must be resampled. Filtering enhances the image quality but slows processing.
!!}
    property PrintingFilterOnSubsampling: TResampleFilter read fPrintingFilterOnSubsampling write fPrintingFilterOnSubsampling;

{!!
<FS>TImageEnMIO.ProxyAddress

<FM>Declaration<FC>
property ProxyAddress:string;

<FM>Description<FN>
ProxyAddress specifies the proxy address and port when using <A TImageEnMIO.LoadFromURL> method. The syntax is: 'domain:port'.

<FM>Example<FC>
ImageEnMView.MIO.ProxyAddress:='10.2.7.2:8080';
ImageEnMView.MIO.LoadFromURL('http://www.hicomponents.com/image.gif');
!!}
    property ProxyAddress: string read fProxyAddress write fProxyAddress;

{!!
<FS>TImageEnMIO.ProxyUser

<FM>Declaration<FC>
property ProxyUser:string;

<FM>Description<FN>
ProxyUser specifies the proxy userid when using <A TImageEnMIO.LoadFromURL> method.

<FM>Example<FC>
ImageEnMView.MIO.ProxyAddress:='10.2.7.2:8080';
ImageEnMView.MIO.ProxyUser:='testuser';
ImageEnMView.MIO.ProxyPassword:='testpassword';
ImageEnMView.MIO.LoadFromURL('http://www.hicomponents.com/image.gif');
!!}
    property ProxyUser: string read fProxyUser write fProxyUser;

{!!
<FS>TImageEnMIO.ProxyPassword

<FM>Declaration<FC>
property ProxyPassword:string;

<FM>Description<FN>
ProxyPassword specifies the proxy password when using <A TImageEnMIO.LoadFromURL> method.

<FM>Example<FC>
ImageEnMView.MIO.ProxyAddress:='10.2.7.2:8080';
ImageEnMView.MIO.ProxyUser:='testuser';
ImageEnMView.MIO.ProxyPassword:='testpassword';
ImageEnMView.MIO.LoadFromURL('http://www.hicomponents.com/image.gif');
!!}
    property ProxyPassword: string read fProxyPassword write fProxyPassword;

  published
    { Published declarations }
    property AttachedMView: TIEView read fImageEnMView write SetAttachedMView;

{!!
<FS>TImageEnMIO.OnProgress

<FM>Declaration<FC>
property OnProgress: <A TIEProgressEvent>;

<FM>Description<FN>
OnProgress event is called upon input/output operations.
!!}
    property OnProgress: TIEProgressEvent read fOnProgress write fOnProgress;

{!!
<FS>TImageEnMIO.OnAcquireBitmap

<FM>Declaration<FC>
property OnAcquireBitmap:<A TIEAcquireBitmapEvent>;

<FM>Description<FN>

OnAcquireBitmap occurs whenever the scanner acquires an image.
!!}
    property OnAcquireBitmap: TIEAcquireBitmapEvent read fOnAcquireBitmap write fOnAcquireBitmap;

{!!
<FS>TImageEnMIO.MsgLanguage

<FM>Declaration<FC>
property MsgLanguage: <A TMsgLanguage>;

<FM>Description<FN>
This property sets the language for Input/output previews (IOPreviews) dialogs (Previews).
!!}
    property MsgLanguage: TMsgLanguage read fMsgLanguage write fMsgLanguage default msSystem;

    property PreviewsParams: TIOPreviewsParams read GetIOPreviewParams write SetIOPreviewParams default [];
    property PreviewFont: TFont read fPreviewFont write SetPreviewFont;

{!!
<FS>TImageEnMIO.AutoAdjustDPI

<FM>Declaration<FC>
property AutoAdjustDPI:boolean;

<FM>Description<FN>
When AutoAdjustDPI is True and last loaded/scanned image has horizontal DPI not equal to vertical DPI, ImageEn resizes the image making DPIX=DPIY.
The default is False.
!!}
    property AutoAdjustDPI: boolean read fAutoAdjustDPI write fAutoAdjustDPI default false;

{!!
<FS>TImageEnMIO.FilteredAdjustDPI

<FM>Declaration<FC>
property FilteredAdjustDPI:boolean;

<FM>Description<FN>
The FilteredAdjustDPI property is valid when <A TImageEnMIO.AutoAdjustDPI> is true. If set to True, ImageEn applies a resampling filter to the image to enhance quality.
It can slow down the loading process.
!!}
    property FilteredAdjustDPI: boolean read fFilteredAdjustDPI write fFilteredAdjustDPI default false;

{!!
<FS>TImageEnMIO.SimplifiedParamsDialogs

<FM>Declaration<FC>
property SimplifiedParamsDialogs:boolean;

<FM>Description<FN>
If the SimplifiedParamsDialogs property is True (the default), the 'Advanced' button of open/save dialogs will show a simplified set of parameters.
Warning: the default is True, to allow old style "advanced" dialogs set it to False.

<FM>Example<FN>
This shows the 'Advanced' dialog for TIFF, using SimplifiedParamsDialogs=True:
<IMG help_images\68.bmp>

This show the 'Advanced' dialog for TIFF, using SimplifiedParamsDialogs=False:
<IMG help_images\69.bmp>
!!}
    property SimplifiedParamsDialogs: boolean read fSimplifiedParamsDialogs write fSimplifiedParamsDialogs default true;

{!!
<FS>TImageEnMIO.OnFinishWork

<FM>Declaration<FC>
property OnFinishWork:TNotifyEvent;

<FM>Description<FN>
OnFinishWork occurs when an input/output task ends. It is useful in resetting progress bars, or to know when a thread ends in a asynchronous mode.
!!}
    property OnFinishWork: TNotifyEvent read fOnFinishWork write fOnFinishWork;

{!!
<FS>TImageEnMIO.DialogsMeasureUnit

<FM>Declaration<FC>
property DialogsMeasureUnit:<A TIEDialogsMeasureUnit>

<FM>Description<FN>
The DialogsMeasureUnit property specifies the measurement unit used in the print preview dialog (see DoPrintPreviewDialog).

<FM>Example<FC>

ImageEnView.MIO.DialogsMeasureUnit:=ieduCm;
ImageEnView.MIO.DoPrintPreviewDialog('');
!!}
    property DialogsMeasureUnit: TIEDialogsMeasureUnit read fDialogsMeasureUnit write fDialogsMeasureUnit default ieduInches;

{!!
<FS>TImageEnMIO.OnDoPreviews

<FM>Declaration<FC>
property OnDoPreviews: <A TIEDoPreviewsEvent>;

<FM>Description<FN>
OnDoPreviews occurs just before DoPreviews is called or 揂dvanced