首先感謝站上所有的前輩、先進...
讓我在這網站中學習到非常多BCB相關知識...
這是我第一次發言...感覺懂的不多,所以不好意思在各位大師面前班門弄斧....
因常感覺受人點水之恩..
所以我將我自己測試所寫的一些影像測試軟体給大家分享...

PS.因為是給自己測試用的,所以設計架構的不是很週全.....
請多多包涵...

附加檔案：46565c02d80bd_ImageTool.rar

編輯記錄

執行的速度好像不夠快 您是否有用ScanLine的方式來處理？

------
人生就像泡泡一樣，乘著風被吹著跑，等你發現時已經消失了。
就在快要消失的瞬間，希望能再飛高一點，
但是回神時總是慢了一步。

不好意思您指的速度不夠快是指讀圖嗎?
我發現我在讀圖迴圈裡多寫了二行預先處理的東西...
我現在把他拿掉了,讀圖的速度也快很多了...檔案也重新傳上去...
但另外ScanLine的方式處理,若要將圖轉成灰階...
ScanLine好像也沒有比較快耶,還是要一點一點讀取出來處理...
以下是我讀圖的寫法...
謝謝指教...


<textarea class="cpp" rows="10" cols="60" name="code">void __fastcall TForm1::Load1Click(TObject *Sender) { int y,x; if(f != NULL) { free_bimage(f,Image1->Picture->Width,Image1->Picture->Height); free_bimage(result,Image1->Picture->Width,Image1->Picture->Height); } if(OpenPictureDialog1->Execute()) { Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); Caption = ExtractFileName(OpenPictureDialog1->FileName); Image2->Picture->LoadFromFile(OpenPictureDialog1->FileName); f=allocate_bimage(Image1->Picture->Width,Image1->Picture->Height); result=allocate_bimage(Image1->Picture->Width,Image1->Picture->Height); for(y=0;yPicture->Height;y ) { for(x=0;xPicture->Width;x ) { TCColor c=Image1->Canvas->Pixels[x][y]; f[x][y]=(unsigned char)((c.Red c.Green c.Blue)/3); } } Button14->Enabled = true; } } </textarea>

===================引 用 enter2004 文 章===================
執行的速度好像不夠快? 您是否有用ScanLine的方式來處理？

編輯記錄

weiyu 大大您好:

每一次呼叫 Image1->Canvas->Pixels[x][y] 肯定比ScanLine慢數10倍以上

因為ScanLine是直接存取Bitmap的DIB資訊

Pixels[x][y]我認為他可能呼叫了某個API，然後該API call每次呼叫時都會lock一次 所以速度非常慢

------
人生就像泡泡一樣，乘著風被吹著跑，等你發現時已經消失了。
就在快要消失的瞬間，希望能再飛高一點，
但是回神時總是慢了一步。

<textarea cols="60" rows="10" class="cpp" name="code"> Byte *ptr;
for(y=0;yPicture->Height;y ) {
ptr = (Byte *) (Image1->Picture->Bitmap->ScanLine[y]);
for(x=0;xPicture->Width;x ) {
/*TCColor c=Image1->Canvas->Pixels[x][y];
f[x][y]=(unsigned char)((c.Red c.Green c.Blue)/3);*/
// 假設color depth 為24bit Bitmap
f[x][y]=(unsigned char )((ptr[x*3] ptr[x*3 1] ptr[x*3 2])/3) ;
} } </textarea> 不過如果你用TImage load image的話，如果load的檔案是.Jpeg 則可能無法使用ScanLine (.bmp才可以)

------
人生就像泡泡一樣，乘著風被吹著跑，等你發現時已經消失了。
就在快要消失的瞬間，希望能再飛高一點，
但是回神時總是慢了一步。

編輯記錄

enter2004 大大您好...
非常感謝您的指教...
我做了一個實驗
程式碼如下...

<textarea class="cpp" rows="10" cols="60" name="code">//--------------------------------------------------------------------------- #include #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; time_t start, stop; clock_t ticks; long count; struct TCColor { union { TColor Color; struct { unsigned char Red; unsigned char Green; unsigned char Blue; unsigned char Reserved; }; }; TCColor(TColor c):Color(c){} TCColor(unsigned char R, unsigned char G, unsigned char B): Red(R), Green(G), Blue(B), Reserved(0){} }; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { int y,x,z; unsigned char temp; if(OpenPictureDialog1->Execute()) { time(&start); for(z=0;z<50;z ) { Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); for(y=0;yPicture->Height;y ) { for(x=0;xPicture->Width;x ) { TCColor c=Image1->Canvas->Pixels[x][y]; temp=(unsigned char)((c.Red c.Green c.Blue)/3); } } } time(&stop); Label1->Caption = difftime(stop,start); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { int y,x,z; unsigned char temp; Byte *ptr; if(OpenPictureDialog1->Execute()) { time(&start); for(z=0;z<50;z ) { Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); for(y=0;yPicture->Height;y ) { ptr = (Byte *) (Image1->Picture->Bitmap->ScanLine[y]); for(x=0;xPicture->Width;x ) { temp=(unsigned char )((ptr[x*3] ptr[x*3 1] ptr[x*3 2])/3); } } } time(&stop); Label1->Caption = difftime(stop,start); } } //--------------------------------------------------------------------------- </textarea>

由scanline去處理真的明顯快很多....
但小弟我有一個問題...ScanLine是不是有長度的限制呢???
因為我若開啟一個640*480的圖,就會有錯誤產生...

唯一的缺點就是沒有程式碼了~~