我參考了板上的文章寫了一個計算Mean值的程式，但是開啟2048*1024的BMP檔時....就非常慢。所以我改用了Scanline的做法提高速度，不過問題出現了我加了幾行程式進去後，LOAD BMP檔之後就出現Scanline out of range的問題 P.S(程式還沒寫)只是試著將程式修改    

if (OpenPictureDialog1->Execute())
   {
       Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
   }
      Graphics::TBitmap *bmp= new Graphics::TBitmap;//後來加入的程式
      byte     *ptr;//後來加入的程式
      for (int i=0;iPicture->Width;i  )
      {
       ptr = (Byte *)bmp->ScanLine[Image1->Picture->Width];//後來加入
                                                           //的程式
      for (int j=0;jPicture->Height;j  )
      {          R = GetRValue(Image1->Canvas->Pixels[i][j]);
      G = GetGValue(Image1->Canvas->Pixels[i][j]);
      B = GetBValue(Image1->Canvas->Pixels[i][j]);
        a=a (R G B)/3;
      }
      }
       Edit1->Text=a/(Image1->Picture->Height*Image1->Picture->Width);
       Edit2->Text=Image1->Picture->Height;
       Edit3->Text=Image1->Picture->Width;
       Label4->Caption=ExtractFileName(OpenPictureDialog1->FileName);
      }"    

發表人 - penny015 於 2005/03/29 16:21:23

您好: PO程式碼的方式請參考版規,煩請修改謝謝您的配合 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47262 Scanline out of range指的是超出掃描的範圍了 且範圍是Height而非Width,還有bmp沒指定內容為何 順心

引言: 您好: PO程式碼的方式請參考版規,煩請修改謝謝您的配合 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47262 Scanline out of range指的是超出掃描的範圍了 且範圍是Height而非Width,還有bmp沒指定內容為何 順心 < face="Verdana, Arial, Helvetica"> 你好：請問你說的bmp沒指定內容是說將BMP宣告成24BIT嗎???我剛剛修改了Scanline範圍是Height以及BMP宣告成24BIT但是還是會出現Scanline out of range，請問大大我還有什麼地方漏掉了嗎???

引言:請問你說的bmp沒指定內容是說將BMP宣告成24BIT嗎

我指的是,您為bmp配置了記憶體

Graphics::TBitmap *bmp= new Graphics::TBitmap;但卻沒有給他內容
bmp->Assign(xxx);
且您的程式碼感覺是拼湊出來的,邏輯怪怪的
已經用ScanLine就不需要Canvas->Pixels
我想您要的應該是像下面那樣吧
   Image1->AutoSize = true;
   if (OpenPictureDialog1->Execute())
   {
      Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
   }
   Image1->Picture->Bitmap->PixelFormat = pf24bit;
   byte *ptr=NULL;//後來加入的程式
   int a=0;
   for (int i=0;iPicture->Height;i  )
   {
      ptr = (Byte *)Image1->Picture->Bitmap->ScanLine[i];
      for (int j=0;jPicture->Width;j  )
      {
         int B = ptr[j*3];
         int G = ptr[j*3 1];
         int R = ptr[j*3 2];
         a=a (R G B)/3;
      }
   }
   Edit1->Text=a/(Image1->Picture->Height*Image1->Picture->Width);
   Edit2->Text=Image1->Picture->Height;
   Edit3->Text=Image1->Picture->Width;
   Label4->Caption=ExtractFileName(OpenPictureDialog1->FileName);

順心 發表人 -

版主大大：謝謝你了，現在程式OK了，真是感謝。    

引言:

引言:請問你說的bmp沒指定內容是說將BMP宣告成24BIT嗎

我指的是,您為bmp配置了記憶體

Graphics::TBitmap *bmp= new Graphics::TBitmap;但卻沒有給他內容
bmp->Assign(xxx);
且您的程式碼感覺是拼湊出來的,邏輯怪怪的
已經用ScanLine就不需要Canvas->Pixels
我想您要的應該是像下面那樣吧
   Image1->AutoSize = true;
   if (OpenPictureDialog1->Execute())
   {
      Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
   }
   Image1->Picture->Bitmap->PixelFormat = pf24bit;
   byte *ptr=NULL;//後來加入的程式
   int a=0;
   for (int i=0;iPicture->Height;i  )
   {
      ptr = (Byte *)Image1->Picture->Bitmap->ScanLine[i];
      for (int j=0;jPicture->Width;j  )
      {
         int B = ptr[j*3];
         int G = ptr[j*3 1];
         int R = ptr[j*3 2];
         a=a (R G B)/3;
      }
   }
   Edit1->Text=a/(Image1->Picture->Height*Image1->Picture->Width);
   Edit2->Text=Image1->Picture->Height;
   Edit3->Text=Image1->Picture->Width;
   Label4->Caption=ExtractFileName(OpenPictureDialog1->FileName);

順心 發表人 - >< face="Verdana, Arial, Helvetica">