Question

delphi7怎么将byte数组转为图片并显示

Answer 1

写一个函数，用tbitmap类的TBitmap.Canvas.Pixels[i,j]赋值对应位置数组的值。
在做这些之前要确定位图的格式，是灰度图还是真彩色图。做相应的调整

追答

procedure TForm1.Button1Click(Sender: TObject);

// This example shows drawing directly to the BitMap
var
x,y : Integer;
BitMap : TBitMap;
P : PByteArray;
begin
BitMap := TBitMap.create;
try
// On Windows replace MyBitmap.png with a full pathname such as
// C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp
BitMap.LoadFromFile('MyBitmap.png');
for y := 0 to BitMap.Height -1 do
begin
P := BitMap.ScanLine[y];

for x := 0 to BitMap.Width -1 do
P[x] := 这里填写数组对应位置的值;
end;
Canvas.Draw(0,0,BitMap);
finally
BitMap.Free;
end;
end;
这种是用scanline函数做的，速度会比较快些