在Delphi中实现图片的旋转、缩放

好长时间没有写东西了，并不是因为前面的东西遭受了很多西红柿和鸡蛋，而是自己实在没有什么真实的东西写出来供大家参考。但是最近在帮一个朋友做一个项目的时候，遇到了在delphi中对图像的简单处理，于是不停的从网上找资料，翻看csdn以前的帖子，从我搜索的结果发现很多人会在各种项目中遇到类似的图片处理问题，但是多数得到的答案似乎并不完整（因为很多都没有结帖，也可能是个人习惯的问题，呵呵，希望大家读了我这个文章之后，能够家开结帖速度）。于是我把我遇到的问题和解决方案写在下面，供大家参考，同时欢迎大家继续拍砖。

在正式内容之前要把我要解决的问题写在前面，同时也让读者有一个好的定位，从而不会因为我在处理过程中的拙劣手段而感到恼火。这里主要解决的问题是在Delphi中将用扫描仪扫描得到的图片进行90度旋转，从而得到适合使用的图片，并且由于不能正确把握图片的大小，因此要对图片进行简单的缩放。而我的解决方法也完全是根据此要求进行，因为对于效率、图片处理之后的清晰度考虑的不是很多，同时带来的好处就是程序看起来很简单。

首先，我没有扫描仪，因此我不知道使用扫描程序（已经提供）得到的图片是什么格式，而在Delphi的帮助中说“A bitmap is a powerful graphics object used to create, manipulate (scale, scroll, rotate, and paint), and store images in memory and as files on a disk”，所以我的第一步就是要把我的片转化为TBitmap来处理。在转化格式的同时，我将图片的实际大小改变，以适合后面选取部分图像的需要。函数如下：

procedure TMainForm.Chan