程式執行錯誤 - Delphi K.Top 討論區

#1 引用回覆回覆

發表時間：2008-08-10 11:22:16

IP:123.194.xxx.xxx 訂閱

#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (OpenPictureDialog1->Execute())
{
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
double r,g,b;
int height,width;
Graphics::TBitmap *TheBitMap;
Byte *ptr1;
TheBitMap=Image1->Picture->Bitmap;
height=Image1->Picture->Height;
width=Image1->Picture->Width;
//TheBitMap->PixelFormat=pf8bit;
if(Y
{
ptr1=(Byte*)Image1->Picture->Bitmap->ScanLine[Y];
Label1->Caption=ptr1[X*3 2];
Label2->Caption=ptr1[X*3 1];
Label3->Caption=ptr1[X*3];
r=ptr1[X*3 2];
g=ptr1[X*3 1];
b=ptr1[X*3];
}
}
///上面是我自己的程式執行沒有問題
///但是我貼了我在這邊論壇抓到我會用到的濾波程式以後執行就出現了
///Access violation at address 400BC753 in module 'vcl60.bpl' Read of Address 65785408
///下面是我從這邊抓到的濾波程式
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Graphics::TBitmap *TheBitmap;
Graphics::TBitmap *Bmp = new Graphics::TBitmap();
Byte *ptr,*mptr,*u1ptr,*u2ptr,*d1ptr,*d2ptr;
int up1,up2,down1,down2,left1,left2,right1,right2;
float Gou;
Bmp->PixelFormat=pf24bit;
Bmp->Assign(Image1->Picture->Bitmap);
for(int y=0;yHeight;y )
{
up1=y-1;
up2=y-2;
down1=y 1;
down2=y 2;
if(up1<0)
up1=Bmp->Height-2;
if(up2<0)
up2=Bmp->Height-2;
if(down1>=Bmp->Height)
down1=0;
if(down2>=Bmp->Height)
down2=0;
ptr =(Byte *)TheBitmap->ScanLine[y];
mptr =(Byte *)Bmp->ScanLine[y];
u1ptr =(Byte *)Bmp->ScanLine[up1];
u2ptr =(Byte *)Bmp->ScanLine[up2];
d1ptr =(Byte *)Bmp->ScanLine[down1];
d2ptr =(Byte *)Bmp->ScanLine[down2];
for(int x=0;xWidth;x )
{
left1=x-1;
left2=x-2;
right1=x 1;
right2=x 2;
if(left2<0)
left2=Bmp->Width-2;
if(right2==Bmp->Width)
right2=0;
Gou=(u1ptr[left2] 4*u1ptr[left1] 7*u1ptr[x] 4*u1ptr[right1] u1ptr[right2]
4*u2ptr[left2] 16*u2ptr[left1] 26*u2ptr[x] 16*u2ptr[right1] 4*u2ptr[right2]
7*mptr[left2] 26*mptr[left1] 41*mptr[x] 26*mptr[right1] 7*mptr[right2]
4*d1ptr[left2] 16*d1ptr[left1] 26*d1ptr[x] 16*d1ptr[right1] 4*d1ptr[right2]
d2ptr[left2] 4*d2ptr[left1] 7*d2ptr[x] 4*d2ptr[right1] d2ptr[right2])/273;
ptr[x]=(Byte)Gou;
}
}
Image1->Picture->Assign(Bmp);
delete Bmp;
}
執行上沒有問題可是一點選button4就出現跳出錯誤可以幫我看看是什麼問題嗎前輩們

編輯記錄

trent0131 重新編輯於 2008-08-10 11:22:58，註解無‧
trent0131 重新編輯於 2008-08-10 11:23:58，註解無‧
trent0131 重新編輯於 2008-08-10 11:24:02，註解無‧
trent0131 重新編輯於 2008-08-10 11:25:15，註解無‧
trent0131 重新編輯於 2008-08-10 11:25:21，註解無‧
trent0131 重新編輯於 2008-08-10 11:27:06，註解無‧
trent0131 重新編輯於 2008-08-10 11:27:51，註解無‧