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

BCB程式撰寫有問題~~~!!因為是新手想麻煩會ㄉ大大.....

尚未結案
jlvjlv
一般會員


發表:10
回覆:7
積分:3
註冊:2004-12-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-07-11 00:20:06 IP:220.228.xxx.xxx 未訂閱
我現在要撰寫一個兩張圖ㄉ配對~~    大張為320*200 小張為40*40    因為是最簡單ㄉ配對~~~所以小張ㄉ影像是從大張ㄉ影像中切割出來ㄉ    我ㄉ想法是以小張ㄉ影像為一單位~~在大張ㄉ影像上一一搜尋比對 找到後把小張ㄉ影像放到大張影像上配對成功ㄉ位置    判斷ㄉ依據~~因為是一模一樣ㄉ圖~~所以我是想說~~在每一次每一ㄍ小張影像比較時~~大張影像和小張影像ㄉ每ㄍ像素相減~~然後把相減ㄉ值相加~~若等於零~~則配對成功~~    不過我現在~~~不知道我ㄉ程式哪裡有問題~~因為程式在runㄉ時候都沒有bug 不過結果卻不是我想要ㄉ~~~所以想麻煩程式厲害ㄉ大大幫幫我~~~ 感謝~~~!!    以下我附上我所寫ㄉ程式碼 ------------------------------------------- //---------------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics:: TBitmap *TheBitmap , *TheBitmap1; Byte *ptr; int x,y,a,b; int sum; TheBitmap=Image1->Picture->Bitmap; TheBitmap=Image2->Picture->Bitmap; for (y=0;yHeight-TheBitmap1->Height*/ { ptr=(Byte*)TheBitmap->ScanLine[y]; for (x=0;x<(x-b);x=x+b) /*TheBitmap->Width-TheBitmap1->Width*/ { ptr=(Byte*)TheBitmap->ScanLine[x]; for (a=0;aHeight;a++) { ptr=(Byte*)TheBitmap1->ScanLine[a]; for (b=0;bWidth;b++) { sum=(ptr[y*3]-ptr[a*3])+ (ptr[y*3+1]-ptr[a*3+1])+ (ptr[y*3+2]-ptr[a*3+2]); sum=(ptr[x*3]-ptr[b*3])+ (ptr[x*3+1]-ptr[b*3+1])+ (ptr[x*3+2]-ptr[b*3+2]); } } } } if(sum=0) { ptr[a*3]=ptr[y*3]; ptr[a*3+1]=ptr[y*3+1]; ptr[a*3+2]=ptr[y*3+2]; ptr[b*3]=ptr[x*3]; ptr[b*3+1]=ptr[x*3+1]; ptr[b*3+2]=ptr[x*3+2]; } Repaint(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Image1Click(TObject *Sender) { } //--------------------------------------------------------------------------- 以下ㄉ圖示我ㄉ介面:
Ktop_Robot
站務副站長


發表:0
回覆:3511
積分:0
註冊:2007-04-17

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-04-18 17:32:48 IP:000.000.xxx.xxx 未訂閱
提問者您好:


以上回應是否已得到滿意的答覆?


若已得到滿意的答覆,請在一週內結案,否則請在一週內回覆還有什麼未盡事宜,不然,
將由版主(尚無版主之區域將由副站長或站長)自由心證,選擇較合適之解答予以結案處理,
被選上之答題者同樣會有加分獎勵同時發問者將受到扣 1 分的處分。不便之處,請見諒。


有問有答有結案,才能有良性的互動,良好的討論環境需要大家共同維護,感謝您的配合。

------
我是機器人,我不接受簡訊.
系統時間:2024-04-29 22:02:31
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!