delphi如何调用ACDSEE 修改tif文件分辨率(从200dpi*200dpi修改为100dpi*100dpi)及页面大小(从A4改为A3)(150分)

我们这里有很多文件要修改分辨率(从200dpi*200dpi修改为100dpi*100dpi)及页面大小(从A4改为A3),要求调用程序做,用ACDSEE我也知道如何做,我们要求用程序来实现.

有人知道吗?先谢了,我急用,

给你一段代码参考

function GetRectByDpi(SRect:TRect;dpi:integer):TRect;
var
fWidth,fHeight:double;
begin
fWidth:=((SRect.Right-SRect.Left)*dpi)/MM_PER_INCH;//MM_PER_INCH = 25.4;
fHeight:=((SRect.Bottom-SRect.Top)*dpi)/MM_PER_INCH;
//由于该函数只在压缩图像时调用 因此将目标区域进一
result:=Rect(0,0,round(fWidth+0.5),round(fHeight+0.5));
end;

//将指定图片转换为指定dpi后另存为新文件
function SaveJPGAsDpi(SRect:TRect;sSource,sDest:string;nDestDPI:integer):boolean;
var
jpgSource,jpgDest:TJpegImage;
bmp:TBitmap;
ResultRect:TRect;
sPath:string;
begin
result:=false;
if not FileExists(sSource) then Exit;
ResultRect:=GetRectByDpi(SRect,nDestDPI);
jpgSource:=TJpegImage.Create;
jpgDest:=TJpegImage.Create;
bmp:=TBitmap.Create;
try
try
sPath:=GetFilePath(sDest);
if not DirectoryExists(sPath) then
if not ForceDirectories(sPath) then Exit;

jpgSource.LoadFromFile(sSource);
bmp.PixelFormat:=pf24bit;
bmp.Width:=ResultRect.Right-ResultRect.Left;
bmp.Height:=ResultRect.Bottom-ResultRect.Top;
bmp.Canvas.StretchDraw(ResultRect,jpgSource);
jpgDest.Assign(bmp);
jpgDest.SaveToFile(sDest);
except
exit;
end;
finally
jpgSource.Free;
jpgDest.Free;
bmp.Free;
end;
result:=true;
end;