全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1781
推到 Plurk!
推到 Facebook!

RAW->Bitmap

 
anumis
一般會員


發表:25
回覆:27
積分:15
註冊:2006-07-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-08-11 15:03:14 IP:61.218.xxx.xxx 訂閱
使用Scanline +CopyMemory
RAW 來源是Euresys的EBW8Image,有需要的板友改個來源就好了


[code delphi]
procedure ConvertRawToBmp(pImage :TEBW8Image; pBitmap: TBitmap);
var
i :Integer;
pBitmapPtr,
pRowImagePtr :PByte;
begin
pBitmap.SetSize(pImage.ImageWidth, pImage.ImageHeight);
pBitmap.PixelFormat := pf8bit;
pBitmap.Palette := CreatePalette(SysPal.lPal);

for i := 0 to pImage.ImageHeight -1 do
begin
pRowImagePtr := PByte(pImage.GetImagePointer(0, i));
pBitmapPtr := pBitmap.ScanLine[i];
CopyMemory(pBitmapPtr, pRowImagePtr, pBitmap.Width);
end;
end;

[/code]
系統時間:2017-10-22 9:10:08
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!