Delphi中建立指定大小字体和读取该字体点阵信息的函数

Delphi实现汉字转点阵信息函数

最新推荐文章于 2024-08-02 08:57:03 发布

原创

最新推荐文章于 2024-08-02 08:57:03 发布 · 2.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #colors #integer #email #byte #function

本文介绍了一种用Delphi编写的函数，能够将指定大小的汉字转化为点阵信息并保存到文件。函数接受汉字、字符宽度、字符高度和保存文件名作为参数，生成的点阵信息以二进制位表示，1代表有文字信息，0代表空白。文章提供了详细代码实现。

Delphi中建立指定大小字体和读取该字体点阵信息的函数

作者：Thermometer
Email: webmaster@daheng-image.com

　　由于要控制硬件，需要把矢量的汉字转化为点阵信息写入eprom或在液晶屏上显示，因此用Delphi写了如下的函数，可以把指定的一个汉字（两个字符）转化为点阵信息保存到文件，每个点对应一个二进制位，有文字信息该位为1,否则为0。

　　目前该函数可以生成指定大小的汉字并可读取点阵字模信息保存到文件。

　　如ConvertToMatrix(Pchar('北'),6,18,'Font.dat')将生成12*18点阵文件Font.dat，其中保存汉字‘北’的字模信息。文件格式是从上到下，先行后列，如下图，第一行保存为00 00，第二行是90 00 （均是16进制，余下个行类推）

//转化一个汉字为点阵信息。参数Text为一个汉字，ChrWidth是字符宽，汉字是两个字符大小，所以如果要生成宽是12的汉字则ChrWidth为6，ChrWidth目前最多是8，因为大多数的硬件使用的点阵信息是16以下ChrHeight是汉字的高，SaveFileName是保存该汉字点阵信息的文件名。
function ConvertToMatrix(Text:PChar;
ChrWidth,ChrHeight:Byte; SaveFileName:Pchar):Bool;
type
PBITMAPINFO=^TBitmapInfo;
var<

最低0.47元/天解锁文章