請問一下各位先進， 最近再練習寫影像相關的程式時， 在做不用Scanline的邊緣強化時， 發現圖形被切割了(如附圖)請問是什麼原因呢? thx.~ 程式碼如下(其中，Gx和Gy是使用taishyang大大的影像處理III，p1為[1024][768])： void __fastcall TForm1::Button9Click(TObject *Sender) { //邊緣加強， No scanline if (Image1->Picture->Bitmap->Empty==true) ShowMessage("請載入圖檔!!"); Graphics::TBitmap *first=new Graphics::TBitmap; Graphics::TBitmap *second=new Graphics::TBitmap; first->Assign(Image1->Picture->Bitmap); second->Width=first->Width; second->Height=first->Height; for (int i=0;j< second->Height;i++ ) { for (int j=0;j< second->Width; j++ ) { TColor Color=first->Canvas->Pixels[i][j]; BYTE R=GetRValue(Color); p1[j][i] = R; //因為是灰階，取RGB都一樣 } } for (int i=0;i< second->Height;i++ ) { for (int j=0;j< second->Width; j++ ) { TColor Color=second->Canvas->Pixels[i][j]; if ((Gx(j,i)+Gy(j,i))>255) { Color=(TColor)RGB(255, 255, 255); second->Canvas->Pixels[i][j]=Color; } else { Color=(TColor)RGB(Gx(j,i)+Gy(j,i), Gx(j,i)+Gy(j,i), Gx(j,i)+Gy(j,i)); second->Canvas->Pixels[i][j]=Color; } } } Image2->Picture->Assign(second); delete second; }

gues您好: PO程式碼的方式請參考版規說明 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47262 謝謝您的配合

這行有錯,修正看看  

 
for (int i=0;j< second->Height;i   )

brook前輩的眼睛真銳利

各位大大...不好意思.... 因為一開始貼for (int i=0;i< second->Height;i++ )時， 因為 i< second->Height一直出不來， "second->"會不見，因為"小於"和second相連，所以出不來....因此,我就自己改了一下，那個地方沒改到...sorry... PS: "i加加"和 "j加加" 若是 "加加" 和i 和j相連，為什麼"加加"會出不來阿?  (已使用版大說的用插入code的方法了...)    然後，現在的code，我從button copy出來了， 請大大幫我看一下，問題好像不是for loop指定錯說...謝謝...     

void __fastcall TForm1::Button9Click(TObject *Sender)
{
 //邊緣加強， No scanline
 if (Image1->Picture->Bitmap->Empty==true)
 ShowMessage("請載入圖檔!!");
 
 Graphics::TBitmap *first=new Graphics::TBitmap;
 Graphics::TBitmap *second=new Graphics::TBitmap;
 
 first->Assign(Image1->Picture->Bitmap);
 second->Width=first->Width;
 second->Height=first->Height;
 
 for (int i=0;iHeight;i   )
 {
  for (int j=0;jWidth; j   )
  {
   TColor Color=first->Canvas->Pixels[i][j];
   BYTE R=GetRValue(Color);
   p1[j][i] = R;
  }
 }
 
 for (int i=0;iHeight;i   )
 {
  for (int j=0;jWidth; j   )
   {
   TColor Color=second->Canvas->Pixels[i][j];
    if ((Gx(j,i) Gy(j,i))>255)
    {
     Color=(TColor)RGB(255, 255, 255);        
     second->Canvas->Pixels[i][j]=Color;
    }
    else
    {
    Color=(TColor)RGB(Gx(j,i) Gy(j,i), Gx(j,i) Gy(j,i), Gx(j,i) Gy(j,i));
    second->Canvas->Pixels[i][j]=Color;
    } 
   }
  }
  Image2->Picture->Assign(second);
  
  delete second;          
} 

gues您好: 您的 i 與 j 有些地方弄錯了,試試下面的code  

 if (Image1->Picture->Bitmap->Empty==true)
    ShowMessage("請載入圖檔!!");     Graphics::TBitmap *first=new Graphics::TBitmap;
 Graphics::TBitmap *second=new Graphics::TBitmap;
 first->Assign(Image1->Picture->Bitmap);
 second->Width=first->Width;
 second->Height=first->Height;
 for (int i=0;iHeight;i   )
 {
    for (int j=0;jWidth; j   )
    {
       TColor Color=first->Canvas->Pixels[j][i];
       BYTE R=GetRValue(Color);
       p1[j][i] = R;
    }
 }     for (int i=0;iHeight;i   )
 {
    for (int j=0;jWidth; j   )
    {
       TColor Color=second->Canvas->Pixels[j][i];
       if ((Gx(j,i) Gy(j,i))>255)
       {
          Color=(TColor)RGB(255, 255, 255);        
          second->Canvas->Pixels[j][i]=Color;
       }
       else
       {
          Color=(TColor)RGB(Gx(j,i) Gy(j,i), Gx(j,i) Gy(j,i), Gx(j,i) Gy(j,i));
          second->Canvas->Pixels[j][i]=Color;
       } 
    }
 }
 Image2->Picture->Assign(second);
 delete second;

順心 發表人 -

我瞭解了... 謝謝...