这个过程看不懂,谁能帮我把它改成旋转180度及270度?最好给我解释一下.(100分)

taizhi · 2006-08-28

procedure ImageRotate90(aBitmap: TBitmap); var  nIdx, nOfs,  x, y, i,  nMultiplier: integer;  nMemWidth, nMemHeight, nMemSize,  nScanLineSize: LongInt;  aScnLnBuffer: PChar;  aScanLine: PByteArray; begin  nMultiplier := GetPixelSize(ABitmap);  nMemWidth := aBitmap.Height;  nMemHeight := aBitmap.Width;  nMemSize := nMemWidth * nMemHeight * nMultiplier;  GetMem(aScnLnBuffer, nMemSize);  try   nScanLineSize := aBitmap.Width * nMultiplier;   GetMem(aScanLine, nScanLineSize);   try     for y := 0 to aBitmap.Height-1 do     begin       Move(aBitmap.ScanLine[y]^, aScanLine^, nScanLineSize);       for x := 0 to aBitmap.Width-1 do       begin         [red]nIdx := ((aBitmap.Width-1) - x) * nMultiplier;         nOfs := (x * nMemWidth * nMultiplier) +                     (y * nMultiplier); //这两个计算公式是如何得来的?[/red]                 for i := 0 to nMultiplier-1 do           Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];       end;     end;     aBitmap.Height := nMemHeight;     aBitmap.Width := nMemWidth;     for y := 0 to nMemHeight-1 do     begin       nOfs := y * nMemWidth * nMultiplier;       Move((@(aScnLnBuffer[nOfs]))^, aBitmap.ScanLine[y]^, nMemWidth * nMultiplier);     end;   finally     FreeMem(aScanLine, nScanLineSize);   end;  finally    FreeMem(aScnLnBuffer, nMemSize);  end; end;

lanyun2 · 2006-08-28

留个记号

冰力不足 · 2006-08-28

马尿代码就是难看无损旋转变成头晕晕的转

zywcd · 2006-08-28

你另外一个贴子的代码更容易做一些。已经帮你改好。 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3547516

winni · 2006-08-29

直接操作内存啊，研究一下

taizhi · 2006-08-29

向各位再请教一下: nIdx := ((aBitmap.Width-1) - x) * nMultiplier; nOfs := (x * nMemWidth * nMultiplier) +(y * nMultiplier); 以上这两个计算公式是如何得来的?  有谁能告诉我吗?

taizhi · 2006-08-29

to 冰力不足  你说"马尿代码"是什么意思?如果你觉得有什么不妥的地方,就直说啊?

taizhi · 2006-08-29

to zywcd 你能帮我解决一下红色的这两行代码是怎么得来的吗?

zywcd · 2006-08-29

你首先注意这句：nMultiplier := GetPixelSize(ABitmap);获取当前BITMAP不同颜色深度对应的每个像素所占字节大小。(占byte数目) nIdx := ((aBitmap.Width-1) - x) * nMultiplier;//计算源图处理像素位置指针位置 nOfs := (x * nMemWidth * nMultiplier) +(y * nMultiplier); //计算目标BITMAP像素指针位置 for i := 0 to nMultiplier-1 do     Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];／／根据上面计算的指针位置，把源图像素复制到目标BITMAP

小虾米爱吃鱼 · 2006-08-29

什么怎么得来的啊？你看看是什么意思就可以了啊！不就是操作位图的各个像素嘛！自己用几个数据代进去看看！在纸上画画算一下就知道了

taizhi · 2006-08-29

to zywcd  我知道那两行的代码是什么作用,但还是不明白公式得来的理由.如为什么nOfs 等于 (x * nMemWidth * nMultiplier) +(y * nMultiplier); 你能帮我解释一下吗?  我明白了公式得来的理由之后,我才知道怎么写旋转180度及270度.

nicai_wgl · 2006-08-29

找开源控件学习一下。

zywcd · 2006-08-29

你另外一个贴子都给你写好了。你看看吧。

taizhi · 2006-08-29

to zwcd 那个贴子,只能针对于24位图像进行旋转,如果是32位则旋转后变成黑白色.

lanyun2 · 2006-08-29

