2004.11.14 19:05 "[Tiff] Libtiff in Delphi", by Lars-Göran Edholm

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