AWARE SYSTEMS
TIFF and LibTiff Mail List Archive

Thread

2004.11.14 19:05 "[Tiff] Libtiff in Delphi", by Lars-goran Edholm
2004.11.16 10:31 "Re: [Tiff] Libtiff in Delphi", by Joris

2004.11.14 19:05 "[Tiff] Libtiff in Delphi", by Lars-goran 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