Note: If your location is only [ieTwain] or [ieWIA] then the default Twain/WIA selector is shown. Otherwise a custom device selector is used (Use to control the language in the custom dialog). Returns False if user presses the "Cancel" button. Demo Demos\ImageAcquisition\AllAcquire\AllAcquire.dpr Example if ImageEn1.IO.SelectAcquireSource([ieaTwain, ieaWIA, ieaDCIM]) then ImageEn1.IO.Acquire; !!} function TImageEnMIO.SelectAcquireSource(Apis : TIEAcquireApis = [ieaTwain, ieaWIA, ieaDCIM]): boolean; // NPC: 16/11/11 begin Result := fAcquireParams.SelectSource(Apis); end; {!! TImageEnMIO.SetAcquireSource Declaration function SetAcquireSource(Api : ; Location : Variant) : boolean; Description Programatically set the selected acquisition source by an API type and device. The selected device will be used for subsequent calls to . Result is false if the device cannot be selected (i.e. is not connected or does not exist). The API can be one of the following: Value Description ieaTwain Acquire from Twain device ieaWIA Acquire using WIA (scanners or camera) ieaDCIM Read from any connected device containing a DCIM folder (e.g. camera card in a slot or a USB connected camera) using the WPD API

Location can be one of the following: Value Description Default_Device The default device for that API type will be selected Index An index of a device, e.g. 0 for the first device (ieaTwain/ieaWIA/ieaDCIM) Name The name of a device, e.g. 'CanoScan FB620' (ieaTwain/ieaWIA/ieaDCIM) Path The path of a DCIM folder, e.g. 'I:\DCIM\' (ieaDCIM) Drive Letter The letter of a connected camera card or device containing a DCIM folder, e.g. 'I' (ieaDCIM)

