Return-Path: <tiff-bounces@remotesensing.org>
Received: from inmx020.isp.belgacom.be (inmx020.isp.belgacom.be [195.238.3.139])
        by mailst035.isp.belgacom.be (8.12.11/8.12.11/Skynet-MAILSTORE-2.14) with ESMTP id j1SCwdfQ031345
        for <joris.at.lebbeke@skynet.be>; Mon, 28 Feb 2005 13:58:39 +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 inmx020.isp.belgacom.be (8.12.11/8.12.11/Skynet-IN-2.32) with ESMTP id j1SCwQH4004318
        for <joris.at.lebbeke@skynet.be>; Mon, 28 Feb 2005 13:58:29 +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 89C6CEA88A1; Mon, 28 Feb 2005 07:58:10 -0500 (EST)
X-Original-To: tiff@remotesensing.org
Delivered-To: tiff@remotesensing.org
Received: from lnldap1.comunired.com (lnldap1.comunired.com [217.130.24.205])
	by xserve.flids.com (Postfix) with ESMTP id 456E9EA887D
	for <tiff@remotesensing.org>; Mon, 28 Feb 2005 07:58:07 -0500 (EST)
Received: (qmail 18428 invoked by uid 7008); 28 Feb 2005 12:57:13 -0000
Received: from jnunez@indomotika.com by mailrel02 by uid 7007 with
	qmail-scanner-1.20 ( Clear:RC:0(212.145.119.164):. 
	Processed in 0.061666 secs); 28 feb 2005 12:57:13 -0000
Received: from unknown (HELO pctyson) (jnunez@indomotika.com@[212.145.119.164])
	(envelope-sender <jnunez@indomotika.com>)
	by 0 (qmail-ldap-1.03) with SMTP
	for <tiff@remotesensing.org>; 28 Feb 2005 12:57:13 -0000
From: =?iso-8859-1?B?Sm9z6SBNYXLtYSBO+vFleiBPcnR18W8=?= <jnunez@indomotika.com>
To: "'Tiff mailing list'" <tiff@remotesensing.org>
Subject: RE: [Tiff] Delphi TIFF visualization
Date: Mon, 28 Feb 2005 13:58:01 +0100
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-Mailer: Microsoft Office Outlook, Build 11.0.6353
Thread-Index: AcUdlGBsXpCuEgrzQheh9ZVQDiJ3CgAAB1mg
In-Reply-To: <000901c51d93$dd9bf230$a0b6f551@dfgrrxsknr4e>
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1478
X-Qmail-Scanner-Message-ID: <110959543365518410@mailrel02>
Message-Id: <20050228125807.456E9EA887D@xserve.flids.com>
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: 829487675724b9dcf24e4fe350573616

Dear Joris,

Thanks for your quick response. What I need to know is how to develope =
this
ReadTiffIntoBitmap procedure you wrote.

Jos=E9 N=FA=F1ez

-----Mensaje original-----
De: Joris [mailto:joris.at.lebbeke@skynet.be]=20
Enviado el: lunes, 28 de febrero de 2005 13:49
Para: Jos=E9 Mar=EDa N=FA=F1ez Ortu=F1o; Tiff mailing list
Asunto: Re: [Tiff] Delphi TIFF visualization

Oh, and, like I said, going from what I posted before to display in a =
TImage
component is simply a matter of assigning the TBitmap to the =
TImage.Picture
property. Note that this does not transfer ownership of the TBitmap, but
increments usage counters in a copy-on-write scheme (which can be though =
of
as being the same as making a copy, except that it doesn't require =
duplicate
memory and duplication processing resources as long as you don't change
either copy).
So if you're not doing anything else with the TBitmap, you'll have to =
clean
up the owned copy, which people tend to forget. Therefore, you code use =
the
following example code for exactly 'to simply visualize a TIFF image in =
a
Timage control using LibTiffDelphi', using normal Delphi exception
raising/handling methods.

procedure TForm1.VisualizeTIFFFileInImage(Filename: String; Image: =
TImage);
var
  m: TBitmap;
begin
  try
    m:=3DReadTiffIntoBitmap(Filename);
    Image.Picture.Assign(m);
    m.Destroy;
  except
    Image.Picture.Assign(nil);
  end;
end;


Joris Van Damme
info@awaresystems.be
http://www.awaresystems.be/
Download your free TIFF tag viewer for windows here:
http://www.awaresystems.be/imaging/tiff/astifftagviewer.html


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