void __fastcall TForm1::Button1Click(TObject *Sender)
{
Image1->Picture->LoadFromFile("d:\\test.bmp");
for (int x=0;x< Image1->Width*3;x =3)
{
        for (int y=0;y< Image1->Height;y  )
        {
                Byte *ptr=(Byte *)Image1->Picture->Bitmap->ScanLine[y];
                Byte Gray;
                Gray=(ptr[x] ptr[x 1] ptr[x 2])/3;
                ptr[x]=ptr[x 1]=ptr[x 2]=Gray;            }
}
Image1->Invalidate();
}

 Graphics::TBitmap *Bmp = new Graphics::TBitmap();
 Bmp->LoadFromFile("d:\\test.bmp");
   for (int x=0;x< Bmp->Width*3;x =3)
     {
      for (int y=0;y< Bmp->Height;y  )
       {
        Byte *ptr=(Byte *)Bmp->ScanLine[y];
        Byte Gray;
        Gray=(ptr[x] ptr[x 1] ptr[x 2])/3;
        ptr[x]=ptr[x 1]=ptr[x 2]=Gray;
        }
     }
 Image1->Picture->Assign(Bmp);
 delete Bmp; 

引言: taishyang你好,我認為你的作法應該不行... 以下是我by column掃瞄的方法... [code] void __fastcall TForm1::Button1Click(TObject *Sender) { Image1->Picture->LoadFromFile("d:\\test.bmp"); for (int x=0;x< Image1->Width*3;x =3) { for (int y=0;y< Image1->Height;y ) { Byte *ptr=(Byte *)Image1->Picture->Bitmap->ScanLine[y];

for (int y=0;y< Image1->Height;y ) {Byte *ptr=(Byte *)Image1->Picture->Bitmap->ScanLine[y];} 為什麼這行可以看成是掃直得呢? scanline 為什麼知道該掃橫的還是該掃直的? 難道scanline是依照scanline中是 >中就不能用其他變數了嗎?

引言: for (int y=0;y< Image1->Height;y ) {Byte *ptr=(Byte *)Image1->Picture->Bitmap->ScanLine[y];} 為什麼這行可以看成是掃直得呢? scanline 為什麼知道該掃橫的還是該掃直的? 難道scanline是依照scanline中是 >中就不能用其他變數了嗎? >< face="Verdana, Arial, Helvetica"> 說真的，如果 scanline 可以按變數名稱的不同 [x] 或 [y] 甚至是 [t] 而有不一樣的反應，那可能沒人敢用它了 就如同 class="code"> Provides indexed access to each line of pixels. __property void * ScanLine[int Row] = {read=GetScanline}; Description ScanLine is used only with DIBs (Device Independent Bitmaps) for image editing tools that do low-level pixel work. 可以很明顯地看出是以 Row 為單位來存取的。 如果您要以 Column 為單位來存取，那就只能同時存取多個 ScanLine。 大部分影像作業或工業應用都只用灰階(8bit)處理，此時， Byte GreyOnRowColumn=((Byte*)pBmp->ScanLine[Row])[Column]; 就表示圖上 (Row,Column) 座標上的灰階值。 沒空更新的網頁... http://big5.to/吃軟也吃硬 C及指標教學,計算機概論,資訊管理導論... http://home.kimo.com.tw/dllee.tw http://coolsite.to/ushells 介紹Shells,LiteStep,GeoShell....