Example ImageEnMView1.MIO.LoadFromBuffer(mybuffer, mybufferlength, ioJPEG); !!} procedure TImageEnMIO.LoadFromBuffer(Buffer: pointer; BufferSize: integer; Format: TIOFileType); var stream: TIEMemStream; begin stream := TIEMemStream.Create(Buffer, BufferSize); try LoadFromStream(stream, Format); finally FreeAndNil(stream); end; end; {!! TImageEnMIO.LoadFromStream Declaration function LoadFromStream(Stream: TStream; FileFormat: = ioUnknown): Boolean; Description Load an image (or multiple image) from the specified stream into the attached (at ) or . If FileFormat is ioUnknown the file format is detected by reading the image header (using ). The result will be false if an error is encountered, e.g. the file in the stream is not a recognized format ( will be true). Notes: - AVI is not supported - Existing content is not cleared !!} function TImageEnMIO.LoadFromStream(Stream: TStream; FileFormat: TIOFileType = ioUnknown): Boolean; var idx: integer; lp: int64; begin Result := False; if FileFormat = ioUnknown then begin lp := Stream.Position; FileFormat := FindStreamFormat(Stream); Stream.Position := lp; end; case FileFormat of ioGIF : Result := LoadFromStreamGIF(Stream); ioTIFF : Result := LoadFromStreamTIFF(Stream); //ioAVI : Result := LoadFromStreamAVI(Stream); // not supported ioICO : Result := LoadFromStreamICO(Stream); ioCUR : Result := LoadFromStreamCUR(Stream); ioDCX : Result := LoadFromStreamDCX(Stream); {$ifdef IEINCLUDEDICOM} ioDICOM : Result := LoadFromStreamDICOM(Stream); {$endif} {$IFDEF IEINCLUDEMISCPLUGINS} iomscWPPDF, iomscPDF: Result := LoadFromStreamPDF(Stream); {$endif} else begin if FileFormat <> ioUnknown then begin // try single image idx := NextInsertionIndex; Attached_InsertImage( idx ); if assigned(fImageEnMView) then (fImageEnMView as TImageEnMView).SetImageFromStream(idx, Stream) else GetIEMBitmap.SetImage(idx, Stream); Result := Not fAborting; end end; end; end; {$ifdef IEIncludeDeprecatedInV6} // Deprecated in 6.2.0 (2015-06-16) function TImageEnMIO.LoadFromStreamFormat(Stream: TStream; FileFormat: TIOFileType): Boolean; begin Result := LoadFromStream( Stream, FileFormat ); end; {$endif} {!! TImageEnMIO.LoadFromFiles Declaration procedure LoadFromFiles(const FileName: string; AutoDetect: boolean=false; LoadWhenViewed: boolean=false); Description Loads multiple files separated by '|' character. If AutoDetect is true then ImageEn tries to detect file type from header, otherwise it looks only the file extension. If LoadWhenViewed is true each file is actually loaded only when it needs to be displayed. Note: Existing content is not cleared Examples // Load three files ImageEnMView1.MIO.LoadFromFiles('one.jpg|two.jpg|three.jpg'); // Execute the open dialog and load the returned list of selected files filenames := ImageEnMView1.MIO.ExecuteOpenDialog('', '', true, 1, '', true); ImageEnMView1.MIO.LoadFromFiles(filenames); !!} procedure TImageEnMIO.LoadFromFiles(const FileName: string; AutoDetect: boolean; LoadWhenViewed: boolean); var sl: TStringList; p1, p2, idx: integer; begin sl := TStringList.Create; fImageEnMView_LockPaint(); try p1 := 1; p2 := 1; while p2<=length(FileName) do begin if (FileName[p2]='|') then begin sl.Add( Trim(Copy(string(FileName), p1, p2-p1)) ); p1 := p2+1; end; inc(p2); end; if (p1<>p2) then sl.Add( Trim(Copy(string(FileName), p1, p2-p1+1)) ); for p1 := 0 to sl.Count-1 do begin idx := NextInsertionIndex; if AutoDetect then LoadFromFileAuto( sl[p1] ) else if LoadWhenViewed and assigned( fImageEnMView ) then begin // note 1: if the file contains multiple pages only the first one is loaded // note 2: the image is added at the end of the image list idx := GetIEMBitmap.count; Attached_InsertImage( idx ); // Append to end ( fImageEnMView as TImageEnMView ).ImageFileName[idx] := sl[p1]+'::0'; end else LoadFromFile( sl[p1] ); if assigned( fImageEnMView ) then ( fImageEnMView as TImageEnMView ).ImageBottomText[idx] := ExtractFilename(sl[p1]); if assigned(fOnProgress) then fOnProgress(self, trunc(p1 / sl.Count * 100)); end; finally fImageEnMView_UnlockPaint(); sl.free; end; end; {!! TImageEnMIO.PrintImagePos Declaration procedure PrintImagePos(ImageIndex: integer; PrtCanvas: TCanvas; x, y: double; Width, Height: double; GammaCorrection: double = 1.0; PrintAnnotations: boolean = False); Description Print the specified image at an absolute position and size. Parameter Description ImageIndex Index of the page/image to print (0 = first image). IEM_SELECTED_IMAGES can be specified for ImageIndex to print all images that the user has selected in the TImageEnMView or IEM_ALL_IMAGES to print all images in the TImageEnMView PrtCanvas The printing canvas. Specify nil to use the Printer.Canvas x Left position to print image (in inches) y Top position to print image (in inches) Width Width to print image (in inches) Height Height to print image (in inches) GammaCorrection Level of gamma correction, use 1 to disable gamma correction FC>PrintAnnotations If true and the image contains imaging or ImageEn annotations they will be printed

