各位高手:小弟我用BCB寫了一個求psnr的式子,
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Graphics::TBitmap *Orgimage=new Graphics::TBitmap,
*Harrinverse=new Graphics::TBitmap;
Orgimage->Assign(Image1->Picture->Bitmap);
Harrinverse->Assign(Image2->Picture->Bitmap);
Orgimage->PixelFormat=pf8bit;
Harrinverse->PixelFormat=pf8bit;
Byte *ptr1,*ptr2;
int H=Image1->Height;
int W=Image1->Width;
double se=0.0,mse=0.0,sum=0.0,psnr=0.0;
for(int j=0;j {
ptr1=(Byte*)Orgimage->ScanLine[j];
ptr2=(Byte*)Harrinverse->ScanLine[j];
for(int i=0;i {
se=(ptr1[i]-ptr2[i])*(ptr1[i]-ptr2[i]);
sum =se;
}
}
delete Harrinverse;
delete Orgimage;
mse=sum/H*W;
psnr=255*255/mse;
Edit1->Text=psnr;
}
但總是會出現Access violation at a dress 0040232B in module 'Project1.exe' read of address 01900001.的錯誤訊息,而後
在紅色字體的地方反白,大概是那有問題,弄了好久不知如何解??能不能麻煩各位高手幫我看一下程式,指導一下,感激不盡！！

------
加強磨鍊

會不會是因為 ptr1[i] 跟 ptr2[i] 的資料型態都是 byte 的關係？
byte 的範圍為 0 ~ 255，而沒辦法表示負數。
se=(ptr1[i]-ptr2[i])*(ptr1[i]-ptr2[i]);

感謝銀狐大的回應,想要再跟你請問一下,ptr如果不用byte的話,那要如何宣告??
才會容下負值??
失禮,我算是新手,如果問問題的那種sense怪怪的話,多包含!包含!!

------
加強磨鍊

你好：
小弟也是新手，一起研究看看，小弟也沒把程式拿去執行，
試著改成以下作法，再看看囉。
se=((double)ptr1[i]-(double)ptr2[i])*((double)ptr1[i]-(double)ptr2[i]);
另外此 address 的錯誤，可能是 ScanLine 時所發生，
因為 Image1 的 width 並不一定會等於圖片 的width，同理 height 也是如此，
int H=Image1->Height; 改為 image1->Picture->Height;
int W=Image1->Width; 改為 image1->Picture->Width;

很感謝銀狐兄的提示！

------
加強磨鍊