扫描了一些全是文字的书籍，页面都有些倾斜，求针对这样图片的自动批量旋转软件？ 不要求识别，只要求旋转正了。

Question

扫描了一些全是文字的书籍，页面都有些倾斜，求针对这样图片的自动批量旋转软件？
不要求识别，只要求旋转正了。

Answer 1

unit Unit1;interfaceuses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;type
  TForm1 = class(TForm)
    ImageCert: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure RotateImage;
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
RotateImage;
end;procedure TForm1.RotateImage;
var x,y : Integer;
    TmpBitMap : TBitmap;
begin
  TmpBitMap := TBitmap.Create;
  try
    TmpBitMap.Assign(ImageCert.Picture.Graphic);
    with ImageCert do begin
      Picture.Bitmap.Height := TmpBitMap.Width;
      Picture.Bitmap.Width := TmpBitMap.Height;
      for x:=0 to Height do
        for y:=0 to Width do
          Canvas.Pixels[TmpBitMap.Height-x,y] := TmpBitMap.Canvas.Pixels[y,x];
      Height := TmpBitMap.Width;
      Width := TmpBitMap.Height;
    end;
  finally
    TmpBitMap.Free;
  end;
end;
end.

Answer 2

www.dxmylove.com 原创精品 5 靖源图片水印缩略图精灵 
支持批量图片旋转