300分求TIF G4 图像文件打开源码，不要第三方控件。 ( 积分: 300 )

本人最近写传真打印程序，用猫收到的文件为TIF G4谁有源码可打开，GraphicEx9.9试了打不开。请你帮忙，多谢。。。。

本人最近写传真打印程序，用猫收到的文件为TIF G4谁有源码可打开，GraphicEx9.9试了打不开。请你帮忙，多谢。。。。

不要只看不回呀！

http://www.delphibbs.com/keylife/iblog_show.asp?xid=3241
KeyLife富翁笔记
作者?: c_hk
标题?: BmpToTiff

看看这个有没有用吧

只有写的没有读的，我是想读出来并打印呀。

我在线等呢。。。。。。。。。。。。。。。。。。。

sorry，这方面没有做过。问问什么千堆雪，他是图像的版主，或许有办法：）

嘿，要不你看看这些？？？？
来自：chenybin, 时间：2005-9-15 18:40:26, ID：3206809
首先建议去看GraphicEx的源代码，在http://www.2ccc.com 有下载


然后参考如下连接
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1156757
标题是： 谁能提供一些关于Tiff文件格式的资料！

http://www.vclxx.org/DELPHI/D32FREE/BMP2TIFF.ZIP

http://www.programsalon.com/detail.asp?id=97816

http://17433.tomore.com/1/14952.html
等几个地址，思路是先把tif转成bmp，然后再用BMP来显示和打印

不行呀，不能打开！

http://www.codeguru.com/Cpp/G-M/bitmap/otherformats/article.php/c4933
这个网页说得很详细,且有实例,包括怎么读取TIFF文件,怎么显示,怎么写入文件等,不过是VC6.0做的.不知你对C++了解如何?

哪个不行啊，我怎么就能打得开？？？？

我发个图给你看你能打开不。用xp传真器接收的图像不行呀。

最后一招，用ImageEn,看看他是怎么处理的

http://www.2ccc.com/article.asp?articleid=1616

GraphicEx只支持一种Tiff文件，好些是LZW吧，记不得了

GraphicEx没源码的，我只是想搞明白TIF文件是怎样读出来的。

GraphicEx有代码的，在GraphicEx里面，所有的图象类都是从TBitmap间接或直接继承的

TTIFFGraphic = class(TGraphicExGraphic)
private
FIFD: array of TIFDEntry; // the tags of one image file directory
FPalette: TTIFFPalette;
FYCbCrPositioning: Cardinal;
FYCbCrCoefficients: TFloatArray;
function FindTag(Tag: Cardinal; var Index: Cardinal): Boolean;
procedure GetValueList(Stream: TStream; Tag: Cardinal; var Values: TByteArray); overload;
procedure GetValueList(Stream: TStream; Tag: Cardinal; var Values: TCardinalArray); overload;
procedure GetValueList(Stream: TStream; Tag: Cardinal; var Values: TFloatArray); overload;
function GetValue(Stream: TStream; Tag: Cardinal; Default: Single = 0): Single; overload;
function GetValue(Tag: Cardinal; Default: Cardinal = 0): Cardinal; overload;
function GetValue(Tag: Cardinal; var Size: Cardinal; Default: Cardinal = 0): Cardinal; overload;
procedure SortIFD;
procedure SwapIFD;
public
class function CanLoad(Stream: TStream): Boolean; override;
procedure LoadFromStream(Stream: TStream); override;
procedure SaveToStream(Stream: TStream); override;
function ReadImageProperties(Stream: TStream; ImageIndex: Cardinal): Boolean; override;
end;

关键还在另外那个单元，就是压缩的那个单元GraphicCompression

在http://www.2ccc.com 很容易下到，代码是全的

结贴了，多谢大家帮忙。