Imageen 建缩略图

最新推荐文章于 2025-08-06 16:59:06 发布

原创最新推荐文章于 2025-08-06 16:59:06 发布 · 3k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#integer #math

Delphi 专栏收录该内容

43 篇文章

订阅专栏

Imageen方法

ImageenView1.Bitmap.Canvas.StretchDraw(Rect(0, 0, 200, 156),ImageenView1.Bitmap);

//==========================JPEG

procedure r;
var
j: TJpegImage;
b: TBitmap;
begin
try
j := TJpegImage.create;
b := TBitmap.create;
b.Width := 1024;
b.Height := 800;
j.loadformfile('test.jpg');
bcanvas.StretchDraw(Rect(0, 0, 1024, 800), j);
j.Assign(b);
finally
j.free;
end;
end;

//最终版本(原创)

uses Math,imageenview;

procedure CutImg(src,dest:string;width,height:Integer); var ImageEnView1:TImageEnView; Bigratio,ratio:Extended; ReTop,ReLeft,ReWidth,ReHeight:Integer; Blur:Extended; begin ImageEnView1:=TImageEnView.Create(nil); ImageEnView1.IO.Bitmap.Canvas.Pen.Color := clWhite; ImageEnView1.IO.Bitmap.Canvas.Pen.Style := psSolid; ImageEnView1.IO.Bitmap.Canvas.Brush.Color := clWhite; ImageEnView1.IO.Bitmap.Canvas.Brush.Style := bsSolid; ImageEnView1.IO.LoadFromFileJpeg(src); ReWidth:=width; ReHeight:=height; if width>ImageEnView1.Bitmap.Width then ReWidth := ImageEnView1.Bitmap.Width; if height>ImageEnView1.Bitmap.height then ReHeight := ImageEnView1.Bitmap.height; Bigratio:=ImageEnView1.Bitmap.Width/ImageEnView1.Bitmap.Height; ratio:=ReWidth/ReHeight; if ratio > Bigratio then begin ReWidth:=Round(ReHeight*Bigratio); end else if ratio < Bigratio then begin ReHeight:=Round(ReWidth/Bigratio); end; if (width>ImageEnView1.Bitmap.Width) and (height>ImageEnView1.Bitmap.height) then Blur:=0 else Blur:=(ImageEnView1.Bitmap.Width/ReWidth)/4+0.2; ImageEnView1.Proc.Blur(Blur); ReTop:=Round((height-ReHeight)/2); ReLeft:=Round((width-ReWidth)/2); ImageEnView1.IO.Bitmap.Canvas.StretchDraw(Rect(0, 0, ReWidth, ReHeight),ImageEnView1.Bitmap); ImageEnView1.Bitmap.Width :=width; ImageEnView1.Bitmap.Height :=height; if (ReLeft>0) or (ReTop>0) then begin ImageEnView1.IO.Bitmap.Canvas.Draw(ReLeft,ReTop,ImageEnView1.Bitmap); ImageEnView1.IO.Bitmap.Canvas.Rectangle(0,0,width,ReTop); ImageEnView1.IO.Bitmap.Canvas.Rectangle(ReWidth+ReLeft,0,width,height); ImageEnView1.IO.Bitmap.Canvas.Rectangle(0,ReHeight+ReTop,width,height); ImageEnView1.IO.Bitmap.Canvas.Rectangle(0,0,ReLeft,height); end; ImageEnView1.IO.SaveToFileJpeg(dest); ImageEnView1.Free; end;