Example // print the image first page at the position 2, 2 and height 10 and width 10 (stretch the image) Printer.BeginDoc; ImageEnMView1.MIO.PrintImagePos(0, Printer.Canvas, 2, 2, 10, 10, 1); Printer.EndDoc; !!} procedure TImageEnMIO.PrintImagePos(ImageIndex: integer; PrtCanvas: TCanvas; x, y: double; Width, Height: double; GammaCorrection: double = 1.0; PrintAnnotations: boolean = False); var bmp: TIEBitmap; io: TImageEnIO; begin bmp := Attached_GetTIEBitmap( ImageIndex ); io := TImageEnIO.CreateFromBitmap(bmp); if PrintAnnotations then io.Params.Assign( GetParams( ImageIndex )); io.Params.DpiX := Params[ImageIndex].DpiX; io.Params.DpiY := Params[ImageIndex].DpiY; try io.PrintImagePos(PrtCanvas, x, y, Width, Height, GammaCorrection, PrintAnnotations); finally Attached_ReleaseBitmap( ImageIndex, false ); io.free; end; end; {!! TImageEnMIO.PrintImage Declaration procedure PrintImage(ImageIndex : integer; PrtCanvas : TCanvas = nil; MarginLeft : double = 1; MarginTop : double = 1; MarginRight : double = 1; MarginBottom : double = 1; VerticalPos : TIEVerticalPos = ievpCenter; HorizontalPos : TIEHorizontalPos = iehpCenter; Size : TIESize = iesFitToPage; SpecWidth : double = 0; SpecHeight : double = 0; GammaCorrection : double = 1; PrintAnnotations: boolean = False); Description Print the specified image by specifying margins, vertical position, horizonal position and size. Parameter Description ImageIndex Index of the page/image to print (0 = first image). IEM_SELECTED_IMAGES can be specified for ImageIndex to print all images that the user has selected in the TImageEnMView or IEM_ALL_IMAGES to print all images in the TImageEnMView PrtCanvas The printing canvas. Specify nil to use the Printer.Canvas MarginLeft Left page margin in inches (Specify zero for no margin) MarginTop Top page margin in inches (Specify zero for no margin) MarginRight Right page margin in inches (Specify zero for no margin) MarginBottom Bottom page margin in inches (Specify zero for no margin) VerticalPos Vertical alignment of the image on the page, e.g. ievpCenter to center HorizontalPos Horizontal alignment of the image on the page, e.g. iehpCenter to center Size How the image should be sized for printing SpecWidth The absolute width of the image in inches if Size = iesSpecifiedSize. The number of pages wide if Size = iesMultiplePages SpecHeight The absolute height of the image in inches if Size = iesSpecifiedSize. The number of pages high if Size = iesMultiplePages GammaCorrection Level of gamma correction, use 1 to disable gamma correction FC>PrintAnnotations If true and the image contains imaging or ImageEn annotations they will be printed

