图像加噪（BCB）

//产生随机噪声图像

void __fastcall TForm1::N5Click(TObject *Sender){     int noisepoint;     Graphics::TBitmap *pBitmap;     pBitmap= new Graphics::TBitmap();     pBitmap->Assign(Image1->Picture->Graphic);     unsigned short height,width;     height=pBitmap->Height;     width=pBitmap->Width*3;     Byte *ptr;     int level;     for(int i=0; i<height;i++)     {       ptr= (Byte*)(pBitmap->ScanLine[i]);       for(int j=0;j<width;j++)       {           noisepoint=rand()/1024;           *(ptr+j)=(*(ptr+j))*224/256+(int)noisepoint;       }     }     Image1->Picture->Bitmap->Assign(pBitmap);     delete pBitmap;        }

 

//产生椒盐噪声图像

void __fastcall TForm1::N6Click(TObject *Sender){     Graphics::TBitmap *pBitmap;     pBitmap= new Graphics::TBitmap();     pBitmap->Assign(Image1->Picture->Graphic);     unsigned short height,width;     height=pBitmap->Height;     width=pBitmap->Width;     Byte *ptr;     int level;     for(int i=0; i<height;i++)     {       ptr= (Byte*)(pBitmap->ScanLine[i]);       for(int j=0;j<width*3;j+=3)       {           if(rand()> 31500)              {*(ptr+j) =0;               *(ptr+j+1) =0;               *(ptr+j+2) =0;              }       }     }     Image1->Picture->Bitmap->Assign(pBitmap);     delete pBitmap;}