線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:871
推到 Plurk!
推到 Facebook!

從stream轉灰階

答題得分者是:taishyang
zoelin
一般會員


發表:9
回覆:3
積分:2
註冊:2004-12-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-08-23 14:47:32 IP:61.62.xxx.xxx 未訂閱
想請問各位~ 我將一張圖片LOAD到TMemoryStream中 請問我要如何在stream將它改成灰階的 以下是我的程式
    Image1->Picture->Bitmap->SaveToStream(stream1);
    BYTE* pbData=NULL;        stream1->Position=0;
    pbData=(BYTE*)stream1->Memory;         int gray;
    int r,g,b;
    for(int i=54;iSize;i=i 3)
    {
        b=pbData[i];
        g=pbData[i 1];
        r=pbData[i 2];            gray=0.299*r  0.587*g 0.114*b;
        pbData[i]=(Byte)gray;
        pbData[i 1]=(Byte)gray;
        pbData[i 1]=(Byte)gray;
    }
    Image1->Picture->Bitmap->LoadFromStream(stream1);
圖片雖然有變色.... 但不是灰階 請問是哪裡有錯誤呢?
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-08-23 15:35:06 IP:210.68.xxx.xxx 未訂閱
您好: 
        pbData[i]=(Byte)gray;
        pbData[i 1]=(Byte)gray;
        pbData[i 1]=(Byte)gray;
改成
        pbData[i]=(Byte)gray;
        pbData[i 1]=(Byte)gray;
        pbData[i 2]=(Byte)gray;
順心
zoelin
一般會員


發表:9
回覆:3
積分:2
註冊:2004-12-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-08-23 16:00:27 IP:61.62.xxx.xxx 未訂閱
唔......... 抱歉......問了個笨問題.... 大概是老花了....眼睛不太好 竟然看漏了.... 謝謝taishyang回答我的笨問題~~^^
系統時間:2024-05-04 15:09:53
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!