求助：怎么实现RGBA数据流显示并应用好ALPHA通道效果

riosinph

俺最近碰到个问题：另一程序传递了一个RGBA格式的图形数据流过来给我，我要任务是要显示出来，数据流长度为0x2400byte,图的高36,宽64.折算一下数据流长度是刚好0x2400byte。36x64=2304x4=9216=0x2400byte.每像素4位。

我现在的显示方式是这样：按顺序读取流数据：第1位Alpha值忽略不用，接下来的R/G/B各一字节拿来换算成Color，然后在Bitmap的画布上直接把COLOR赋值到对应的像素上去。

问题：颜色、图形的样子，都有偏差。估计是alpha通道值没应用起来的原因。

现在求高手指教，如果要用用上alpha值，该怎么用？是否有算法可以把RGBA数据转换成WINDOWS下的color?

riosinph

我的实现代码

1. 
   
2. function RGB2Color(RGB: TRGB): TColor;
   
3. begin
   
4.   with rgb do
   
5.   begin
   
6.     Result := (Blue shl 16) or (Green shl 8) or Red;
   
7.   end; //   with
   
8. end;
   
9. 
   
10. procedure TmainForm.btn55Click(Sender: TObject);
    
11. var
    
12.   p: PChar;
    
13.   ms: TMemoryStream;
    
14.   bm: TBitmap;
    
15.   jpeg1: TJpegImage;
    
16.   c: TColor;
    
17.   A, R, B, G: byte;
    
18.   RGB1: TRGB;
    
19.   i, j: integer;
    
20. begin
    
21. p := GetLastImageData();//取数据流BUFF
    
22.   if p = nil then
    
23.   begin
    
24.     Logit('返回空指针！');
    
25.     exit;
    
26.   end;
    
27.   ms := TMemoryStream.Create;
    
28.   try
    
29.     ms.Write(p^, $2400);//写入Stream
    
30.     ms.Position := 0;
    
31.     bm := TBitmap.Create;
    
32.     bm.Height := 36;
    
33.     bm.Width := 64;//位图控件
    
34.     //bm.PixelFormat := pf24bit;
    
35.     for i := 0 to 35 do
    
36.       for j := 0 to 63 do
    
37.       begin
    
38.         ms.Read(A, 1);//从流里读出内容，四字节一像素
    
39.         ms.Read(R, 1);
    
40.         ms.Read(G, 1);
    
41.         MS.Read(B, 1);
    
42.         RGB1.Blue := B;
    
43.         RGB1.Red := R;
    
44.         RGB1.Green := G;
    
45.         c := RGB2Color(RGB1);//转换成COLOR
    
46.         bm.Canvas.Pixels[j, i] := c;//写入画板
    
47.       end;
    
48.     jpeg1 := TJpegImage.Create;
    
49.     jpeg1.Assign(bm);
    
50.     bm.Free;
    
51.     img1.Stretch := true;
    
52.     img1.Picture.Assign(jpeg1);
    
53.     jpeg1.SaveToFile('d:\text.jpg');
    
54.     jpeg1.Free;
    
55.   finally
    
56.     //Dispose(p);
    
57.     ms.Free;
    
58.   end;
    
59. end;
    

复制代码