關於BCB RGB TO YUV(我是超級新手) |
|
|
|
jack700829
一般會員   發表：1 回覆：0 積分：0 註冊：2007-03-14 發送簡訊給我 |
//感覺有點不對又不知道不對在哪有高手可以幫我看一下嗎?謝謝~
<textarea class="cpp" rows="10" cols="60" name="code"> void __fastcall TForm1::getYUV1Click(TObject *Sender) { struct YUV{ unsigned char Y; unsigned char U; unsigned char V; }; struct RGB{ unsigned char B; unsigned char G; unsigned char R; }; long Yr[256]={0},Ur[256]={0},Vr[256]={0}; int i,x,y; YUV *ptrYUV; RGB *ptrRGB; for (y = 0; y < Image1->Picture->Bitmap->Height; y ) { ptrRGB = (RGB *)Image1->Picture->Bitmap->ScanLine[y]; ptrYUV = (YUV *)Image1->Picture->Bitmap->ScanLine[y]; for ( x = 0; x < Image1->Picture->Bitmap->Width; x ){ ptrYUV[x].Y = 0.299*ptrRGB[x].R 0.587*ptrRGB[x].G 0.114*ptrRGB[x].B; ptrYUV[x].U = 0.492*(ptrRGB[x].B-ptrYUV[x].Y); ptrYUV[x].V = 0.877*(ptrRGB[x].R-ptrYUV[x].Y); Yr[ptrYUV[x].Y] ; Ur[ptrYUV[x].U] ; Vr[ptrYUV[x].V] ; } } //利用Chart物件 Series5->Clear(); Series6->Clear(); Series7->Clear(); Series5->SeriesColor = clRed; Series6->SeriesColor = clGreen; Series7->SeriesColor = clBlue; for(int i=0;i<256;i ){ Series5->AddXY(i,Yr[i],"",clTeeColor); Series6->AddXY(i,Ur[i],"",clTeeColor); Series7->AddXY(i,Vr[i],"",clTeeColor); } Image1->Refresh(); } </textarea> |
發表時間：2007-03-26 20:50:36
IP:140.131.xxx.xxx 訂閱
系統時間：2024-05-06 1:05:43
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |