procedure TForm1.Button1Click(Sender: TObject);
var t:TgtPDFDocument; b:tbitmap; ima:TImageEnIO;
begin t:=TgtPDFDocument.Create(nil);
ima:=TImageEnIO.Create(nil); try
if not t.LoadFromFile('c:\temp\6thNL Final.pdf') then exit;
b:=t.GetBitmap(1,200,200);
b.PixelFormat:=pf24bit;
ima.IEBitmap.Assign(b); ima.Params.PNG_Filter:=ioPNG_FILTER_ALL;
ima.SaveToFilePNG('c:\temp\test.png'); finally ima.free; b.Free; t.Free; end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var t:TgtPDFDocument; b:tbitmap; ima:TImageEnIO;
begin t:=TgtPDFDocument.Create(nil);
ima:=TImageEnIO.Create(nil); try
if not t.LoadFromFile('c:\temp\6thNL Final.pdf') then exit;
b:=t.GetBitmap(1,200,200);
b.PixelFormat:=pf24bit;
b.PixelFormat:=pf32bit;
ima.IEBitmap.Assign(b); ima.Params.PNG_Filter:=ioPNG_FILTER_ALL;
ima.SaveToFilePNG('c:\temp\test.png'); finally ima.free; b.Free; t.Free; end;
end;

var 
  ima:TImageEnIO; 
  b:tbitmap;
  im:Tmemorystream;
begin
  im:=TMemoryStream.Create;
  ima:=TImageEnIO.Create(nil); 
  try
    ima.Params.PNG_Filter:=ioPNG_FILTER_ALL;
    b:=('Tbitmap from other image component'); 
    b.SaveTostream(im);
    b.free;
    im.position:=0;
    ima.LoadFromstreamBMP(im); 
    ima.SaveToFilePNG('c:\temp\test1.png');
  finally 
    ima.Free; 
    im.free; 
  end;
end;

var 
  ima: TImageEnIO; 
begin
  ima:=TImageEnIO.Create(nil); 
  try
    ima.IEBitmap.Assign('Tbitmap from other image component'); 
    ima.Params.PNG_Filter:=ioPNG_FILTER_ALL;
    ima.SaveToFilePNG('c:\temp\test0.png');
  finally 
    ima.Free; 
  end;
end;

var 
  b: TIEBitmap;
begin
  b := TIEBitmap.Create(); 
  try
    b.Params.Enabled
    b.Assign('Tbitmap from other image component'); 
    b.Params.PNG_Filter:=ioPNG_FILTER_ALL;
    b.Write('c:\temp\test0.png');
  finally 
    b.Free; 
  end;
end;

var 
  ima:TImageEnIO; 
  b:tbitmap;
begin
  b:=TBitmap.Create; 
  ima:=TImageEnIO.CreateFromBitmap(b); 
  try
    ima.IEBitmap.Clear; 
    ima.AsyncMode:=false; 
    ima.IEBitmap.ParamsEnabled:=true;
    ima.IEBitmap.Location:=ieTBitmap;
    b.Assign('Tbitmap from other image component'); 
    b.SaveToFile('c:\temp\test.bmp');
    //ima.Params.PNG_Compression:=8; 
    ima.Params.PNG_Filter:=ioPNG_FILTER_ALL;
    ima.IEBitmap.UpdateFromTBitmap; 
    ima.SaveToFilePNG('c:\temp\test0.png');
    ima.LoadFromFileBMP('c:\temp\test.bmp'); 
    ima.SaveToFilePNG('c:\temp\test1.png');
  finally 
    ima.Free; 
    b.free; 
  end;
end;