function SpMakeThumbFromFileImageEn(Filename: WideString; OutBitmap: TBitmap;
  ThumbW, ThumbH: Integer; BgColor: TColor; Subsampling, ExifThumbnail, ExifOrientation: Boolean;
  var ImageWidth, ImageHeight: Integer): Boolean;
var
  AttachedIEBitmap: TIEBitmap;
  ImageEnIO: TImageEnIO;
  ImageEnProc: TImageEnProc;
  TempBitmap: TBitmap;
  F: TVirtualFileStream;
  DestR: TRect;
  Ext: string;
  IsRaw, IsVideo: Boolean;
  Orientation: Integer;
  dcraw: THandle;
begin
  Result := False;
  ImageWidth := 0;
  ImageHeight := 0;
  Orientation := 0;
  {$IFDEF WIN32}
  dcraw := GetModuleHandle('dcrawlib.dll');
  {$ENDIF}
  {$IFDEF WIN64}
  dcraw := GetModuleHandle('ielib64.dll'); // Is this correct or do I need something else to load raw images correctly.
  {$ENDIF}
  if not Assigned(OutBitmap) then Exit;
  Ext := WideLowerCase(WideExtractFileExt(Filename));

  IsRaw := (ext = '.crw') or (ext = '.cr2') or (ext = '.dng')
        or (ext = '.nef') or (ext = '.raw') or (ext = '.raf')
        or (ext = '.x3f') or (ext = '.orf') or (ext = '.srf')
        or (ext = '.mrw') or (ext = '.dcr') or (ext = '.bay')
        or (ext = '.pef') or (ext = '.sr2') or (ext = '.arw')
        or (ext = '.kdc') or (ext = '.mef') or (ext = '.3fr')
        or (ext = '.k25') or (ext = '.erf') or (ext = '.cam')
        or (ext = '.cs1') or (ext = '.dc2') or (ext = '.dcs')
        or (ext = '.fff') or (ext = '.mdc') or (ext = '.mos')
        or (ext = '.nrw') or (ext = '.ptx') or (ext = '.pxn')
        or (ext = '.rdc') or (ext = '.rw2') or (ext = '.rwl')
        or (ext = '.iiq') or (ext = '.srw');

  IsVideo := (ext = '.avi') or (ext = '.mpg') or (ext = '.mpeg') or (ext = '.wmv');

  TempBitmap := TBitmap.Create;
  TempBitmap.Canvas.Lock;
  try
    AttachedIEBitmap := TIEBitmap.Create;
    ImageEnIO := TImageEnIO.Create(nil);
    ImageEnProc := TImageEnProc.Create(Nil);
    try
      ImageEnIO.AttachedIEBitmap := AttachedIEBitmap;
      ImageEnProc.AttachedIEBitmap := AttachedIEBitmap;
      ImageEnIO.Params.Width := ThumbW;
      ImageEnIO.Params.Height := ThumbH;
      ImageEnIO.Params.JPEG_Scale := ioJPEG_AUTOCALC;
      ImageEnIO.Params.JPEG_DCTMethod := ioJPEG_IFAST;
      if (dcraw <> 0) then
        // Automatically adjust orientation of all files that contain EXIF info
        ImageEnIO.Params.EnableAdjustOrientation := ExifOrientation;
      // ImageEn bug: TImageEnIO.LoadFromStream doesn't work with wmf/emf/sun files
      if (Ext = '.wmf') or (Ext = '.emf') or (Ext = '.sun') then
      begin
        ImageEnIO.LoadFromFile(Filename);
        ImageWidth := ImageEnIO.Params.Width;
        ImageHeight := ImageEnIO.Params.Height;
        AttachedIEBitmap.CopyToTBitmap(TempBitmap);
      end;
      if IsVideo then
      begin
        ImageEnIO.OpenMediaFile(Filename);
        ImageEnIO.LoadFromMediaFile(5);
        ImageWidth := ImageEnIO.Params.Width;
        ImageHeight := ImageEnIO.Params.Height;
        AttachedIEBitmap.CopyToTBitmap(TempBitmap);
        ImageEnIO.CloseMediaFile;
      end
      else
      begin
        F := TVirtualFileStream.Create(Filename, fmOpenRead or fmShareDenyNone);
        try
          // If dcrawlib.dll is used
          if IsRaw AND (dcraw <> 0) then
          begin
            ImageEnIO.Params.RAW_GetExifThumbnail := False;
            // Do not load small thumbnails from file. They usually have black borders.
            // Use the large size EXIF preview images instead, if they are available.
            ImageEnIO.Params.RAW_ExtraParams := '-e';
            // ImageEnBug: LoadFromStream doesn't work well on RAW files,
            // it doesn't load the Exif thumbnails, use LoadFromStreamRAW instead
            ImageEnIO.LoadFromStreamRAW(F);
            // If no large size EXIF preview images are embedded, use the small thumbs instead
            if (AttachedIEBitmap.Width = 0) OR (AttachedIEBitmap.Height = 0) then
            begin
              ImageEnIO.Params.RAW_GetExifThumbnail := True;
              ImageEnIO.Params.RAW_ExtraParams := '';
              ImageEnIO.LoadFromStreamRAW(F);
            end;
            if ExifOrientation then
              if (ext = '.crw') then
                Orientation := GetCrwOrientation(F) // CRW doesn't have Exif, read the CIFF data
              else
                Orientation := ImageEnIO.Params.EXIF_Orientation;
            if (Orientation = 6) or (Orientation = 8) then
              IEAdjustEXIFOrientation(AttachedIEBitmap, Orientation);
            ImageWidth := AttachedIEBitmap.Width;
            ImageHeight := AttachedIEBitmap.Height;
          end
          else
          // If dcrawlib.dll is not used
          if IsRaw AND (dcraw = 0) then
          begin
            ImageEnIO.Params.RAW_GetExifThumbnail := True;
            ImageEnIO.LoadFromStreamRAW(F);
            if ExifOrientation then
              if (ext = '.crw') then
                Orientation := GetCrwOrientation(F) // CRW doesn't have Exif, read the CIFF data
              else
                Orientation := ImageEnIO.Params.EXIF_Orientation;
            if (Orientation = 6) or (Orientation = 8) then
              IEAdjustEXIFOrientation(AttachedIEBitmap, Orientation);
            ImageWidth := AttachedIEBitmap.Width;
            ImageHeight := AttachedIEBitmap.Height;
          end
          else
          // If it's not a digital camera RAW file
          begin
            ImageEnIO.Params.EnableAdjustOrientation := ExifOrientation;
            ImageEnIO.Params.GetThumbnail := ExifThumbnail;
            ImageEnIO.LoadFromStream(F);
            if ImageEnIO.Params.JPEG_Scale_Used > 1 then
            begin
              ImageWidth := AttachedIEBitmap.Width;
              ImageHeight := AttachedIEBitmap.Height;
            end
            else
            begin
              ImageWidth := ImageEnIO.Params.Width;
              ImageHeight := ImageEnIO.Params.Height;
            end;
          end;
          AttachedIEBitmap.CopyToTBitmap(TempBitmap);
        finally
          F.Free;
        end;
      end;
    finally
      ImageEnIO.Free;
      ImageEnProc.Free;
      AttachedIEBitmap.Free;
    end;
    // Resize the thumb
    // Need to lock/unlock the canvas here
    OutBitmap.Canvas.Lock;
    try
      DestR := SpRectAspectRatio(ImageWidth, ImageHeight, ThumbW, ThumbH, talNone, True);
      SpInitBitmap(OutBitmap, DestR.Right, DestR.Bottom, BgColor);
      // StretchDraw is NOT THREADSAFE!!! Use SpStretchDraw instead
      SpStretchDraw(TempBitmap, OutBitmap.Canvas, DestR, Subsampling);
      Result := True;
    finally
      OutBitmap.Canvas.UnLock;
    end;
    Result := True;
  finally
    TempBitmap.Canvas.Unlock;
    TempBitmap.Free;
  end;
