請問關於影像位移的問題

發文回覆瀏覽次數：704

推到 Plurk!

推到 Facebook!

尚未結案

wen142
一般會員

發表：22
回覆：27
積分：14
註冊：2004-06-30

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-09-22 22:48:34

IP:140.135.xxx.xxx 未訂閱

各位大大~~ 想請教一下我在做影像位移的時候我想要將影像做位移~ 並顯示再另一個FORM上面卻有下面的問題

  
   int Dx,Dy;
   Graphics::TBitmap *TheBitmap1;
   Graphics::TBitmap *TheBitmap2;
   Graphics::TBitmap *TheBitmap3;
   Byte *ptr,*tptr,*dptr;       TheBitmap1=Form2->Image1->Picture->Bitmap; //第一張影像
   TheBitmap2=Form4->Image1->Picture->Bitmap; //第二張影像
   TheBitmap3=Form5->Image1->Picture->Bitmap; //目標影像
   Dx=abs(Vcx-Vax);   //X軸位置差值
   Dy=abs(Vcy-Vay);   //Y軸位置差值
   for(int j=0;jHeight-2*Dy  ;j++)
   {
      ptr= (Byte*)TheBitmap2->ScanLine[j+Dy];
      tptr=(Byte*)TheBitmap1->ScanLine[j];
      dptr=(Byte*)TheBitmap3->ScanLine[j];
      for(int i=0;iWidth-2*Dx  ;i++ )
      {
         ptr[i]= ptr[i+Dx];
         dptr[i] = abs(ptr[i]-tptr[i]);
      }
   }
   Form5->Image1->AutoSize =true;
   Form5->Image1->Picture->Bitmap->Assign(TheBitmap2) ;
   Form5->Show() ;

發表人 - taishyang 於 2004/09/23 00:23:04

richtop
資深會員

發表：122
回覆：646
積分：468
註冊：2003-06-10

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-09-23 00:04:14

IP:211.76.xxx.xxx 未訂閱

wen142 您好：看過您上傳的圖(好像連結處少寫了東西)發現問題類似先前的情況。您用了若干Image，或許大小不一，但您用其中一個image的高，去存取其他Image的ScanLine，所以有可能會發生超出範圍的狀況，您再核對看看。 >

系統時間：2024-05-21 6:02:57

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！