谁用过imageEN控件打开tif文件啊 ( 积分: 100 )

谁用过imageEN控件打开tif文件啊

ImageEN.IO.loadfromfile('xxx.tif')

同意楼上的

ImageEnView1.IO.LoadFromFileTIFF('bd.tif')

留意一下．...

procedure AddBmpSy(bmp1, bmp2: TBitmap; var bmp3: TBitmap);
var
i,j,it,jt:integer;
pcolor1,pcolor2:Tcolor;
begin
it:=bmp1.Width-bmp2.Width-6;
jt:=bmp1.Height-bmp2.Height-6;
bmp3.Width:=bmp1.Width;
bmp3.Height:=bmp1.Height;
for i:=0 to bmp1.Width-1 do
begin
for j:=0 to bmp1.Height-1 do
begin
bmp3.Canvas.Pixels[i,j]:=bmp1.Canvas.Pixels[i,j];
end;
end;
for i:=it to bmp2.Width+it-1 do
begin
for j:=jt to bmp2.Height+jt-1 do
begin
pcolor1:=bmp2.Canvas.Pixels[i-it,j-jt];
pcolor2:=bmp1.Canvas.Pixels[i,j];
if (GetRValue(pcolor1)>254) and (GetGValue(pcolor1)>254) and (GetBValue(pcolor1)>254) then
bmp3.Canvas.Pixels[i,j]:=pcolor2
else
bmp3.Canvas.Pixels[i,j]:=pcolor1
end;
end;

end;

非常不好意思，上面的发错地方了。向各位道歉。
但是我关注两幅Bmp或Jpeg生成TIF格式的文件。期望大家踊跃发表意见！

用 LoadFromFileTIIF 或 LoadFromFile 方法都可以实现的。