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;

hasilnya seperti pada gambar berikut:

sedangkan untuk mengganti nilai pada tag gunaka seperti contoh berikut :
//===================================================
var tiff:TTiffDI;
    tag,tag1,tag2:TIFDTagR;
  i:integer;
  dest_filename:string;
begin
  if opendialog1.execute then begin
    tiff:=TTiffDI.create();
    dest_filename:='C:\test.tiff';
    try
      tiff.LoadFromFile(opendialog1.Filename);
      for i:=0 to tiff.Count-1 do begin
        tag:=tiff[i];
        if(tag.IFD.tag=33550) then tag1:=tag;
        if(tag.IFD.tag=33922) then tag2:=tag;
      end;
     
      tag2.value:=format('[0][0][0][%0.12f][%0.12f][0]',[10000,100000]);
     
      ...

      tiff.ReplaceTag(dest_filename,[tag1,tag2]);

      ...

    finally
      tiff.destroy;
    end;
  end;
end;
//===================================================


Demo & Script dapat didownload di sini

sumber:
1. http://www.fileformat.info/format/tiff/corion.htm
2. http://www.awaresystems.be/imaging/tiff/tifftags.html