delphi7 把点阵010010000011110001......赋值到surface 例子

在Delphi 7中，将二进制点阵数据（如`010010000011110001...`）赋值给Surface通常是通过将二进制转换成像素数据，然后填充到相应的图像对象，最后再将这个图像对象绑定到Surface上。这里有一个基本的例子，假设我们有这样一个8x8的二进制点阵：

uses Graphics, ImgList;

// 假设我们的二进制数据存储在一个字符串变量里
var
  BitmapData: array[0..63] of byte; // 点阵数据，8x8，每行7位
  PixelArray: array[0..63] of TColor; // 转换后的像素数组

procedure ConvertBinaryToPixels(BinaryString: string);
begin
  for i := 0 to High(BitmapData) do
  begin
    BitmapData[i] := Ord(BinaryString[i*7 + 1..i*7 + 7]); // 读取每位
    if BitmapData[i] = 1 then
      PixelArray[i] := clRed; // 将1转换为红色（或其他颜色）
    else
      PixelArray[i] := clWhite; // 将0转换为白色
  end;
end;

function CreateImageFromPixelArray(PixelArray: array of TColor): TBitmap;
begin
  Result := TBitmap.Create;
  Result.SetSize(8, 8); // 创建8x8的图像
  FillChar(Result.Pixels, SizeOf(TColor) * Result.Width * Result.Height, clBlack); // 清空图像
  for y := 0 to Result.Height - 1 do
    for x := 0 to Result.Width - 1 do
      Result.Pixels[x, y] := PixelArray[y * Result.Width + x]; // 根据像素数组填入颜色
end;

var
  Form: TForm;
  GdiSurface: TGASurface;
  Image: TBitmap;
begin
  ConvertBinaryToPixels('010010000011110001...'); // 替换实际的二进制字符串

  Image := CreateImageFromPixelArray(PixelArray);

  // 获取Form的Surface
  Form := TForm1.Create(nil);
  try
    GdiSurface := Form.Surface; // 假设Form叫TForm1
    
    // 将图像复制到Surface
    GdiSurface.Lock(nil, flGraphics); // 锁住Surface
    try
      GdiSurface.StretchDraw(0, 0, Image.Width, Image.Height, Image, 0, 0, sdScanLine);
    finally
      GdiSurface.Unlock; // 解锁Surface
    end;
  finally
    Form.Free;
  end;
end;

注意：此示例假设你已经设置了一个适当的TForm作为容器。实际应用中可能需要根据你的需求调整大小和位置。此外，上述代码仅适用于纯黑色和白色的点阵，如果点阵包含多种颜色，可能需要修改颜色映射部分。