var
  i, w, h, nKey: integer;;
  NewExtension, OutputFilename: string;
  DestImageEnView, InImageEnView  : TImageEnView;
begin 
    InputFilename := 'cover.jpg'; 
    InImageEnView := TImageEnView.Create(Owner);
    with InImageEnView do begin
      Clear;
      IO.LoadFromFile( InputFilename );
    end;

    DestImageEnView := TImageEnView.Create(Owner);
    with DestImageEnView do begin
      Clear;
      Assign(InImageEnView.IEBitmap);
      LockUpdate;

      Fit;
      Stretch;
      w := 200;
      h := 200;
      Proc.Resample(w, h, rfLanczos3, True);
      Invalidate;
      Proc.Update;

      Proc.ConvertTo(256, ieThreshold);
      IO.Params.BitsPerSample := 8;
      IO.Params.SamplesPerPixel := 1;
      IO.Update;
      Invalidate;

      IO.Params.PNG_Compression := 8;
      IO.Params.Width := IEBitmap.Width;
      IO.Params.Height := IEBitmap.Height;
      IO.Update;

      Update;
      UnLockUpdate;

      OutputFilename := ReplaceStr(InputFilename,'Cover','Folder');
      OutputFilename := ReplaceStr(OutputFilename,'.jpg','.png');
      Log('ConvertImage: save: ' + OutputFilename);
      IO.SaveToFile(OutputFilename, ioPNG);
   end;
end;

var
  w, h: integer;
  InputFilename, OutputFilename: string;
  ImageEnView1: TImageEnView;
begin
  InputFilename := 'D:\im.jpg';

  ImageEnView1 := TImageEnView.Create(Owner);
  ImageEnView1.IO.LoadFromFile( InputFilename );
  ImageEnView1.LockUpdate();

  // Resize to 200x200
  w := 200;
  h := 200;
  ImageEnView1.Proc.Resample(w, h, rfLanczos3, True);

  // Reduce colors
  ImageEnView1.Proc.ConvertTo(256, ieThreshold);

  // Set PixelFormat to 8bit
  ImageEnView1.IEBitmap.PixelFormat := ie8p;

  // Use PixelFormat as authoritative source of bit-depth
  IEGlobalSettings().AutoSetBitDepth := True;

  ImageEnView1.UnLockUpdate();

  // Save it
  OutputFilename := ReplaceStr(InputFilename,'.jpg','.png');
  ImageEnView1.IO.Params.PNG_Compression := 8;
  ImageEnView1.IO.SaveToFile(OutputFilename, ioPNG);

  ImageEnView1.Free;
end;

var
  w, h: integer;
  InputFilename, OutputFilename: string;
  bmp: TIEBitmap;
begin
  InputFilename := 'D:\im2.jpg';

  bmp := TIEBitmap.Create();

  bmp.ParamsEnabled := True;
  bmp.Read( InputFilename );

  // Resize to 200x200
  w := 200;
  h := 200;
  bmp.Resample(w, h, rfLanczos3, True);

  // Set PixelFormat to 8bit
  bmp.PixelFormat := ie8p;

  // Use PixelFormat as authoritative source of bit-depth
  IEGlobalSettings().AutoSetBitDepth := True;

  // Save it
  OutputFilename := ReplaceStr(InputFilename,'.jpg','.png');
  bmp.Params.PNG_Compression := 8;
  bmp.Write(OutputFilename, ioPNG);

  bmp.Free
end;

w := 400;
  h := 400;
      ImageEnView1 := TImageEnView.Create(nil);
      with ImageEnView1 do begin
        IO.LoadFromFile( InputFilename );
        AlphaChannel;                                                           //Add AlphaChannel

        Proc.Resample(w, h, rfLanczos3, True);                                  //Resize to 
        Proc.ConvertTo(256, ieThreshold);                                       //Reduce colors
        Proc.Sharpen(10,4);

        IEBitmap.PixelFormat := ie8p;                                           // Set PixelFormat to 8bit
        IEGlobalSettings().AutoSetBitDepth := True;                             // Use PixelFormat as authoritative source of bit-depth
        OutputFilename := ReplaceStr(InputFilename,'Cover','Folder');           // Save it
        OutputFilename := ReplaceStr(OutputFilename,'.jpg','.png');

        IO.Params.PNG_Compression := 8;
        IO.SaveToFile(OutputFilename, ioPNG);                                   // Save it
        Free;
      end;

  ImageEnView1 := TImageEnView.Create(nil);
  with ImageEnView1 do begin
    IO.LoadFromFile( InputFilename );
    Proc.Resample(400, 400, rfLanczos3, True);
    Proc.ConvertTo(256, ieThreshold);                //Reduce colors
    Proc.Sharpen(10,4);
    IEBitmap.PixelFormat := ie8p;                    // Set PixelFormat to 8bit
    IEGlobalSettings().AutoSetBitDepth := True;
    OutputFilename := ReplaceStr(InputFilename,'Cover','Folder'); 
    OutputFilename := ReplaceStr(OutputFilename,'.jpg','.png');
    IO.Params.PNG_Compression := 8;
    IO.SaveToFile(OutputFilename, ioPNG);                          // Save it
    Free;
  end;