调整TIF文件的问题 ( 积分: 300 )

现有的TIF文件格式为每英寸100点,想调整为每英寸200点
请问如何写上述代码

uses jpeg;

procedure JpegResize(j:TJPEGImage; AWidth,AHeight:Integer);
var
b1,b2 : TBitmap;
begin
b1:=TBitmap.Create;
try
b1.Assign(j);
b2:=TBitmap.Create;
try
with b2 do begin
Width :=AWidth ;
Height:=AHeight;
Canvas.StretchDraw(Rect(0,0,AWidth,AHeight),b1);
end;
j.Assign(b2);
finally
b2.Free;
end;
finally
b1.Free;
end;
end;

kaida 请注意我不是拉伸图象,我是修改每英寸分辨率

分辨率只是一个比例值，高分辨率的图在低分辨率的显示器上显示，你会看到图被拉大了，你用楼上的方法改变大小，然后用如下代码把文件的tag信息内的分辨率改为相应的值就可以了（id为3164692的回复）。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3164692

每英寸分辨率（DPI）是对硬件而言的。