請教一個IMAGE圖片旋轉問題？在線等，急!!!!!!可給130分

Question

我有一個圖片因為打印時它總是旋轉180度，現在我想在打印前將其旋轉180，這樣打印時就是正圖而不是倒立的，請問怎樣才能將其IMAGE圖片旋轉180度，謝謝

Answer 1

var
  i, j: integer;
begin
  //确定旋转后图像的大小
  image3.Picture.Bitmap.Height := image1.picture.Height;
  image3.Picture.Bitmap.Width := image1.picture.Width;
  for i := 0 to image1.Height do
    for j := 0 to image1.Width do
      image3.canvas.Pixels[(image1.Width
        - j), (image1.Height - i)] := image1.canvas.Pixels[j, i];
end;

Answer 2

meiqingsong(阿飛)：為什麼我旋轉DBimage的圖片，卻不能用此命令，它總是提示DBimage1.canvas.Pixels[j, i];沒定義，這要怎樣修改。謝謝!

Answer 3

======by the other
Var  
   JPGImage:TjpegImage;  
   Bitmap:TBitmap;  
   Stream    :  TMemoryStream;  
   FileName:String;  
   ExtName:  string;  
begin  
   JPGImage:=TJpegImage.Create;  
   JPGImage.LoadFromFile(FileName);  
 
   //JPG图象保存到数据库，要以MemoryStream为中介            
   Stream:=  TMemoryStream.Create  ;  
           JPGImage.SaveToStream(Stream);  
             
           table1.append;  
           table1FileName.asstring:=ExtractFileName(FileName);  
           table1Blob.LoadFromStream(Stream);  
           table1.Post;  
             
           Image1.Picture.Assign(JPGImage);  
           Stream.Free  ;

Answer 4

meiqingsong(阿飛) ( ) :謝謝你的支持，旋轉後的圖片怎麼會截掉了一部份。而不是象我們在PHOTOSHOP中或別的軟件一樣，大小不變，只是旋轉角度，這是為什麼？請指教!

Answer 5

可能是你没有设置好图像的高和宽
   image3.Picture.Bitmap.Height 和
   image3.Picture.Bitmap.Width
你把你的代码贴上来看看

Answer 6

謝謝你的支持，旋轉後的圖片怎麼會截掉了一部份。而不是象我們在PHOTOSHOP中或別的軟件一樣，大小不變，只是旋轉角度，這是為什麼？請指教!
你的高和宽不同，在旋转之前先将图片的高度和宽度互换

Answer 7

var
  i, j: integer;
begin
  //确定旋?后位?的大小
     dbimage1.Picture.Bitmap.Height := dbimage1.picture.Height;
     dbimage1.Picture.Bitmap.Width := dbimage1.picture.Width;
  for i := 0 to dbimage1.picture.Height do
    for j := 0 to dbimage1.picture.Width do
      dbimage1.Picture.Bitmap.canvas.Pixels[(dbimage1.Picture.Width
        - j), (dbimage1.Picture.Height - i)]:=DBImage1.Picture.Bitmap.Canvas.Pixels[j, i];
        end;
以上是我的代碼，
 ss__328(潇潇) 我將高與寬都試過了，還是一樣的

Answer 8

你这样做的话只能旋转上一半的图形，
成为一个对称的图形。
  你需要用另一个image将图形旋轉180度，
只用一个的话是做不到的，
i 从0 到（dbimage1.picture.Height div 2） 时，
图形的下一半已经给你改掉了，
是上一半的图形旋转180度后的图形，
图形下一半的信息一丢失，当然不对了。

Answer 9

试下这个API
函数功能：该函数对指定的源设备环境区域中的像素进行位块（bit_block）转换，以传送到目标设备环境。    函数原型：BOOL BitBlt(HDC hdcDest,int nXDest,int nYDest,int nWidth,int nHeight,HDC hdcSrc,int nXSrc,int nYSrc,DWORD dwRop)；    参数：    hdcDest：指向目标设备环境的句柄。    nXDest：指定目标矩形区域左上角的X轴逻辑坐标。    nYDest：指定目标矩形区域左上角的Y轴逻辑坐标。    nWidth：指定源和目标矩形区域的逻辑宽度。    nHeight：指定源和目标矩形区域的逻辑高度。    hdcSrc：指向源设备环境的句柄。    nXSrc：指定源矩形区域左上角的X轴逻辑坐标。    nYSrc：指定源矩形区域左上角的Y轴逻辑坐标。    dwRop：指定光栅操作代码。这些代码将定义源矩形区域的颜色数据，如何与目标矩形区域的颜色数据组合以完成最后的颜色。    下面列出了一些常见的光栅操作代码：    BLACKNESS：表示使用与物理调色板的索引0相关的色彩来填充目标矩形区域，（对缺省的物理调色板而言，该颜色为黑色）。    DSTINVERT：表示使目标矩形区域颜色取反。    MERGECOPY：表示使用布尔型的AND（与）操作符将源矩形区域的颜色与特定模式组合一起。    MERGEPAINT：通过使用布尔型的OR（或）操作符将反向的源矩形区域的颜色与目标矩形区域的颜色合并。    NOTSRCCOPY：将源矩形区域颜色取反，于拷贝到目标矩形区域。    NOTSRCERASE：使用布尔类型的OR（或）操作符组合源和目标矩形区域的颜色值，然后将合成的颜色取反。    PATCOPY：将特定的模式拷贝到目标位图上。    PATPAINT：通过使用布尔OR（或）操作符将源矩形区域取反后的颜色值与特定模式的颜色合并。然后使用OR（或）操作符将该操作的结果与目标矩形区域内的颜色合并。    PATINVERT：通过使用XOR（异或）操作符将源和目标矩形区域内的颜色合并。    SRCAND：通过使用AND（与）操作符来将源和目标矩形区域内的颜色合并。    SRCCOPY：将源矩形区域直接拷贝到目标矩形区域。    SRCERASE：通过使用AND（与）操作符将目标矩形区域颜色取反后与源矩形区域的颜色值合并。    SRCINVERT：通过使用布尔型的XOR（异或）操作符将源和目标矩形区域的颜色合并。    SRCPAINT：通过使用布尔型的OR（或）操作符将源和目标矩形区域的颜色合并。    WHITENESS：使用与物理调色板中索引1有关的颜色填充目标矩形区域。（对于缺省物理调色板来说，这个颜色就是白色）。    返回值：如果函数成功，那么返回值非零；如果函数失败，则返回值为零。    Windows NT：若想获取更多错误信息，请调用GetLastError函数。    备注：如果在源设备环境中可以实行旋转或剪切变换，那么函数BitBlt返回一个错误。如果存在其他变换（并且目标设备环境中匹配变换无效），那么目标设备环境中的矩形区域将在需要时进行拉伸、压缩或旋转。    如果源和目标设备环境的颜色格式不匹配，那么BitBlt函数将源场景的颜色格式转换成能与目标格式匹配的格式。当正在记录一个增强型图元文件时，如果源设备环境标识为一个增强型图元文件设备环境，那么会出现错误。如果源和目标设备环境代表不同的设备，那么BitBlt函数返回错误。