Note: If the component is attached only to a then you should specify the font of Printer.Canvas before printing Example // Printing from a TImageEnMView Printer.BeginDoc; ImageEnMView1.MIO.PrintImages(6, 4); Printer.EndDoc; // Printing images in a TIEMBitmap MIO := TImageEnIO.Create; MIO.AttachedIEMBitmap := mbmp; Printer.BeginDoc; Printer.Canvas.Font.Name := 'Tahoma'; Printer.Canvas.Font.Size := 14; MIO.PrintImages(6, 4); Printer.EndDoc; MIO.Free; !!} procedure TImageEnMIO.PrintImages(Columns: integer; Rows: integer; HorizSpace: double; VertSpace: double; PrintSelected: boolean; MarginLeft: double; MarginTop: double; MarginRight: double; MarginBottom: double; DrawBox: boolean; DrawText: boolean; DrawShadow: boolean; BoxColor: TColor); var pagewidth, pageheight: double; dpix, dpiy: integer; PrtCanvas: TCanvas; begin PrtCanvas := Printer.Canvas; dpix := GetDeviceCaps(PrtCanvas.Handle, LOGPIXELSX); dpiy := GetDeviceCaps(PrtCanvas.Handle, LOGPIXELSY); pagewidth := GetDeviceCaps(PrtCanvas.Handle, HORZRES) / dpix; pageheight := GetDeviceCaps(PrtCanvas.Handle, VERTRES) / dpiy; PrintImagesEx( PrtCanvas, dpix, dpiy, pagewidth, pageheight, False, Columns, Rows, HorizSpace, VertSpace, PrintSelected, MarginLeft, MarginTop, MarginRight, MarginBottom, DrawBox, DrawText, DrawShadow, BoxColor, 0 ); end; {!! TImageEnMIO.PreviewPrintImages Declaration procedure PreviewPrintImages(DestBitmap: TBitmap; MaxBitmapWidth, MaxBitmapHeight: integer; PrinterObj: TPrinter; Columns: integer; Rows: integer; HorizSpace: double; VertSpace: double; PrintSelected: boolean; MarginLeft: double; MarginTop: double; MarginRight: double; MarginBottom: double; DrawBox: boolean; DrawText: boolean; DrawShadow: boolean; BoxColor: TColor = clBlack; iPageNo : Integer = 0); Description Display a preview of printing of images (all or just selected) in the attached or as rows and columns of thumbnails. Parameter Description DestBitmap Destination bitmap where to paint the preview. Resizes DestBitmap as needed. MaxBitmapWidth Maximum destination bitmap width. Preview will be stretched to match this size. MaxBitmapHeight Maximum destination bitmap height. Preview will be stretched to match this size. Printer This is the Printer object. PreviewPrintImage need it to know printer settings as orientation or page sizes. Columns Specifies how arrange images, specifying the number of columns. Rows Specifies how arrange images, specifying the number of rows. HorizSpace The horizontal space in inches between images. VertSpace The vertical space in inches between images. PrintSelected Set to true to print only selected images. MarginLeft Page left margin in inches. By specifying all zero values, no margins are used. MarginTop Page top margin in inches. By specifying all zero values, no margins are used. MarginRight Page right margin in inches. By specifying all zero values, no margins are used. MarginBottom Page bottom margin in inches. By specifying all zero values, no margins are used. DrawBox Set to true to draw a box around the images (image space). Image is always stretched to maintain aspect ratio. DrawText Set to true to draw text associated with every image. DrawShadow Set to true to draw a shadow around the image. BoxColor Specifies the color of the box around the image if DrawBox is True. iPageNo The page of thumbnails to preview. 0 shows the first page, 1 the second, etc.

