LibTiff Mailing List

TIFF and LibTiff Mailing List Archive
November 2004

Previous Thread
Next Thread

Previous by Thread
Next by Thread

Previous by Date
Next by Date

The TIFF Mailing List Homepage
This list is run by Frank Warmerdam
Archive maintained by AWare Systems

Thread

2004.11.14 19:05 "Libtiff in Delphi", by Lars-goran Edholm

2004.11.16 10:31 "Re: Libtiff in Delphi", by Joris Van Damme

2004.11.14 19:05 "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