Kamis, 15 September 2016

Bagaimana cara membaca seluruh tag pada file TIFF

berikut ini adalah tutorial bagaimana caranya membaca seluruh Tag dari file Tiff. script ini disusun untuk berdasarkan https://partners.adobe.com/public/developer/en/tiff/TIFF6.pdf yang menjelaskan struktur format file TIFF.

script ini disusun menggunakan Lazarus/Free Pascal Compiler (FPC) dan dapat pula di-compile menggunakan Delphi 7

berikut penjelasan singkat bagaimana membaca seluruh Tag pada file TIFF

//===================================================
var tiff:TTiffDI;
    tag:TIFDTagR;
  i:integer;
begin
  if opendialog1.execute then begin
    tiff:=TTiffDI.create();
    try
      tiff.LoadFromFile(opendialog1.Filename);
      for i:=0 to tiff.Count-1 do begin
        tag:=tiff[i];
        ....
        ....
      end;
    finally
      tiff.destroy;
    end;
  end;
end;