//逆时针旋转90度<您的程序> procedure ImageRotate90(aBitmap: TBitmap); var  nIdx, nOfs,  x, y, i,  nMultiplier: integer;  nMemWidth, nMemHeight, nMemSize,  nScanLineSize: LongInt;  aScnLnBuffer: PChar;  aScanLine: PByteArray; begin  nMultiplier := GetPixelSize(ABitmap);  nMemWidth := aBitmap.Height;  nMemHeight := aBitmap.Width;  nMemSize := nMemWidth * nMemHeight * nMultiplier;  GetMem(aScnLnBuffer, nMemSize);  try   nScanLineSize := aBitmap.Width * nMultiplier;   GetMem(aScanLine, nScanLineSize);   try     for y := 0 to aBitmap.Height-1 do     begin       Move(aBitmap.ScanLine[y]^, aScanLine^, nScanLineSize); {       for x := 0 to aBitmap.Width-1 do       begin         nIdx := ((aBitmap.Width-1) - x) * nMultiplier;         nOfs := (x * nMemWidth * nMultiplier) +  // y component of the dst                   (y * nMultiplier); // x component of the dst         for i := 0 to nMultiplier-1 do           Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];       end; }     end;     aBitmap.Height := nMemHeight;     aBitmap.Width := nMemWidth;     for y := 0 to nMemHeight-1 do     begin       nOfs := y * nMemWidth * nMultiplier;       Move((@(aScnLnBuffer[nOfs]))^, aBitmap.ScanLine[y]^, nMemWidth * nMultiplier);     end;   finally     FreeMem(aScanLine, nScanLineSize);   end;  finally    FreeMem(aScnLnBuffer, nMemSize);  end; end;   //------------------------- 用下一段替换你原程序中的相应位置，是顺时针旋转90度，也就是旋转270度拉 for x := 0 to aBitmap.Width-1 do       begin         //nIdx := ((aBitmap.Width-1) - x) * nMultiplier;         nIdx := (x) * nMultiplier;         nOfs := (x * nMemWidth * nMultiplier) +  // y component of the dst                   ((aBitmap.Height-1-y) * nMultiplier);             // x component of the dst         for i := 0 to nMultiplier-1 do           Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];       end; //旋转180度 procedure ImageRotate180(aBitmap: TBitmap); var  nIdx, nOfs,  x, y, i,  nMultiplier: integer;  nMemWidth, nMemHeight, nMemSize,  nScanLineSize: LongInt;  aScnLnBuffer: PChar;  aScanLine: PByteArray; begin                                  //TODO:这里应该是根据Abitmap.PixelFormat返回的一个值，                    //例如Pf24bit应该是3                    // 这里我用了3 ，   简单起见，呵呵                    //  nMultiplier := 3;//(ABitmap);  nMemWidth := aBitmap.Width;  nMemHeight := aBitmap.Height;  nMemSize := nMemWidth * nMemHeight * nMultiplier; //获取整个图片大小的内存  GetMem(aScnLnBuffer, nMemSize);                   //-  try   nScanLineSize := aBitmap.Width * nMultiplier;   //图片的扫描行宽度   GetMem(aScanLine, nScanLineSize);   try     for y :=0 to  aBitmap.Height-1 do     begin       Move(aBitmap.ScanLine[y]^, aScanLine^, nScanLineSize);       //下边这个循环主要功能就是根据旋转的度数要求       //将原图片中像素的值放到缓冲区中合适的位置。       //例如要求旋转180度。则原图中左上角的像素应该变成缓冲       //区中的右下角的像素       for x := 0 to aBitmap.Width-1  do       begin         nIdx := ( x) * nMultiplier;         nOfs := ((ABitmap.Height-1-y) * nMemWidth * nMultiplier) +  // y component of the dst                   ((ABitMap.Width-1- X) * nMultiplier); // x component of the dst         for i := 0 to nMultiplier-1 do           Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];       end;     end;     aBitmap.Height := nMemHeight;     aBitmap.Width := nMemWidth;     //将缓冲区中的数据刷新到图片中     for y := 0 to nMemHeight-1 do     begin       nOfs := y * nMemWidth * nMultiplier;       Move((@(aScnLnBuffer[nOfs]))^, aBitmap.ScanLine[y]^, nMemWidth * nMultiplier);     end;   finally     FreeMem(aScanLine, nScanLineSize);   end;  finally    FreeMem(aScnLnBuffer, nMemSize);  end; end;

taizhi · 2006-08-29

to lanyun2 你的方法对于旋转180度无效?

zywcd · 2006-08-29

旋转－90度， procedure ImageRotate90(aBitmap:TBitmap); var  nIdx,nOfs,    x,y,i,    nMultiplier:integer;  nMemWidth,nMemHeight,nMemSize,    nScanLineSize:LongInt;  aScnLnBuffer

Char;  aScanLine

ByteArray; begin  nMultiplier:=3; //GetPixelSize(ABitmap);  nMemWidth:=aBitmap.Height;  nMemHeight:=aBitmap.Width;  nMemSize:=nMemWidth*nMemHeight*nMultiplier;  GetMem(aScnLnBuffer,nMemSize);  try    nScanLineSize:=aBitmap.Width*nMultiplier;    GetMem(aScanLine,nScanLineSize);    try      for y:=0 to aBitmap.Height-1 do      begin        Move(aBitmap.ScanLine[y]^,aScanLine^,nScanLineSize);        for x:=0 to aBitmap.Width-1   do        begin //        nIdx:=((aBitmap.Width-1)-x)*nMultiplier; //旋转90度         nIdx:=(x)*nMultiplier; //旋转-90度          nOfs:=(x*nMemWidth*nMultiplier)+(( aBitmap.Height-1- y)*nMultiplier);          for i:=0 to nMultiplier-1 do            Byte(aScnLnBuffer[nOfs+i]):=aScanLine[nIdx+i];        end;      end;      aBitmap.Height:=nMemHeight;      aBitmap.Width:=nMemWidth;      for y:=0 to nMemHeight-1 do      begin        nOfs:=y*nMemWidth*nMultiplier;        Move((@(aScnLnBuffer[nOfs]))^,aBitmap.ScanLine[y]^,nMemWidth*nMultiplier);      end;    finally      FreeMem(aScanLine,nScanLineSize);    end;  finally    FreeMem(aScnLnBuffer,nMemSize);  end; end;

taizhi · 2006-08-29

zywcd,lanyun2  能帮我看看如何旋转180度吗?

lanyun2 · 2006-08-29

你将图片Refresh一下，应该能看到效果吧？

qutwah · 2006-08-29

Refresh也一样,没有一点反应.90度与270度就有用.

这个过程看不懂,谁能帮我把它改成旋转180度及270度?最好给我解释一下.(100分)

taizhi

Unregistered / Unconfirmed

lanyun2

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

winni

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

小虾米爱吃鱼

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

lanyun2

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

zywcd

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

lanyun2

Unregistered / Unconfirmed

qutwah

Unregistered / Unconfirmed

Similar threads