小弟寫了一個影像水平翻轉的程式，可是不知道什麼地方出了問題，僅能翻轉大約三分之一的影像。以下是小弟的程式，懇請各位大人指教，謝謝。 void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *TheBitmap=new Graphics::TBitmap(); Graphics::TBitmap *TempBitmap=new Graphics::TBitmap(); int x, y, width, height; Byte *ptr1, *ptr2; TheBitmap->Assign(Image1->Picture->Bitmap); TempBitmap->Assign(TheBitmap); width=Image1->Picture->Width; height=Image1->Picture->Height; for(y=0 ; y < height ; y ) { ptr1=(Byte *) TempBitmap->ScanLine[y]; ptr2=(Byte *) TheBitmap->ScanLine[y]; for(x=0 ; x < width ; x ) { ptr1[x]=ptr2[width-1-x]; } } Image1->Picture->Bitmap->Assign(TempBitmap); delete TheBitmap; delete TempBitmap; //==========================================// } 發表人 - kttseng2001 於 2003/10/10 23:58:58

kttseng2001你好: 將for迴圈內的Width改成Width*3試試看 <>< face="Verdana, Arial, Helvetica">引言: 小弟寫了一個影像水平翻轉的程式，可是不知道什麼地方出了問題，僅能翻轉大約三分之一的影像。以下是小弟的程式，懇請各位大人指教，謝謝。 void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *TheBitmap=new Graphics::TBitmap(); Graphics::TBitmap *TempBitmap=new Graphics::TBitmap(); int x, y, width, height; Byte *ptr1, *ptr2; TheBitmap->Assign(Image1->Picture->Bitmap); TempBitmap->Assign(TheBitmap); width=Image1->Picture->Width; height=Image1->Picture->Height; for(y=0 ; y < height ; y ) { ptr1=(Byte *) TempBitmap->ScanLine[y]; ptr2=(Byte *) TheBitmap->ScanLine[y]; for(x=0 ; x < width ; x ) //x < width*3 改成這樣試試看 { ptr1[x]=ptr2[width-1-x]; } } Image1->Picture->Bitmap->Assign(TempBitmap); delete TheBitmap; delete TempBitmap; //==========================================//

kttseng2001您好:   請參考下面連結作適當的修改 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38266 謝謝您的配合

引言: 小弟寫了一個影像水平翻轉的程式，可是不知道什麼地方出了問題，僅能翻轉大約三分之一的影像。以下是小弟的程式，懇請各位大人指教，謝謝。 void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *TheBitmap=new Graphics::TBitmap(); Graphics::TBitmap *TempBitmap=new Graphics::TBitmap(); int x, y, width, height; Byte *ptr1, *ptr2; TheBitmap->Assign(Image1->Picture->Bitmap); TempBitmap->Assign(TheBitmap); width=Image1->Picture->Width; height=Image1->Picture->Height; for(y=0; yScanLine[y]; ptr2=(Byte *) TheBitmap->ScanLine[y]; for(x=0; xPicture->Bitmap->Assign(TempBitmap); delete TheBitmap; delete TempBitmap; //==========================================// }

kttseng2001 你好: 試試看改成這樣子寫行不行呢?? < class="code"> Graphics::TBitmap *bmp=new Graphics::TBitmap; int x=0, y=0; Byte *ptr=NULL; bmp->Assign(Image1->Picture->Bitmap); for(y=0; yPicture->Bitmap->Height; y ) { ptr=(Byte*)bmp->ScanLine[y]; for(x=0; xPicture->Bitmap->Width/2; x ) { ptr[x]^=ptr[Image1->Picture->Bitmap->Width-1-x]; ptr[Image1->Picture->Bitmap->Width-1-x]^=ptr[x]; ptr[x]^=ptr[Image1->Picture->Bitmap->Width-1-x]; } } Image1->Picture->Bitmap->Assign(bmp); delete bmp; 備註: (1)以上範例程式碼只適用於 8 bit (256色) 的 Bitmap (2)如果你的 Bitmap 是 24 bit 的話，請自行調整修改 -- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/10/11 00:19:34

引言: kttseng2001你好: 將for迴圈內的Width改成Width*3試試看 <>< face="Verdana, Arial, Helvetica">引言: 小弟寫了一個影像水平翻轉的程式，可是不知道什麼地方出了問題，僅能翻轉大約三分之一的影像。以下是小弟的程式，懇請各位大人指教，謝謝。 void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *TheBitmap=new Graphics::TBitmap(); Graphics::TBitmap *TempBitmap=new Graphics::TBitmap(); int x, y, width, height; Byte *ptr1, *ptr2; TheBitmap->Assign(Image1->Picture->Bitmap); TempBitmap->Assign(TheBitmap); width=Image1->Picture->Width; height=Image1->Picture->Height; for(y=0 ; y < height ; y ) { ptr1=(Byte *) TempBitmap->ScanLine[y]; ptr2=(Byte *) TheBitmap->ScanLine[y]; for(x=0 ; x < width ; x ) //x < width*3 改成這樣試試看 { ptr1[x]=ptr2[width-1-x]; } } Image1->Picture->Bitmap->Assign(TempBitmap); delete TheBitmap; delete TempBitmap; //==========================================//

ayuen 您好： 謝謝您的指教，在修改過後，是可以將整張圖片翻轉，可是顏色卻與原來的不同了....而且...我不明白的是..為什麼要乘三倍才可以呢...整張圖的寬度應該就是>>> >再次煩請各位前輩指教，感激不盡，謝謝。< > 發表人 -

引言: kttseng2001您好: 請參考下面連結作適當的修改 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38266 謝謝您的配合 < face="Verdana, Arial, Helvetica"> taishyang 您好： 已將原文修改完成，小弟初次發表文章，不懂規矩，還請版主大人見諒，感謝您的指教。 發表人 -

kttseng2001 你好,  你只翻轉了三分之一, 正是因為像素是24bits, 也就是以三個  byte 來表示一個像素的顏色, 至於Image1->Picture->Width  是整張影像的寬度...使用ScanLine 必須注意到像素是怎麼組成的  這點要非常注意... 也就是看 PixelFormat 是多少...    另外, 如果你以ScanLine 來翻轉的話, 要注意因為你使用  byte-by-byte 方式複製, 這會造成顏色錯誤...   如果以24bit 來說, 在ScanLine中的顏色擺放方式是有特定形式的  以blue->green->red 各佔一個byte, 所以你不能直接複製, 要以  整個像素為單位複製....以下是改自你的範例:    

    void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *TheBitmap=new Graphics::TBitmap();
Graphics::TBitmap *TempBitmap=new Graphics::TBitmap();
int x, y, width, height;
//Byte *ptr1, *ptr2;
typedef char (*tri)[3]; // 譬如, 16bit 像素, 這裏改2
tri ptr1, ptr2;
Image1->Picture->Bitmap->PixelFormat; // 請注意這個
TheBitmap->Assign(Image1->Picture->Bitmap);
TempBitmap->Assign(TheBitmap);
width=Image1->Picture->Width;
height=Image1->Picture->Height;
for(y=0 ; y < height ; y  )
{
ptr1=(tri) TempBitmap->ScanLine[y];
ptr2=(tri) TheBitmap->ScanLine[y];
for(x=0 ; x < width ; x  )
{
(*(ptr1 x))[0]=(*(ptr2 (width-1)-x))[0]; // blue
(*(ptr1 x))[1]=(*(ptr2 (width-1)-x))[1]; // green
(*(ptr1 x))[2]=(*(ptr2 (width-1)-x))[2]; // red
}
}
Image1->Picture->Bitmap->Assign(TempBitmap);
delete TheBitmap;
delete TempBitmap;
}    

發表人 - royce520 於 2003/10/11 19:20:50

------
不要忘記呼吸，不要忘記編程！ ∩__∩

引言: kttseng2001 你好, 你只翻轉了三分之一, 正是因為像素是24bits, 也就是以三個 byte 來表示一個像素的顏色, 至於Image1->Picture->Width 是整張影像的寬度...使用ScanLine 必須注意到像素是怎麼組成的 這點要非常注意... 也就是看 PixelFormat 是多少... 另外, 如果你以ScanLine 來翻轉的話, 要注意因為你使用 byte-by-byte 方式複製, 這會造成顏色錯誤... 如果以24bit 來說, 在ScanLine中的顏色擺放方式是有特定形式的 以blue->green->red 各佔一個byte, 所以你不能直接複製, 要以 整個像素為單位複製....以下是改自你的範例:

    void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *TheBitmap=new Graphics::TBitmap();
Graphics::TBitmap *TempBitmap=new Graphics::TBitmap();
int x, y, width, height;
//Byte *ptr1, *ptr2;
typedef char (*tri)[3]; // 譬如, 16bit 像素, 這裏改2
tri ptr1, ptr2;
Image1->Picture->Bitmap->PixelFormat; // 請注意這個
TheBitmap->Assign(Image1->Picture->Bitmap);
TempBitmap->Assign(TheBitmap);
width=Image1->Picture->Width;
height=Image1->Picture->Height;
for(y=0 ; y < height ; y  )
{
ptr1=(tri) TempBitmap->ScanLine[y];
ptr2=(tri) TheBitmap->ScanLine[y];
for(x=0 ; x < width ; x  )
{
(*(ptr1 x))[0]=(*(ptr2 (width-1)-x))[0]; // blue
(*(ptr1 x))[1]=(*(ptr2 (width-1)-x))[1]; // green
(*(ptr1 x))[2]=(*(ptr2 (width-1)-x))[2]; // red
}
}
Image1->Picture->Bitmap->Assign(TempBitmap);
delete TheBitmap;
delete TempBitmap;
}    

發表人 - royce520 於 2003/10/11 19:20:50

royce520 您好： 非常感謝您如此詳細的解說，令我對於ScanLine的操作有更深入的了解，希望以後還能有此榮幸與機會向您請教，再次感謝您喔～