我寫了一個旋轉的程式，原本是用pixel一個一個轉發現速度太慢，我想改用scanline的方式，但是怎麼改都有問題，請問我的問題出在哪呢？

Graphics::TBitmap* bmpSrc = new Graphics::TBitmap();
bmpSrc->Assign(jpeg);

Graphics::TBitmap* bmpDst = new Graphics::TBitmap();

RotateBitmap(bmpSrc, bmpDst); //呼叫旋轉的副程式
jpeg->Assign(bmpDst);

Canvas->Draw(0,0,jpeg);

====================================================================

副程式如下

void __fastcall TForm1::RotateBitmap(Graphics::TBitmap *bmpSrc, Graphics::TBitmap *bmpDst)
{
//===========這部分是用pixel的方式，正確無誤============================

int iSrcW, iSrcH, iDstW, iDstH;
int iX, iY;

iSrcW=bmpSrc->Width;
iSrcH=bmpSrc->Height;

iDstW=iSrcH;
iDstH=iSrcW;

bmpDst->Width=iDstW;
bmpDst->Height=iDstH;

for(iX=0; iX {
for(iY=0; iY {
bmpDst->Canvas->Pixels[iX][iY]=bmpSrc->Canvas->Pixels[iDstH-1-iY][iX];
}
}
}
//==========================================================================

//=====================這部分是用scanline的方式，錯誤============================

int iSrcW, iSrcH, iDstW, iDstH;
int iX, iY;
BYTE *ptr1, *ptr2;

iSrcW=bmpSrc->Width; //bmpSrc->Width = 640
iSrcH=bmpSrc->Height; //bmpSrc->Height = 480

bmpDst->Assign(bmpSrc);

iDstW=iSrcH; //bmpDst->Width = 480
iDstH=iSrcW; //bmpDst->Height = 640

bmpDst->Width=iDstW;
bmpDst->Height=iDstH;

for(iX=0; iX {
ptr2 = (BYTE*) bmpSrc->ScanLine[iX];
for(iY=0; iY {
ptr1 = (BYTE*) bmpDst->ScanLine[iY];
ptr1[iX] = ptr2[iDstH-1-iY];
}
}
}

使用scanline從請先設定pixel format...

這個部分我已經設好了，

我已經發現我的問題是出在ptr1, ptr2的型態應該是(TRGBtriple *)