Delphi 图像比例缩放问题 高手来啊

Posted 2023-05-17

编译器是Delphi 2010程序错误很多啊哪个帮忙改下unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1: TForm1;implementation$R *.dfmuses Wincode;procedure TForm1.Button1Click(Sender: TObject);var WicImg: TWICImage; Factory: IWICImagingFactory; Scaler: IWICBitmapScaler; 图像比例变换接口begin WicImg := TWICImage.Create; WicImg.LoadFromFile('c:\temp\test.jpg'); Factory.CreateBitmapScaler(Scaler); Scaler.Initialize(WicImg.Handle, WicImg.Width div 2, WicImg.Height div 3, WICBitmapInterpolationModeFant); WicImg.Handle := IWICBitmap(Scaler); Canvas.Draw(0, 0, WicImg); Scaler := nil; Factory := nil; WicImg.Free;end;end.

function Imgcompression(fileAdd: string;Width,Height,Quality: Integer):Boolean;
var
jpg: TJpegImage;
bmp: TBitmap;
begin
try
Result:= False;
if FileAdd = \'\' then Exit;
bmp := TBitmap.Create;
jpg := TJpegImage.Create;
try
jpg.LoadFromFile(FileAdd);
bmp.Height:= Height;
bmp.Width:= Width;
bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, jpg);
jpg.Assign(bmp);
jpg.CompressionQuality := Quality;
jpg.Compress;
jpg.SaveToFile(fileAdd);
Result:= True;
except
Result:= False;
end;
finally
jpg.Free;
bmp.Free;
end;
end; 参考技术A 图像缩放
自己分解里面的意思, 其实非常简单, 会屏幕截图就会做这个。

如何用DELPHI对JPG等图像进行缩放？

aj:tjpegimage;begin; aj.loadfromfile(\'图片路...\'); aj.com...;//tjpegimage对象的一个属性，设紧缩的比例。全写忘了，你可查一个赞助。varuses jpeg; aj.compress;//tjpegimage对象的一个办法，用于图像的紧缩。 aj.free;end ;大年夜概就是如许子吧。 参考技术A 弗成以看一下Delphi中的 Jpeg例子（包含Jpeg图片缩放功能）：好象放在Delphi5\Help\Samples\jpeg下（跟Demos的目次不一样） 参考技术B 把它转换成位图，然后缩放，在转换成JPG存储。 参考技术C 感谢各位，我试一下看看。