Bitmap |
|
答題得分者是：RaynorPao
|
|
seeing
初階會員   發表：49 回覆：131 積分：41 註冊：2002-11-07 發送簡訊給我 |
|
|
RaynorPao
版主  發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
lcsboy
版主 發表：87 回覆：622 積分：394 註冊：2002-06-18 發送簡訊給我 |
如果用TBitmap我的作法是
1. 先New一個TMemoryStream
2. 不管你是Load一個圖檔或是自己畫在TBitmap上, 先SaveToStream
3. TMemoryStream提供指標, 讓你可以access到每一個Bytes
(如果你Dump出來看, 你會發現TMemoryStream這時前面有BMP的檔頭, 後面
全部接的BYTE排列是--->R, G, B)
4. 用指標修正你要處理的顏色
5. 用TBitmap->LoadFormStream, 之後, 貼回你要秀的地方 這裡也有一些討論
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18991
|
|
seeing
初階會員 發表：49 回覆：131 積分：41 註冊：2002-11-07 發送簡訊給我 |
我有試過底下的程式碼：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
Byte *ptr;
pBitmap->LoadFromFile("C:\\A2.bmp ");
for (int y = 0; y < pBitmap->Height; y )
{
ptr = (Byte *)pBitmap->ScanLine[y];
for (int x = 0; x < pBitmap->Width*3; x =3)
ptr[x] = (Byte)y;
}
Canvas->Draw(0,0,pBitmap);
delete pBitmap;
} 但是顯示出來的圖並不是原來的顏色，不知道是我哪裡有弄錯嗎？
假如剛剛的問題解決了，那麼ptr[x]、ptr[x 1]、ptr[x 2]就是代表一個pixcle的R、G、B值嗎？ 謝謝不吝指教～～
也感謝版主大人的回覆～～
|
|
Cooky Kid
初階會員 發表：5 回覆：68 積分：44 註冊：2002-07-11 發送簡訊給我 |
以Bitmap並配合指標，來讀出bmp圖檔中每個pixel的R、G、B值，
看看下列程式碼，是否是你需要？ 先在Form1 上弄個有圖像的Image 元件吧。
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
//取得Form1的DC
HDC hdc = ::GetDC(Handle);
//取得滑鼠位置的圖素色彩
COLORREF pcolor = ::GetPixel( hdc, X, Y );
//逐一用巨集取出RGB色彩值
unsigned int r = GetRValue(pcolor);
unsigned int g = GetGValue(pcolor);
unsigned int b = GetBValue(pcolor);
//將結果即時顯示在Form1標題文字中
Caption ="滑鼠位置：X = " AnsiString(X) " ,Y =" AnsiString(Y)
" ,圖素色彩：R:" AnsiString(r) "_G:" AnsiString(g)
"_B:" AnsiString(b);
//釋放Form1的DC handle
ReleaseDC(0,hdc);
}
//---------------------------------------------------------------------------
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 我有試過底下的程式碼： void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *pBitmap = new Graphics::TBitmap(); Byte *ptr; pBitmap->LoadFromFile("C:\\A2.bmp "); for (int y = 0; y < pBitmap->Height; y ) { ptr = (Byte *)pBitmap->ScanLine[y]; for (int x = 0; x < pBitmap->Width*3; x =3) ptr[x] = (Byte)y; } Canvas->Draw(0,0,pBitmap); delete pBitmap; } 但是顯示出來的圖並不是原來的顏色，不知道是我哪裡有弄錯嗎？ 假如剛剛的問題解決了，那麼ptr[x]、ptr[x 1]、ptr[x 2]就是代表一個pixcle的R、G、B值嗎？ 謝謝不吝指教～～ 也感謝版主大人的回覆～～ (1)ptr[x], ptr[x 1], ptr[x 2] 的順序是 B, G, R (2)「顯示出來的顏色-->不是原來的顏色」是因為以上的程式碼中 有一行改到顏色了，你只需要把 ptr[x] = (Byte)y; 這一行 mark 掉就好了-- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
lcsboy
版主 發表：87 回覆：622 積分：394 註冊：2002-06-18 發送簡訊給我 |
|
|
seeing
初階會員 發表：49 回覆：131 積分：41 註冊：2002-11-07 發送簡訊給我 |
引言: [quote] 我有試過底下的程式碼： void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *pBitmap = new Graphics::TBitmap(); Byte *ptr; pBitmap->LoadFromFile("C:\\A2.bmp "); for (int y = 0; y < pBitmap->Height; y ) { ptr = (Byte *)pBitmap->ScanLine[y]; for (int x = 0; x < pBitmap->Width*3; x =3) ptr[x] = (Byte)y; } Canvas->Draw(0,0,pBitmap); delete pBitmap; } 但是顯示出來的圖並不是原來的顏色，不知道是我哪裡有弄錯嗎？ 假如剛剛的問題解決了，那麼ptr[x]、ptr[x 1]、ptr[x 2]就是代表一個pixcle的R、G、B值嗎？ 謝謝不吝指教～～ 也感謝版主大人的回覆～～ (1)ptr[x], ptr[x 1], ptr[x 2] 的順序是 B, G, R (2)「顯示出來的顏色-->不是原來的顏色」是因為以上的程式碼中 有一行改到顏色了，你只需要把 ptr[x] = (Byte)y; 這一行 mark 掉就好了感謝你的方法,我已經順利解決了^^(雖然有衍生了一些新的問題,不過還是謝謝你) |
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
seeing
初階會員 發表：49 回覆：131 積分：41 註冊：2002-11-07 發送簡訊給我 |
發表時間：2002-11-07 15:24:04
IP:218.187.xxx.xxx 未訂閱
系統時間：2024-11-23 19:46:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |