d7 用delphix里的dxdraw画黑白像素图，把0100011001...这样的MAPDATA ，其中0是白色，1是黑色。 例子

在Delphi中使用DxDraw绘制基于二进制序列的黑白像素图，比如`0100011001...`，可以按照以下步骤操作：

1. **准备数据结构**：
首先，将二进制字符串转换为数组或列表，代表像素的颜色。例如：

   const
     MAPDATA = '0100011001...'; // 你的二进制序列
   var
     PixelArray: array[0..Length(MAPDATA) div 8 - 1] of Boolean; // 由于每个像素由8位表示
   begin
     for I := 0 to High(PixelArray) do
       PixelArray[I] := MAPDATA[I*8] = '1';
   end;

2. **创建Surface**：
然后创建一个Surface，并设置其宽度、高度和颜色模式（灰度）：

   var
     Surface: TCustomDxSurface;
     Bitmap: TBitmap;
   begin
     Surface := TCustomDxSurface.Create(nil, Length(PixelArray) * 8, 1); // 假设每个像素宽度为1
     Bitmap := TBitmap.Create;
     Bitmap.Canvas.Brush.Color := clGray; // 黑色对应True，白色对应False
   end;

3. **绘制像素**：
循环遍历`PixelArray`，根据像素值填充Surface的相应位置：

   Bitmap.Canvas.FillRect(Rect(0, 0, Length(PixelArray) * 8, 1), Brush);
   Bitmap.Canvas.Pen.Color := clBlack;
   for I := 0 to High(PixelArray) do
   begin
     if PixelArray[I] then
       Bitmap.Canvas.Rectangle(I * 8, 0, I * 8 + 1, 1);
   end;

这里假设黑色对应True，所以当`PixelArray[I] = True`时画一个像素线。

4. **将Surface转换为DxDraw Surface**：

   Surface := TCustomDxSurface.FromBitmap(Bitmap);

5. **显示或保存Surface**：
最后，如果需要显示，可以使用`Surface.Show`，如果是保存图片，可以使用`Surface.SaveToImageFile('output.png', dxIFmtBMP)`。