end;

{.$undef IEUSEASM}

// See documentation regarding use of IELIB DLL in 32bit applications
{.$define IEUSEDLLJPEGLIB}
{.$define IEUSEDLLPNGLIB}
{.$define IEUSEDLLJPEG2000LIB}
{.$define IEUSEDLLRAWLIB}

{$ifdef WIN64}
  {$undef IEUSEASM}
  {$define IEUSEDLLJPEGLIB}     // Use DLL Jpeg library (otherwise use linked jpeg library)
  {$define IEUSEDLLPNGLIB}      // Use DLL PNG library (otherwise use linked png library)
  {$define IEUSEDLLJPEG2000LIB} // Use DLL Jpeg2000 (Jasper) library (otherwise use linked jasper library)
  {$define IEUSEDLLRAWLIB}      // Use DLL RAW library (otherwise use embedded RAW library)
  {$undef IEUSEDESIGNINTF}
  {$undef IEUSEFILTEDIT}
  {$undef IEREGISTERPROPERTYEDITOR}
{$endif}

{$IFDEF WIN32}
  dcraw := GetModuleHandle('dcrawlib.dll');
  {$ENDIF}
  {$IFDEF WIN64}
  dcraw := GetModuleHandle('ielib64.dll'); // Is this correct or do I need something else to load raw images correctly.
  {$ENDIF}

{$IFDEF WIN64}
  IELibAvailable();
  {$ENDIF}
  {$IFDEF WIN32}
  if Fileexists(PChar(ExtractFilePath(ParamStr(0)) + '\' + 'dcrawlib.dll')) then
  begin
    IEFileFormatRemove(ioRAW); // disables internal RAW support
    IEAddExtIOPlugIn(ExtractFilePath(ParamStr(0)) + '\' + 'dcrawlib.dll');
  end;
  {$ENDIF}

{$IFDEF WIN32}
ImageEnIO.Params.RAW_ExtraParams := '-e';
{$ENDIF}
{$IFDEF WIN64}
ImageEnIO.Params.RAW_ExtraParams := '-h';
{$ENDIF}

{$IFDEF WIN32}
ImageEnIO.Params.RAW_GetExifThumbnail := False;
// Do not load small thumbnails from file. They usually have black borders.
// Use the large size EXIF preview images instead, if they are available.
ImageEnIO.Params.RAW_ExtraParams := '-e';
{$ENDIF}
{$IFDEF WIN64}
ImageEnIO.Params.RAW_GetExifThumbnail := True;
{$ENDIF}

IEAutoLoadIOPlugins;
ImageEnView1.IO.Params.RAW_ExtraParams := '-e';
ImageEnView1.IO.LoadFromFile( '178H0047a.dng' );

IEAutoLoadIOPlugins;
ImageEnView1.IO.Params.RAW_ExtraParams := '-e';
ImageEnView1.IO.LoadFromFile( '178H0047a.dng' );