全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1383
推到 Plurk!
推到 Facebook!

請問在BCB裡要怎麼圖檔之像素顏色資料...

答題得分者是:richtop
abdias
一般會員


發表:5
回覆:4
積分:1
註冊:2004-07-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-08-13 17:38:47 IP:140.127.xxx.xxx 未訂閱
假如我今天載入一個圖檔 我需要得到圖檔的每一個像素的顏色資料(RGB) 請問要怎麼做呢... 發表人 - taishyang 於 2004/08/13 19:22:00
richtop
資深會員


發表:122
回覆:646
積分:468
註冊:2003-06-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-08-13 17:59:49 IP:211.76.xxx.xxx 未訂閱
abdias 您好:    底下程式碼,可以利用滑鼠在Image上移動讀取其RGB的值,請參考:
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{ AnsiString msg;      int r,g,b;
  r = GetRValue(Image1->Canvas->Pixels[X][Y]);
  g = GetGValue(Image1->Canvas->Pixels[X][Y]);
  b = GetBValue(Image1->Canvas->Pixels[X][Y]);      msg.printf("(r, g, b) = (=,=,=)", r, g, b);      Label1->Caption = msg;
}
//---------------------------------------------------------------------------
但如果圖片是JPG格式,則要先轉換成BITMAP才能利用Pixels[][]讀取。轉換請參考:
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
  pBitmap->Width = Image1->Picture->Width;
  pBitmap->Height= Image1->Picture->Height;
  pBitmap->Canvas->Draw(0,0,Image1->Picture->Graphic);
  Image1->Picture->Assign(pBitmap);
  delete pBitmap;
}
//---------------------------------------------------------------------------
RichTop 敬上 =====***** 把數學當工具,可以解決問題;將數學變能力,能夠發現並解決問題! =====#####
abdias
一般會員


發表:5
回覆:4
積分:1
註冊:2004-07-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-08-13 19:31:37 IP:140.127.xxx.xxx 未訂閱
謝謝你的幫忙... 感謝再感謝~~~
系統時間:2024-05-20 21:14:34
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!