請問一下如何將程式中的Gray值存檔

發文回覆瀏覽次數：689

推到 Plurk!

推到 Facebook!

請問一下如何將程式中的Gray值存檔

尚未結案

wingsangel
一般會員

發表：2
回覆：0
積分：0
註冊：2005-02-23

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-03-02 21:18:18

IP:61.30.xxx.xxx 未訂閱

以下是我的程式內容 void __fastcall TForm1::pixelClick(TObject *Sender) { TStringList *pixel; int x,y; for (x=0;x< Image1->Width;x ) { for (y=0;y< Image1->Height;y ) { Byte *ptr=(Byte *)Image1->Picture->Bitmap->ScanLine[y]; Byte Gray; Gray=0.299*ptr[3*x 2] 0.587*ptr[3*x 1] 0.114*ptr[3*x]; ptr[3*x]=ptr[3*x 1]=ptr[3*x 2]=Gray; } } }

stellos
中階會員

發表：24
回覆：84
積分：51
註冊：2004-06-08

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-03-03 00:22:34

IP:220.138.xxx.xxx 未訂閱

存成檔案 FILE *fp; fp=fopen("檔名","wb"); if(fp) { fwrite(&Gray,1,sizeof(Gray),fp); fclose(fp); } 讀出 fp=fopen("檔名","rb"); if(fp) { fread(&Gray,1,sizeof(Gray),fp); fclose(fp); }

系統時間：2024-05-12 10:52:00

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！