如題
以下code也是從網上抓來的
我想將圖形直接轉成二值化值方圖


void __fastcall TForm1::ButtonClick(TObject *Sender)
{
// ??水平与垂直方向的投影量


long ProjectV[2000] = {0};
long ProjectH[2000] = {0};
long Vmax = 0, Hmax = 0;
Byte *ptr;
for(int row = 0; row < 1279; row )
{
ptr = (Byte *)Image1->Picture->Bitmap->ScanLine[row];
for(int col = 0; col < 1023; col )
{
if(ptr[col*3] > 125) // 白?
{
ProjectV[col] ; // 垂直方向投影的?量 1
ProjectH[row] ; // 水平方向投影的?量 1
if(ProjectV[col] > Vmax) Vmax = ProjectV[col]; // ??垂直投影最大值
if(ProjectH[row] > Hmax) Hmax = ProjectH[row]; // ??水平投影最大值
}
}
}
// ?出水平方向投影
Image2->Canvas->Pen->Color = clWhite;
for(int row = 0; row < 1279; row )
{
Image2->Canvas->MoveTo(Image2->Width, row);
Image2->Canvas->LineTo(Image2->Width * (1.0 - (double)ProjectH[row] / (double)Hmax), row);
}
// ?出垂直方向投影
Image3->Canvas->Pen->Color = clWhite;
for(int col = 0; col < 1023; col )
{
Image3->Canvas->MoveTo(col, Image3->Height);
Image3->Canvas->LineTo(col, Image3->Height * (1.0 - (double)ProjectV[col] / (double)Vmax));
}

}






為何出現以下問題：

附加檔案：4ebb44119092a_未命名-1.jpg

編輯記錄