江苏省通信建设交易中心网站seo服务套餐

想用Lazarus旋转图片，在QT上轻松就能做到的事情，在lazarus上却没有标准实现，只能用其他方式。找了挺多帖子，有这三种有效的方案。

第一种：不依赖其他控件

procedure TMainForm.RotateImage(Bitmap: TBitmap);
varNewBitmap: TBitmap;X, Y: integer;
begin// 创建新的位图对象，用于存储旋转后的图片NewBitmap := TBitmap.Create;try// 设置新位图的宽度和高度，这里交换原位图的宽度和高度NewBitmap.Width := Bitmap.Height;NewBitmap.Height := Bitmap.Width;// 遍历原位图的每个像素for Y := 0 to Bitmap.Height - 1 dofor X := 0 to Bitmap.Width - 1 do// 将原位图的像素按照旋转规则复制到新位图中NewBitmap.Canvas.Pixels[Bitmap.Height - Y - 1, X] := Bitmap.Canvas.Pixels[X, Y];// 清空原位图Bitmap.Canvas.FillRect(0, 0, Bitmap.Width, Bitmap.Height);// 复制旋转后的位图到原位图Bitmap.Assign(NewBitmap);finally// 释放新位图对象NewBitmap.Free;end;
end;

问题是，速度太慢、内存开销较大，一张1080P的图片运行一次要耗费2秒钟左右，太慢了。

第二种：依赖 TBGRABitmap，使用 TBGRAAffineBitmapTransform 进行变换

procedure TMainForm.RotateImage;
varBGRAImg: TBGRABitmap;Affine: TBGRAAffineBitmapTransform;Temp: TBGRABitmap;OldWidth, OldHeight: integer;
begin// 检查 Image1 中是否有图片if Image1.Picture.Bitmap = nil thenExit;OldWidth := Image1.Picture.Bitmap.Width;OldHeight := Image1.Picture.Bitmap.Height;// 创建 TBGRABitmap 对象，并将 Image1 中的图片转换为 TBGRABitmapBGRAImg := TBGRABitmap.Create(Image1.Picture.Bitmap);try// 创建仿射变换对象Affine := TBGRAAffineBitmapTransform.Create(BGRAImg);try// 先将图像平移到原点Affine.Translate(-BGRAImg.Width div 2, -BGRAImg.Height div 2);// 向右旋转 90 度Affine.RotateDeg(90);// 再平移回原来的位置Affine.Translate(BGRAImg.Height div 2, BGRAImg.Width div 2);// 创建临时的 TBGRABitmap 对象，用于存储旋转后的图像Temp := TBGRABitmap.Create(BGRAImg.Height, BGRAImg.Width, BGRAWhite);try// 使用仿射变换填充临时图像Temp.FillPolyAntialias([PointF(0, 0), PointF(Temp.Width, 0),PointF(Temp.Width, Temp.Height), PointF(0, Temp.Height)], Affine);Image1.Picture.Clear;// 调整 Image1 控件的大小以适应旋转后的图片Image1.Width := OldHeight;Image1.Height := OldWidth;// 将旋转后的图像用Image1绘制出Temp.Draw(Image1.Canvas, 0, 0);finally// 释放临时图像对象Temp.Free;end;finally// 释放仿射变换对象Affine.Free;end;finally// 释放 TBGRABitmap 对象BGRAImg.Free;end;
end;

尤其要注意：uses BGRATransform;

速度很快，和第一个比快了30倍左右。

第三种，使用 TBGRABitmap

procedure TMainForm.RotateImage;
varBGRAImg: TBGRABitmap;OldWidth, OldHeight: integer;
begin// 检查 Image1 中是否有图片if Image1.Picture.Bitmap = nil thenExit;// 记录原始图片的宽度和高度OldWidth := Image1.Picture.Bitmap.Width;OldHeight := Image1.Picture.Bitmap.Height;// 创建 TBGRABitmap 对象，并将 Image1 中的图片转换为 TBGRABitmapBGRAImg := TBGRABitmap.Create(Image1.Picture.Bitmap);tryif RotationDeg = 1 thenbeginBGRAReplace(BGRAImg, BGRAImg.RotateCW());   //右转90度end;if RotationDeg = 2 thenbeginBGRAReplace(BGRAImg, BGRAImg.RotateUD());    //翻转180度end;if RotationDeg = 3 thenbeginBGRAReplace(BGRAImg, BGRAImg.RotateCCW());    //左转90度end;// 清空 Image1 原有的图片Image1.Picture.Clear;// 调整 Image1 控件的大小以适应旋转后的图片if (RotationDeg = 1) or (RotationDeg = 3) thenbeginImage1.Width := OldHeight;Image1.Height := OldWidth;end;if (RotationDeg = 2) or (RotationDeg = 0) thenbeginImage1.Width := OldWidth;Image1.Height := OldHeight;end;BGRAImg.Draw(Image1.Canvas, 0, 0);finally// 释放 TBGRABitmap 对象BGRAImg.Free;end;
end;

这个是我个人测试内存开销最小的一个，速度和第二个相当。几乎肉眼看不到延迟。

也是我最后采纳的一个方案。