Hi各位高手好~
小弟我想讀取BMP圖檔並以Byte(如:0xFFFFFFF...)方式顯示在Form的Memo元件上
以下是我找到的相關範例Code,請問ptr要如何修改才能以Byte顯示至Memo元件
=============================================

[code delphi]
Byte *ptr;
int r,g,b;
int gray;
int i,j;
int threshold;
threshold=ScrollBar1->Position;
Edit1->Text=ScrollBar1->Position;
Bmp->Assign(Image1->Picture->Bitmap);
for(j=0;jHeight;j )
{
ptr=(Byte *)Bmp->ScanLine[j];//ptr指標指向bmp第y行
for(i=0;iWidth;i )
{
b=ptr[i*3];
g=ptr[i*3 1];
r=ptr[i*3 2];
gray=0.299*r 0.587*g 0.114*b; //灰階演算
if(gray>threshold)
gray=255;
else
gray=0;
ptr[i*3]=(Byte)gray;//藍
ptr[i*3 1]=(Byte)gray; //綠
ptr[i*3 2]=(Byte)gray; //紅
}
}
[/code]

編輯記錄

不是非常懂您的問題, 是要讀出每個Pixel的顏色值嗎?

如果是這樣的話, 因為你已經丟到 TBitmap了, 直接用
TBitmap.Canvas.Pixels[x,y] 就會讀出 TColor 值
接著再用IntToHex 之類的函數轉成字串就可以丟到 Memo 上了

喔 剛剛看錯, 你是先放到 TImage 那就更簡單啦
TImage 也有 Canvas, 所以方法跟上述相同

------
Mephise Chen
前興德工程師

感謝mephise回應
我想要讀取一張Bmp圖檔Bitmap所有資料,
一張Bmp圖架構資料的(File Header 調色盤 影像資料->應該就是你說的Pixel),並以Hexstring方式顯示至元件Memo

那就跟它是不是 BMP 檔無關了, 你只是要單純開一個 Binary 檔, 然後讀數值而已

你可以利用這樣的宣告, 讀取檔案 (我是用 Untyped Binary File 方式來讀取)

var
F: File;

然後再利用
AssignFile, Reset, BlockRead, CloseFile 這幾個函數來讀取檔案
細節我就不說了, 請查閱 Delphi 中的 Help, Help裡面也有一些範例可供參考
把資料讀到 Byte 裡面再轉成 Hex 顯示在 Memo 中即可

------
Mephise Chen
前興德工程師