将影像资料转到矩阵内.pptVIP

將影像資料轉到矩陣內 * 彩色圖片的像素由RGB組成 每個大小為1Byte(0~255) = 總共為3Bytes = 24bits color 另外一種色彩模式YRGB會加入亮度值Y 變成4Bytes = 32bits color 範例Week2-1 加入Pixel結構 * 宣告Pixel結構，內含RGB三個byte屬性 宣告二維動態矩陣 * p : array of array of integer; Setlength( p, 5); Setlength( p[0], 4); Setlength( p[1], 7); P[0] P[1] P[2] P[3] P[4] 宣告二維動態矩陣 * for i := 0 to 4 do begin setlength( p[i], 8); end; P[0] P[1] P[2] P[3] P[4] 範例Week2-1 符合bm大小的動態矩陣 * Bitmap 2d Array of Pixel 宣告全域變數 mp: array of array of Pixel; 同學操作練習時間 * Note * TBitmap.Width 取得TBitmap物件的寬 TBitmap.Height 取得TBitmap物件的高 範例Week2-1 符合bm大小的動態矩陣 * w:=bm.Width; h:=bm.Height; setlength(mp, h); for i:=0 to h-1 do begin setlength(mp[i], w); end; 同學操作練習時間 * 圖片矩陣使用之記憶體空間 * 1280 1024 3bytes 圖片矩陣使用之記憶體空間 * 1280 1024 ? ? ? 以一條掃描線為單位 儲存在一塊記憶體 取得第n條掃描線之開頭位置： TBitmap.Scanline[ n ] Note * Move( X , Y , L ); 從X值的記憶體位置，複製L長度的資料到Y值的記憶體位置 例：integer長度為4個byte, 要把X複製到Y var X, Y: integer X := 100; move( X, Y, 4); 範例Week2-1 將讀入的bm搬到mp矩陣 * bm: TBitmap mp: array bm.scanline[ n ] mp[ n, 0 ] COPY 範例Week2-1 將讀入的bm搬到mp矩陣 * var p: pbyte; // 指標變數 p begin for i: = 0 to h-1 do begin p := bm.ScanLine[i]; move( p^, mp[i,0], w*3 ); end; ??? 使用迴圈把bm每一列的內容 複製到mp的對應位置 一列有w個像素，一個像素佔3 bytes的長度(RGB) 同學操作練習時間 * 範例Week2-1 將bm設定為24bit格式 (RGB) * bm.PixelFormat := pf24bit; 強制設定圖形格式為24bit 同學操作練習時間 * 範例Week2-1 將處理好的矩陣搬回bm * 同前，只是move的來源和目標交換 for i: = 0 to h-1 do begin p := bm.ScanLine[i]; move(mp[i,0], p^, w*3 ); end;