Example // Paint and display the preview of thumbnails of the ImageEnMView using a TImageEnView component ImageEnMView1.MIO.PreviewPrintImages(ImageEnView2.Bitmap, ImageEnView2.Width, ImageEnView2.Height, Printer, 6, 4, ...); !!} procedure TImageEnMIO.PreviewPrintImages(DestBitmap: TBitmap; MaxBitmapWidth, MaxBitmapHeight: integer; PrinterObj: TPrinter; Columns: integer; Rows: integer; HorizSpace: double; VertSpace: double; PrintSelected: boolean; MarginLeft: double; MarginTop: double; MarginRight: double; MarginBottom: double; DrawBox: boolean; DrawText: boolean; DrawShadow: boolean; BoxColor: TColor = clBlack; iPageNo : Integer = 0); const Can_Draw_Text_In_Preview = False; // todo... Support preview of text var Zoom, z1, z: double; x1, y1, x2, y2: integer; dpix, dpiy: integer; PageWidth, PageHeight: integer; begin if PrinterObj = nil then PrinterObj := Printer; Zoom := (MaxBitmapWidth - 5) / (PrinterObj.PageWidth / 100); z1 := (MaxBitmapHeight - 5) / (PrinterObj.PageHeight / 100); if z1 < Zoom then Zoom := z1; z := Zoom / 100; PageWidth := trunc(PrinterObj.PageWidth * z); PageHeight := trunc(PrinterObj.PageHeight * z); dpix := trunc(GetDeviceCaps(PrinterObj.Handle, LOGPIXELSX) * z); dpiy := trunc(GetDeviceCaps(PrinterObj.Handle, LOGPIXELSY) * z); DestBitmap.Width := 1; DestBitmap.Height := 1; DestBitmap.PixelFormat := pf24bit; DestBitmap.Width := PageWidth; DestBitmap.Height := PageHeight; with DestBitmap.Canvas do begin Brush.Color := clWhite; Brush.Style := bsSolid; fillrect(rect(0, 0, destbitmap.width, destbitmap.height)); end; if Can_Draw_Text_In_Preview = False then DrawText := False; PrintImagesEx(DestBitmap.Canvas, dpix, dpiy, PageWidth / dpix, PageHeight / dpiy, True, Columns, Rows, HorizSpace {* dpix}, VertSpace {* dpiy}, PrintSelected, MarginLeft {* dpix}, MarginTop {* dpiy}, MarginRight {* dpix}, MarginBottom {* dpiy}, DrawBox, DrawText, DrawShadow, BoxColor, iPageNo); with DestBitmap.Canvas do begin Brush.Style := bsClear; Pen.Color := IEPrint_Preview_Margin_Color; Pen.Style := psDot; Pen.Width := 1; x1 := trunc(MarginLeft * dpix); y1 := trunc(MarginTop * dpiy); x2 := trunc(PageWidth - MarginRight * dpix); y2 := trunc(PageHeight - MarginBOttom * dpiy); Rectangle(x1, y1, x2, y2); end; end; {!! TImageEnMIO.PrintImagesToFile Declaration procedure PrintImagesToFile(const sFilename : string; iJpegQuality : Integer; iImageWidth, iImageHeight: integer; iColumns : integer; iRows : integer; iHorzSpace : Integer = 6; iVertSpace : Integer = 6; bPrintSelectedOnly: Boolean = False; iHorzMargin : Integer = 12; iVertMargin : Integer = 12; bDrawBox : Boolean = False; bDrawText : Boolean = True; bDrawShadow : Boolean = True; BackgroundColor : TColor = clWhite; BoxColor: TColor = clBlack; iPageNo : Integer = -1); Description Outputs multiple images (all or just selected) in the attached or as rows and columns of thumbnails to a file. Parameter Description sFilename The destination filename for these thumbnails. If all pages are being printed (see iPageNo) then this filename will be automatically adjusted in the format image.jpg, image_2.jpg, image_3.jpg, etc. iJpegQuality If sFilename is a JPEG file then specify the output quality (e.g. 80) iImageWidth The output width for the image iImageHeight The output height for the image iColumns Specifies how many thumbnails span across the page iRows Specifies how many thumbnails span down the page iHorzSpace The horizontal space in pixels between thumbnails iVertSpace The vertical space in pixels between thumbnails bPrintSelectedOnly Set to true to print only selected images. False to print all image in the TImageEnMView iHorzMargin Page margin on left and right of the image (in pixels) iVertMargin Page margin on top and bottom of the image (in pixels) bDrawBox Set to true to draw a box around the images (image space). Image is always stretched to maintain aspect ratio. bDrawText Set to true to draw text associated with every image. bDrawShadow Set to true to draw a shadow around the image. BackgroundColor Specifies the fill color of the image. BoxColor Specifies the color of the box around the image if DrawBox is True. iPageNo The page of thumbnails to output. If this is -1 (default) then all pages are output and the filename is automatically incremented

