位图为8bpp，通常为2048 * 2400 * 8bpp

目前我简单地用参数反转复制，大致(伪代码：

for x = 0 to 2048-1
  for y = 0 to 2048-1
    dest[x][y]=src[y][x];

(实际上，我用指针做了一些更快的速度，但是大致相同)

GDI与大图像相当缓慢，纹理(GF7卡)的GPU加载/存储时间与当前cpu时间大致相同。

任何提示，指针？就地算法甚至会更好，但速度比原位更重要。

目标是德尔福，但它更是一个算法问题。 SSE(2)向量化没有问题，这对我来说是一个足够大的问题，在汇编程序中编码

跟随尼尔斯的回答

>图像2048×2700 – > 2700×2048
>编译器Turbo Explorer 2006与优化。
> Windows：电源方案设置为“始终开启”。 (重要！！！！)
>机器：Core2 6600(2.4 GHz)

时间与旧例程：32ms(步骤1)
时间与步骤8：12ms
时间与步骤16：10ms
时间与步骤32：9ms

同时我还在Athlon 64 X2(5200 iirc)上进行了测试，其速度略高于四分之一(80到19毫秒)。

谢谢你的加速。也许在夏季，我会用SSE(2)版本折磨自己。但是我已经考虑过如何解决这个问题，我想我将用完SSE2寄存器来直接实现：

for n:=0 to 7 do
  begin
    load r0,<source+n*rowsize> 
    shift byte from r0 into r1
    shift byte from r0 into r2
    ..
    shift byte from r0 into r8
  end; 
store r1,<target>   
store r2,<target+1*<rowsize>
..
store r8,<target+7*<rowsize>

所以8×8需要9个寄存器，但32位SSE只有8个。无论如何，这是夏天的一天:-)

注意，指针的东西是我本能的本能，但是实际上可能有一些东西，如果你的维度没有硬编码，那么编译器就不能把这个变成一个转变。虽然现在这样一个人很便宜，但是他们也会产生更多的登记压力。

代码(通过从“naieve”rotate1实现中减去结果来验证)：

const stepsize = 32;
procedure rotatealign(Source: tbw8image; Target:tbw8image);

var stepsx,stepsy,restx,resty : Integer;
   RowPitchSource,RowPitchTarget : Integer;
   pSource,pTarget,ps1,ps2 : pchar;
   x,y,i,j: integer;
   rpstep : integer;
begin
  RowPitchSource := source.RowPitch;          // bytes to jump to next line. Can be negative (includes alignment)
  RowPitchTarget := target.RowPitch;        rpstep:=RowPitchTarget*stepsize;
  stepsx:=source.ImageWidth div stepsize;
  stepsy:=source.ImageHeight div stepsize;
  // check if mod 16=0 here for both dimensions,if so -> SSE2.
  for y := 0 to stepsy - 1 do
    begin
      psource:=source.GetImagePointer(0,y*stepsize);    // gets pointer to pixel x,y
      ptarget:=Target.GetImagePointer(target.imagewidth-(y+1)*stepsize,0);
      for x := 0 to stepsx - 1 do
        begin
          for i := 0 to stepsize - 1 do
            begin
              ps1:=@psource[rowpitchsource*i];   // ( 0,i)
              ps2:=@ptarget[stepsize-1-i];       //  (maxx-i,0);
              for j := 0 to stepsize - 1 do
               begin
                 ps2[0]:=ps1[j];
                 inc(ps2,RowPitchTarget);
               end;
            end;
          inc(psource,stepsize);
          inc(ptarget,rpstep);
        end;
    end;
  // 3 more areas to do,with dimensions
  // - stepsy*stepsize * restx        // right most column of restx width
  // - stepsx*stepsize * resty        // bottom row with resty height
  // - restx*resty                    // bottom-right rectangle.
  restx:=source.ImageWidth mod stepsize;   // typically zero because width is 
                                          // typically 1024 or 2048
  resty:=source.Imageheight mod stepsize;
  if restx>0 then
    begin
      // one loop less,since we know this fits in one line of  "blocks"
      psource:=source.GetImagePointer(source.ImageWidth-restx,0);    // gets pointer to pixel x,y
      ptarget:=Target.GetImagePointer(Target.imagewidth-stepsize,Target.imageheight-restx);
      for y := 0 to stepsy - 1 do
        begin
          for i := 0 to stepsize - 1 do
            begin
              ps1:=@psource[rowpitchsource*i];   // ( 0,0);
              for j := 0 to restx - 1 do
               begin
                 ps2[0]:=ps1[j];
                 inc(ps2,RowPitchTarget);
               end;
            end;
         inc(psource,stepsize*RowPitchSource);
         dec(ptarget,stepsize);
       end;
    end;
  if resty>0 then
    begin
      // one loop less,since we know this fits in one line of  "blocks"
      psource:=source.GetImagePointer(0,source.ImageHeight-resty);    // gets pointer to pixel x,y
      ptarget:=Target.GetImagePointer(0,0);
      for x := 0 to stepsx - 1 do
        begin
          for i := 0 to resty- 1 do
            begin
              ps1:=@psource[rowpitchsource*i];   // ( 0,i)
              ps2:=@ptarget[resty-1-i];       //  (maxx-i,stepsize);
         inc(ptarget,rpstep);
       end;
    end;
 if (resty>0) and (restx>0) then
    begin
      // another loop less,since only one block
      psource:=source.GetImagePointer(source.ImageWidth-restx,target.ImageHeight-restx);
      for i := 0 to resty- 1 do
        begin
          ps1:=@psource[rowpitchsource*i];   // ( 0,i)
          ps2:=@ptarget[resty-1-i];       //  (maxx-i,0);
          for j := 0 to restx - 1 do
            begin
              ps2[0]:=ps1[j];
              inc(ps2,RowPitchTarget);
            end;
       end;
    end;
end;

更新2泛型

我试图在Delphi XE中将此代码更新为泛型版本。我因为QC 99703失败了，而且论坛的人已经确认也存在于XE2中。请投票:-)

更新3泛型
现在在XE10工作