RAW->Bitmap

發文回覆瀏覽次數：2070

推到 Plurk!

推到 Facebook!

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]

系統時間：2024-04-24 19:45:26

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

RAW-&gt;Bitmap

RAW->Bitmap