2004.11.14 19:05 "[Tiff] Libtiff in Delphi", by Lars-Göran Edholm
Hi!
I'm trying to read Tiff tags in Delphi 7 but with no luck:
var
han:PTIFF;
begin
if OpenDialog1.Execute then
try
han:=TIFFOpen(OpenDialog1.FileName,'r');
showmessage(inttostr(TIFFGetField(han, TIFFTAG_IMAGEWIDTH)));
except
end;
TIFFClose(han);
end;
I only get: 1
How do i get the width of the picture in pixels?
Mvh
Lars-Göran Edholm tel 026/24 14 36
1:e byggnadsinspektör
Bygg- och miljökontoret
811 80 Sandviken
lars-goran.edholm@sandviken.se