Return-Path: <tiff-bounces@remotesensing.org>
Received: from inav007.isp.belgacom.be (inav007.isp.belgacom.be [195.238.2.76])
        by mailst035.isp.belgacom.be (8.12.11/8.12.11/Skynet-MAILSTORE-2.14) with ESMTP id iAFIIpjv009062
        for <joris.at.lebbeke@skynet.be>; Mon, 15 Nov 2004 19:18:51 +0100
        (envelope-from <tiff-bounces@remotesensing.org>)
Received: from inas010.isp.belgacom.be (localhost [127.0.0.1])
        by inav007.isp.belgacom.be (8.12.11/8.12.11/Skynet-IN-AV-3.00) with ESMTP id iAFIIfTG015994
        for <joris.at.lebbeke@skynet.be>; Mon, 15 Nov 2004 19:18:41 +0100
        (envelope-from <tiff-bounces@remotesensing.org>)
Received: from inmx008.isp.belgacom.be (inmx008.isp.belgacom.be [195.238.3.88])
        by inas010.isp.belgacom.be (8.12.11/8.12.11/Skynet-IN-AS-2.03) with ESMTP id iAFIINlZ013271
        for <joris.at.lebbeke@skynet.be>; Mon, 15 Nov 2004 19:18:31 +0100
        (envelope-from <tiff-bounces@remotesensing.org>)
Received: from xserve.flids.com (adsl-065-083-169-202.sip.mco.bellsouth.net [65.83.169.202])
        by inmx008.isp.belgacom.be (8.12.11/8.12.11/Skynet-IN-2.32) with ESMTP id iAFIIBfU000947
        for <joris.at.lebbeke@skynet.be>; Mon, 15 Nov 2004 19:18:12 +0100
        (envelope-from <tiff-bounces@remotesensing.org>)
Received: from adsl-065-083-169-202.sip.mco.bellsouth.net (localhost [127.0.0.1])
	by xserve.flids.com (Postfix) with ESMTP
	id 4C95C4797DD; Mon, 15 Nov 2004 13:18:01 -0500 (EST)
X-Original-To: tiff@remotesensing.org
Delivered-To: tiff@remotesensing.org
Received: from mail2.sandviken.se (mail2.sandviken.se [62.168.132.15])
	by xserve.flids.com (Postfix) with ESMTP id BAFE6475124
	for <tiff@remotesensing.org>; Sun, 14 Nov 2004 14:05:21 -0500 (EST)
Message-id: <fc.004c4e0501835226004c4e0501835226.183523a@sandviken.se>
Date: Sun, 14 Nov 2004 20:05:12 +0100
To: tiff@remotesensing.org
From: "Lars-goran Edholm" <lars-goran.edholm@sandviken.se>
MIME-Version: 1.0
Content-type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Mailman-Approved-At: Mon, 15 Nov 2004 13:17:57 -0500
Subject: [Tiff] Libtiff in Delphi
X-BeenThere: tiff@remotesensing.org
X-Mailman-Version: 2.1.2
Precedence: list
List-Id: TIFF and libtiff discussion  <tiff.remotesensing.org>
List-Unsubscribe: <http://xserve.flids.com/mailman/listinfo/tiff>,
	<mailto:tiff-request@remotesensing.org?subject=unsubscribe>
List-Archive: <http://xserve.flids.com/pipermail/tiff>
List-Post: <mailto:tiff@remotesensing.org>
List-Help: <mailto:tiff-request@remotesensing.org?subject=help>
List-Subscribe: <http://xserve.flids.com/mailman/listinfo/tiff>,
	<mailto:tiff-request@remotesensing.org?subject=subscribe>
Sender: tiff-bounces@remotesensing.org
Errors-To: tiff-bounces@remotesensing.org
X-UIDL: 8f051855d632f60d0d373c5bd030a85f

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


_______________________________________________
Tiff mailing list
Tiff@remotesensing.org
http://xserve.flids.com/mailman/listinfo/tiff
