引言:讀取640*480存成320*320的

假設您已經在Image讀取一640*480大小的BMP圖檔,試試下面的CODE

 
 Image1->Picture->Bitmap->Height=240;
 Image1->Picture->Bitmap->Width=320;
 Image1->Picture->SaveToFile("123.bmp");
 

順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

引言: 請問各位大大: 我想做一個讀取任何大小的圖檔,然後將圖檔的長跟寬都轉換成我想要的大 大小,請問各位大大要怎麼做..........例如:讀取640*480存成320*320的 ,能給提示好嗎??

kevinhue 你好: 請參考以下的做法 < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *bmpSrc=new Graphics::TBitmap; Graphics::TBitmap *bmpDst=new Graphics::TBitmap; bmpSrc->LoadFromFile("640x480.bmp"); bmpDst->Width=320; bmpDst->Height=320; bmpDst->Canvas->CopyRect(Rect(0, 0, bmpDst->Width, bmpDst->Height), bmpSrc->Canvas, Rect(0, 0, bmpSrc->Width, bmpSrc->Height)); bmpDst->SaveToFile("320x320.bmp"); delete bmpSrc; delete bmpDst; } 備註: 因為你的原圖是 640x480 (4:3)，變成 320x320 (1:1)，因此做出來的結果，會 有寬度被壓縮的感覺，因此還是建議你如果想要放大或縮小的話，長度跟寬度還 是維持原來的長寬比例會比較好(例如: 放大為 800x600 或縮小為 400x300) --

引言: kevinhue 你好: 請參考以下的做法 < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *bmpSrc=new Graphics::TBitmap; Graphics::TBitmap *bmpDst=new Graphics::TBitmap; bmpSrc->LoadFromFile("640x480.bmp"); bmpDst->Width=320; bmpDst->Height=320; bmpDst->Canvas->CopyRect(Rect(0, 0, bmpDst->Width, bmpDst->Height), bmpSrc->Canvas, Rect(0, 0, bmpSrc->Width, bmpSrc->Height)); bmpDst->SaveToFile("320x320.bmp"); delete bmpSrc; delete bmpDst; } 備註: 因為你的原圖是 640x480 (4:3)，變成 320x320 (1:1)，因此做出來的結果，會 有寬度被壓縮的感覺，因此還是建議你如果想要放大或縮小的話，長度跟寬度還 是維持原來的長寬比例會比較好(例如: 放大為 800x600 或縮小為 400x300) -- >< face="Verdana, Arial, Helvetica"> 各位好: 原來也可以這樣用^^ 本來想要用內插法去逼近,而且計算又是一堆加減乘除,用法很麻煩,所以 一直沒有把內插法回應在版上。 謝謝囉,又學到一個方便又好用的方法

引言: 大家好 很高興又學到了一種新的方法，最近剛好需要用到， 可是我試了縮小後的圖卻出現紅色的雜訊。 不曉得是為什麼耶！有沒有那位前輩可以幫忙，謝謝！

kikikoko 你好: 把程式碼改成以下這樣，應該就可以了 < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics::TBitmap *bmpSrc=new Graphics::TBitmap; Graphics::TBitmap *bmpDst=new Graphics::TBitmap; bmpSrc->LoadFromFile("dog-big.bmp"); bmpDst->Width=bmpSrc->Width/2; bmpDst->Height=bmpSrc->Height/2; SetStretchBltMode(bmpDst->Canvas->Handle, STRETCH_HALFTONE); bmpDst->Canvas->CopyMode=cmSrcCopy; bmpDst->Canvas->CopyRect(Rect(0, 0, bmpDst->Width, bmpDst->Height), bmpSrc->Canvas, Rect(0, 0, bmpSrc->Width, bmpSrc->Height)); bmpDst->SaveToFile("dog-small.bmp"); delete bmpSrc; delete bmpDst; } -- Enjoy Researching & Developing --

引言: 親愛的RaynorPao大哥: 可以在請教您一個問題嗎,要加那個參數可以將圖轉成黑白的圖...... Kevinhue

kevinhue 你好:
(1)請問你說的「黑白」是指什麼?? 是指只有「黑白」兩色的圖，還是指一般的
   灰階(例如: 256 色灰階)呢??
(2)以下範例中有一個將 24 bits 全彩的圖轉成 8 bits 灰階圖的範例
   http://delphi.ktop.com.tw/topic.php?topic_id=26438
(3)有關灰階、黑白影像方面的應用，你可以利用本站搜尋的功能，就可以找到
   很多相關的文章喔

引言: 親愛的RaynorPao大哥: 我是想要轉成黑白兩圖... Kevinhue

kevinhue 你好: 請參考 taishyang 版主的大作 > > --