//转化一个汉字为点阵信息。参数Text为一个汉字，ChrWidth是字符宽，汉字是两个字符大小，所以如果要生成宽是12的汉字则ChrWidth为6，ChrWidth目前最多是8，因为大多数的硬件使用的点阵信息是16以下ChrHeight是汉字的高，SaveFileName是保存该汉字点阵信息的文件名。

function ConvertToMatrix(Text:PChar;

  ChrWidth,ChrHeight:Byte; SaveFileName:Pchar):Bool;

type

   PBITMAPINFO=^TBitmapInfo;

var

  TempBmp:TBitmap;

  lpvSBits,lpvDBits:Pchar;

  dOffset,sOffset:integer;

  DC:HDC;

  TheFont: HFont;

  BMIInfo:PBITMAPINFO;

  DS: TDIBSection;

  BMIbuf:array[..]of byte;

  i,j:integer;//循环控制

  wData:WORD;//保存字体每行的点阵信息，最多16位，不足16位忽略多余的高位

  MemoryStream:TMemoryStream;

begin

  //大于一个字退出

  if Length(Text)> then

  begin

    ShowMessage('请转化一个汉字！');

    Result:=False;

    Exit;

  end;

  //参数合理否

  if (ChrWidth=) or (ChrHeight=) or (SaveFileName = '') then

  begin

    ShowMessage('参数错误！');

    Result:=False;

    Exit;

  end;

  //建立流

  MemoryStream:=TMemoryStream.Create;

  //建立临时文件

  TempBmp:=TBitmap.Create;

  //设定为256色

  TempBmp.PixelFormat:= pf8bit;

  //设定图宽度

  TempBmp.Width:=ChrWidth * Length(Text);

  //设定图高度

  TempBmp.Height:= ChrHeight;

  //得到BMP文件HDC

  DC:=TempBmp.Canvas.Handle;

  //建立逻辑字体

  TheFont := CreateFont(ChrHeight,ChrWidth, , , , , , ,

    GB2312_CHARSET, Out_Default_Precis, Clip_Default_Precis,

    Default_Quality, Default_Pitch OR FF_SCRIPT, 'script');

  //指定字体给DC

  SelectObject(DC,TheFont);

  //写入指定字符串

  TextOut(DC,,,Pchar(Text),Length(Text));

  //释放逻辑字体

  DeleteObject(TheFont);

  //取得Bmp信息到lpvSBits

  BMIInfo:=PBITMAPINFO(@BMIbuf);

  //分配内存

  lpvSBits:=AllocMem(TempBmp.Width*TempBmp.Height);

  lpvDBits:=AllocMem(TempBmp.Width*TempBmp.Height);

  //建立程序屏幕兼容的DC

  DC := CreateCompatibleDC();

  //返回指定的BMP信息到DS中保存

  GetObject(TempBmp.Handle, SizeOf(DS), @DS);

  //读取头信息

  BMIInfo.bmiHeader:=ds.dsBmih;

  //读入DIB

  GetDIBits(DC, TempBmp.Handle, , ds.dsBmih.biHeight,lpvSBits,

    BMIInfo^ , DIB_RGB_COLORS);

  //倒置图像

  for i:= to TempBmp.Height- do

  begin

    sOffset:=i*TempBmp.Width;

    dOffset:=(TempBmp.Height-i-)*TempBmp.Width;

    CopyMemory(lpvDBits+dOffset,lpvSBits+sOffset,TempBmp.Width);

  end;

  //保存文件

  for i:= to TempBmp.Height- do

  begin

    wData:=;

    for j:= to TempBmp.Width- do

    begin

      //ShowMessage(inttostr(ord((lpvDBits+i*TempBmp.Width+j)^)));

      if ord((lpvDBits+i*TempBmp.Width+j)^)= then

      begin

        wData:=(wData shl )OR ;

      end

      else

      begin

        wData:=(wData shl )OR ;

      end;

    end;

    MemoryStream.Write(wData,SizeOf(wData));

  end;

  MemoryStream.SaveToFile(SaveFileName);

  MemoryStream.Free;

//TempBmp.SaveToFile('temp.bmp')可删除，存'temp.bmp'文件的目的只是为对比察看

  TempBmp.SaveToFile('temp.bmp');

  TempBmp.Free;

  FreeMem(lpvSBits);

  FreeMem(lpvDBits);

  result:=True;

end;