廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 4491 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
ptrlin
數位造型
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x2
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[Delphi][求助] 用Borland C++Builder求面積
題目是 有一張圖 我將它作完二值化後 只有黑跟白
白色是它的背景 黑色為一個不規則的多 ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容



獻花 x0 回到頂端 [樓 主] From:歐洲 | Posted:2008-03-18 03:31 |
overing 手機
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x0 鮮花 x55
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

如果圖不大
可以用土法煉鋼的方法
計算像素數量 表情


Zippy G2 600W
Intel C2Q Q9550
Gigabyte GA-X48-DQ6
Gigabyte GV-NX96T512H-B
G-skill pi 1100MHz 2Gx4
ACARD ANS-9010 32GB (Windows7 10sec boot!!)
WD 150GB(WD1500ADFD)/640GB(6400AASK)
獻花 x0 回到頂端 [1 樓] From:未知地址 | Posted:2008-03-19 12:44 |
ptrlin
數位造型
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x2
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

網路上看到的程式碼:

下面是我用的方式 您參考看看
XX,YY 就是妳要的質心
sum就是你要的面積

void __fastcall TForm1::Button13Click(TObject *Sender)
{
Graphics::TBitmap *Bmp = new Graphics::TBitmap();
Byte *ptr;
int r,g,b;
int i,j,XX,YY;
int sum=0,X=0,Y=0;
Bmp->Assign(Image1->Picture->Bitmap);
Bmp->PixelFormat=pf24bit;

for (int i=0;iHeight;i++ )
  {
  ptr=(Byte*)Bmp->ScanLine;
  for (int j=0;jWidth; j++ )
  {
  b=ptr[j*3];
  g=ptr[j*3+1];
  r=ptr[j*3+2];

  if(r==0&&g==0&&b==0&&iHeight&&jWidth)
  {
  sum=sum+1;
  X=X+j;
  Y=Y+i;
  XX=X/sum;
  YY=Y/sum;
  Form1->Edit1->Text=XX;
  Form1->Edit2->Text=YY;
  Form1->Edit3->Text=sum;
  }
  }
  }
}
F9去Run沒問題
但真正去開圖找面積跟質心時
在 g=ptr[j*3+1];
這一行有問題 接著程式會有點當掉 看不到錯誤訊息
不知如何修改 表情
另外質心不是只有一個嗎? 不曉得為啥他用到XX跟YY ?


獻花 x0 回到頂端 [2 樓] From:歐洲 | Posted:2008-03-21 18:56 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.061589 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言