Example // Save image of thumbnails ImageEnMView1.MIO.PrintImagesToFile('C:\SomeImage.jpg', Screen.Width, Screen.Height, 6, 4, ...); !!} procedure TImageEnMIO.PrintImagesToFile(const sFilename : string; iJpegQuality : Integer; iImageWidth, iImageHeight: integer; iColumns : integer; iRows : integer; iHorzSpace : Integer = 6; iVertSpace : Integer = 6; bPrintSelectedOnly: Boolean = False; iHorzMargin : Integer = 12; iVertMargin : Integer = 12; bDrawBox : Boolean = False; bDrawText : Boolean = True; bDrawShadow : Boolean = True; BackgroundColor : TColor = clWhite; BoxColor: TColor = clBlack; iPageNo : Integer = -1); // NPC: 27/2/13 procedure _PrintImagesToFile(sCurrFilename : string; iCurrPageNo : Integer); var bmp : TBitmap; io: TImageEnIO; begin bmp := TBitmap.create; bmp.Width := iImageWidth; bmp.Height := iImageHeight; bmp.PixelFormat := pf24bit; bmp.Canvas.Brush.Color := BackgroundColor; bmp.Canvas.FillRect(Rect(0, 0, iImageWidth, iImageHeight)); io := TImageEnIO.CreateFromBitmap(bmp); try PrintImagesEx(bmp.Canvas, 1, 1, iImageWidth, iImageHeight, True { as we are not printing }, iColumns, iRows, iHorzSpace, iVertSpace, bPrintSelectedOnly, iHorzMargin, iVertMargin, iHorzMargin, iVertMargin, bDrawBox, bDrawText, bDrawShadow, BoxColor, iCurrPageNo); io.Params.JPEG_Quality := iJpegQuality; io.SaveToFile(sCurrFilename); if io.Aborting then raise EIEException.create(format('Unable to save to %s', [sCurrFilename])); finally io.Free; bmp.free; end; end; var iImageCount: Integer; iThumbsPerPage: integer; iPageCount: Integer; I: Integer; sCurrentFilename: string; begin if bPrintSelectedOnly and assigned( fImageEnMView ) then iImageCount := (fImageEnMView as TImageEnMView).MultiSelectedImagesCount else iImageCount := GetIEMBitmap.Count; iThumbsPerPage := iColumns * iRows; iPageCount := iImageCount div iThumbsPerPage; if iImageCount mod iThumbsPerPage <> 0 then inc(iPageCount); if iPageNo > -1 then _PrintImagesToFile(sFilename, iPageNo) else for I := 0 to iPageCount - 1 do begin if I = 0 then sCurrentFilename := sFilename else sCurrentFilename := ChangeFileExt(sFilename, format('_%d%s', [I + 1, ExtractFileExt(sFilename)])); _PrintImagesToFile(sCurrentFilename, I); if assigned(fOnProgress) then fOnProgress(self, trunc(I / iPageCount * 100)); if fAborting then break end; DoFinishWork(); end; {!! TImageEnMIO.SaveToFileICO Declaration procedure SaveToFileICO(const FileName: string; SelectedOnly: Boolean = False); Description Save all images in the attached or as a GIF file. If SelectedOnly = True and the component is attached to a then only the selected images are output. Note: If an internal save error is encountered will return true. Saving issues due to insufficient write permissions and disk write failures will raise an exception. !!} procedure TImageEnMIO.SaveToFileICO(const FileName: string; SelectedOnly: Boolean = False); var fs: TFileStream; begin fAborting := False; fs := TFileStream.Create(FileName, fmCreate); try SaveToStreamICO(fs, SelectedOnly); finally FreeAndNil(fs); end; end; {!! TImageEnMIO.SaveToStreamICO Declaration procedure SaveToStreamICO(Stream: TStream; SelectedOnly: Boolean = False); Description Save all images in the attached or to a stream in ICO format. If SelectedOnly = True and the component is attached to a then only the selected images are output. Note: If an internal save error is encountered will return true. Saving issues due to insufficient write permissions and disk write failures will raise an exception. !!} procedure TImageEnMIO.SaveToStreamICO(Stream: TStream; SelectedOnly: Boolean = False); var Progress: TProgressRec; NullProgress: TProgressRec; ielist: array of TObject; ie: TImageEnView; procedure _SaveImg(ImgIdx, FileIdx: integer); begin ie := TImageEnView.Create(nil); ie.LegacyBitmap := false; ielist[FileIdx] := ie; Attached_CopyToIEBitmap( ImgIdx, ie.IEBitmap ); ie.IO.Params.Assign( Params[ImgIdx] ); ie.IO.Params.ICO_Sizes[FileIdx].cx := ie.IEBitmap.Width; ie.IO.Params.ICO_Sizes[FileIdx].cy := ie.IEBitmap.Height; ie.IO.Params.ICO_ImageIndex := FileIdx; ie.IO.Params.ICO_Background := Params[ImgIdx].ICO_Background; ie.Update; with Progress do if assigned(fOnProgress) then fOnProgress(Sender, trunc(per1 * FileIdx)); end; var i, imgCount: Integer; begin try fAborting := False; if not IsAttached() then exit; if SelectedOnly and assigned( fImageEnMView ) then imgCount := (fImageEnMView as TImageEnMView).MultiSelectedImagesCount else imgCount := GetIEMBitmap.Count; if imgCount = 0 then exit; Progress := ProgressRec( Self, fOnProgress, fAborting ); NullProgress := NullProgressRec( Progress.Aborting ); Progress.per1 := 100 / imgCount; SetLength(ielist, imgCount); i := 0; while not fAborting and (i < length(ielist)) do begin if SelectedOnly and assigned( fImageEnMView ) then _SaveImg((fImageEnMView as TImageEnMView).MultiSelectedImages[i], i) else _SaveImg(i, i); inc(i); end; ICOWriteStream2(Stream, ielist, Progress); finally for i := 0 to length(ielist) - 1 do TImageEnView(ielist[i]).Free; DoFinishWork; end; end; procedure TImageEnMIO.SetAborting(Value: Boolean); begin fAborting := Value; {$IFDEF IEINCLUDEIEXACQUIRE} fAcquireParams.Aborting := Value; {$ENDIF} {$IFDEF IEINCLUDEWPD} fDCIMParams.Aborting := Value; {$ENDIF} end; function TImageEnMIO.GetParamsList: TIOMultiParams; begin if ( GetIEMBitmap <> nil ) and GetIEMBitmap.ParamsEnabled then Result := GetIEMBitmap.ParamsList else Result := fParamsList; end; function TImageEnMIO.ParamsFromFileOrStream(const FileName: WideString; Stream: TStream; Format: TIOFileType): Boolean; var io: TImageEnIO; idx: Integer; iImageCount: Integer; begin fAborting := False; Result := True; io := TImageEnIO.Create( NIL ); try idx := 0; iImageCount := 1; while idx < iImageCount do begin io.Params.ImageIndex := idx; if Stream = nil then Result := io.ParamsFromFile( FileName, Format ) else begin Stream.Position := 0; Result := io.ParamsFromStream( Stream, Format ); end; if result = False then exit; if idx = 0 then begin iImageCount := io.Params.ImageCount; fParamsList.Allocate( iImageCount ); end; fParamsList.Params[ idx ].Assign( io.Params ); inc( idx ); end; finally FreeAndNil( io ); fAborting := not Result; end; DoFinishWork; end; {!! TImageEnMIO.ParamsFromFile Declaration function ParamsFromFile(const FileName: WideString; Format: = ioUnknown): Boolean; overload; function ParamsFromFile(const FileName: WideString; bUseExtension: Boolean): Boolean; overload; Description Reads the image properties without loading the image (and without changing the current image). Result is false if a loading error is encountered due to a corrupt or unknown image format. FileName is the file name with full path. Format is the file format that the stream or file contains. If ioUnknown is specified then the file content is analyzed to determine the format. bUseExtension determines that the file format is based on the extension of the file, e.g. image.jpeg will be processed as ioJPEG format. Examples // Load the parameters of an image (which may be a TIFF file, but we will examine the content to be sure) ImageEnView1.IO.ParamsFromFile( 'C:\alfa.tiff' ); Label1.Caption := 'alfa.tiff contains ' + inttostr(ImageEnView1.IO.Params[0].ImageCount) + ' images'; // Load the parameters of a TIFF ImageEnView1.IO.ParamsFromFile( 'C:\alfa.tiff', ioTIFF ); Label1.Caption := 'alfa.tiff contains ' + inttostr(ImageEnView1.IO.Params[0].ImageCount) + ' images'; // Load the parameters of a file. It will be assumed to a TIFF because of the file extension ImageEnView1.IO.ParamsFromFile( 'C:\alfa.tiff', True ); Label1.Caption := 'alfa.tiff contains ' + inttostr(ImageEnView1.IO.Params[0].ImageCount) + ' images'; !!} function TImageEnMIO.ParamsFromFile(const FileName: WideString; Format: TIOFileType = ioUnknown): Boolean; begin Result := ParamsFromFileOrStream( FileName, nil, Format ); end; function TImageEnMIO.ParamsFromFile(const FileName: WideString; bUseExtension: Boolean): Boolean; var Format: TIOFileType; begin Format := ioUnknown; if bUseExtension then Format := IEFilenameToInternalFileType( FileName, True ); Result := ParamsFromFileOrStream( FileName, nil, Format ); end; {!! TImageEnMIO.ParamsFromStream Declaration function ParamsFromStream(Stream: TStream; Format: = ioUnknown): Boolean; Description Reads the image properties without loading the image (and without changing the current image). Result is false if a loading error is encountered due to a corrupt or unknown image format. Stream is a TStream that contains the image. Format is the file format that the stream or file contains. If ioUnknown is specified then the file content is analyzed to determine the format. !!} // Fills Params reading Stream, but doesn't load the image // format specifies the file format // The Stream position changes function TImageEnMIO.ParamsFromStream(Stream: TStream; Format: TIOFileType = ioUnknown): Boolean; begin Result := ParamsFromFileOrStream( '', Stream, Format ); end; {!! TImageEnMIO.ParamsFromBuffer Declaration function ParamsFromBuffer(Buffer: Pointer; BufferSize: Integer; Format: = ioUnknown): Boolean; Description Loads image parameters (but not the actual image) from the specified buffer. Result is false if a loading error is encountered due to a corrupt or non-standard image format. Parameter Description Buffer The buffer pointer BufferSize The buffer length in bytes. Format Specifies the expected file format. If Format is ioUnknown, then try to find the format automatically

