Senin, 17 November 2014

Cara membuat file PNG menggunakan delphi 7

Berikut ini adalah cara membuat file PNG dengan menggunakan delphi 7. File gambar dengan format PNG memiliki keistimewasn yang dimana format PNG ringan dan filenya terkompress sehingga berbeda dengan file Bitmap dengan ekstensi BMP yang memiliki ukuran file yang besar, ada bisa download script lengkapnya di website http://proger.i-forge.net/Useful_Delphi_packages/71R.

file PNG juga bisa dibuat menggunakan GDI+ yang dikembangkan oleh http://synopse.info/fossil/wiki?name=GDI%2B yang mana open source ini menurut saya sangat powerfull untuk pengembangan software. selain file PNG juga file GIF, JPG dan TIF juga dikembangkan.



perhatikan script berikut :
procedure BitmapFileToPNG(const Source, Dest: String);
var
  Bitmap: TBitmap;
  PNG: TPNGObject;
begin
  Bitmap := TBitmap.Create;
  PNG := TPNGObject.Create;
  {In case something goes wrong, free booth Bitmap and PNG}
  try
    Bitmap.LoadFromFile(Source);
    PNG.Assign(Bitmap);    //Convert data into png
    PNG.SaveToFile(Dest);
  finally 
    Bitmap.Free;
    PNG.Free;
  end
end;

script di atas adalah bagaimana men-convert file gambar dari format Bitmap ke format PNG.

1 komentar: