问题可以分两种解决:
1、图像缩小:可以通过以下语句进行缩小。
function ShrinkJpeg( Jpg : TJpegImage;Scale : TJPEGScale ) : TJpegImage;
begin
Jpg.Scale := Scale;
Jpg.Compress;
Result := Jpg;
end;
//其中TJPEGScale可以取以下值:
//jsFullSize 不缩放
//jsHalf 缩小为原来的二分之一
//jsQuarter 缩小为原来的四分之一
//jsEighth 缩小为原来的八分之一
2、图像放大,稍微麻烦一些
function ZoomJpeg( Jpg : TJpegImage;R : TRect ) : TJpegImage;
var BMP : TBitmap;
begin
BMP := TBitmap.Create;
Result := TJpegImage.Create;
BMP.Canvas.StrechDraw( R,JPG );
Result.Assign( BMP );
end;
//由于TJpgImage类没有CANVAS成员,故借TBitmap类进行缩放是最有效的。
//多想想办法,其实网上还有数也数不清的图像处理控件可以供你免费使用。
//使用CANVAS也并不会受到你是SERVER还是简单APPLICATION,放心去用吧。