See also: Example ImageEnView1.IO.ParamsFromBuffer(mybuffer, mybufferlength, ioJPEG); !!} function TImageEnMIO.ParamsFromBuffer(Buffer: Pointer; BufferSize: Integer; Format: TIOFileType): Boolean; var Stream: TIEMemStream; begin Result := False; if ( Buffer = nil ) or ( BufferSize = 0 ) then begin fAborting := true; exit; end; Stream := TIEMemStream.Create( Buffer, BufferSize ); try Result := ParamsFromStream( Stream, Format ); finally FreeAndNil( Stream ); end; end; {$ifdef IEIncludeDeprecatedInV6} // Deprecated in 6.2.0 (2015-06-08) function TImageEnMIO.GetProxyAddress: WideString; begin Result := IEGlobalSettings().ProxyAddress; end; function TImageEnMIO.GetProxyUser: WideString; begin Result := IEGlobalSettings().ProxyUser; end; function TImageEnMIO.GetProxyPassword: WideString; begin Result := IEGlobalSettings().ProxyPassword; end; procedure TImageEnMIO.SetProxyAddress(Value: WideString); begin IEGlobalSettings().ProxyAddress := Value; end; procedure TImageEnMIO.SetProxyUser(Value: WideString); begin IEGlobalSettings().ProxyUser := Value; end; procedure TImageEnMIO.SetProxyPassword(Value: WideString); begin IEGlobalSettings().ProxyPassword := Value; end; {$ENDIF} {$ELSE} // {$ifdef IEINCLUDEMULTIVIEW} interface implementation {$ENDIF} end.