Declaration
procedure CopyTag(srcPageIndex: integer; srcTagIndex: integer; source: TIETIFFHandler; dstPageIndex: integer);
Description
Copies a tag from another
TIETIFFHandler object (i.e. another TIFF).
| Parameter | Description |
| srcPageIndex | Source page index (0=first page) |
| srcTagIndex | Source tag index (use FindTag to get an index from tag code) |
| source | Source TIETIFFHandler object, that is the source TIFF file |
| dstPageIndex | Destination page index (0=first page) |
Note: Use
FindTag to obtain the
srcTagIndex.
// copy tiff tag 271 (Manufacturer) from file1.tif to file2.tif
var
file1: TIETIFFHandler;
file2: TIETIFFHandler;
begin
file1 := TIETIFFHandler.Create('file1.tif');
file2 := TIETIFFHandler.Create('file2.tif');
file2.CopyTag(0, file1.FindTag(0, 271), file1, 0);
file2.WriteFile('file2.tif');
file2.Free;
file1.Free;
end;