請教各位先進們, 以下是用ScanLine方式coding.    問:     .若我想要取R.B.G 單一顏色個別Show 在 Images 上      R 一張圖      G 一張圖      B 一張圖      可以改gray 變為 r,g,b嗎?      (我有試過,但變成黑影像!)請協助!謝謝!        

 
void __fastcall TForm1::RGBMODE1Click(TObject *Sender)
{
 int i,j,k,gray,r,g,b;
 Byte *ptr;
 Graphics::TBitmap *bmp=new Graphics::TBitmap();
 bmp->Assign(Image1->Picture->Bitmap);
 bmp->PixelFormat=pf24bit;
 for(j=0;jHeight;j  )
   {
     ptr=(Byte *)bmp->ScanLine[j];
      for(i=0;iWidth;i  )
       {
         r=ptr[i*3];
         g=ptr[i*3 1];
         b=ptr[i*3 2];           gray=(0.299*r 0.587*g 0.114*b);
         ptr[i*3]=(Byte)gray;
         ptr[i*3 1]=(Byte)gray;
         ptr[i*3 2]=(Byte)gray;
     }
  }
 Image2->Picture->Assign(bmp);

引言: 請教各位先進們, 以下是用ScanLine方式coding. 問: .若我想要取R.B.G 單一顏色個別Show 在 Images 上 R 一張圖 G 一張圖 B 一張圖 可以改gray 變為 r,g,b嗎? (我有試過,但變成黑影像!)請協助!謝謝!

 
void __fastcall TForm1::RGBMODE1Click(TObject *Sender)
{
 int i,j,k,gray,r,g,b;
 Byte *ptr;
 Graphics::TBitmap *bmp=new Graphics::TBitmap();
 bmp->Assign(Image1->Picture->Bitmap);
 bmp->PixelFormat=pf24bit;
 for(j=0;jHeight;j  )
   {
     ptr=(Byte *)bmp->ScanLine[j];
      for(i=0;iWidth;i  )
       {
         r=ptr[i*3];
         g=ptr[i*3 1];
         b=ptr[i*3 2];           gray=(0.299*r 0.587*g 0.114*b);
         ptr[i*3]=(Byte)gray;
         ptr[i*3 1]=(Byte)gray;
         ptr[i*3 2]=(Byte)gray;
     }
  }
 Image2->Picture->Assign(bmp);

auslk 你好: 先參考這篇文章中的做法，看看是不是你要的呢??

auslk您好:

ptr[i*3]       表示B    
ptr[i*3 1]     表示G
ptr[i*3 2]     表示R

將您要顯示的資料填入即可 順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 -

引言: auslk您好:

ptr[i*3]       表示B    
ptr[i*3 1]     表示G
ptr[i*3 2]     表示R

將您要顯示的資料填入即可 順心 與您報告: 小弟程式回填資料 : 出現灰階圖片 ,真不知道寫錯哪? < class="code"> Blue color ptr[i*3]=(Byte) b; ptr[i*3 1]=(Byte) b; ptr[i*3 2]=(Byte) b; ～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 - taishyang 於 2003/10/07 21:50:30

Dear Sir,     總算找出來囉!     我真是粗心!  若要show出blue,即可!  多謝您ㄉ提醒!     ptr[i*3]=b; ptr[i*3+1]=0; ptr[i*3+2]= 0;    

引言:

引言: auslk您好:

ptr[i*3]       表示B    
ptr[i*3 1]     表示G
ptr[i*3 2]     表示R

將您要顯示的資料填入即可 順心 與您報告: 小弟程式回填資料 : 出現灰階圖片 ,真不知道寫錯哪? < class="code"> Blue color ptr[i*3]=(Byte) b; ptr[i*3 1]=(Byte) b; ptr[i*3 2]=(Byte) b; ～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 - taishyang 於 2003/10/07 21:50:30

Dear Sir,     總算找出來囉!     我真是粗心!  若要show出blue,即可!  多謝您ㄉ提醒!     ptr[i*3]=b; ptr[i*3+1]=0; ptr[i*3+2]= 0;    

引言:

引言: auslk您好:

ptr[i*3]       表示B    
ptr[i*3 1]     表示G
ptr[i*3 2]     表示R

將您要顯示的資料填入即可 順心 與您報告: 小弟程式回填資料 : 出現灰階圖片 ,真不知道寫錯哪? < class="code"> Blue color ptr[i*3]=(Byte) b; ptr[i*3 1]=(Byte) b; ptr[i*3 2]=(Byte) b; ～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 - taishyang 於 2003/10/07 21:50:30

恭喜您