如何读取汉字库并以图形显示 (2001年3月18日).txt

delphi 编程技巧

如何读取汉字库并以图形显示 (2001年3月18日) 

网友更新  分类:图形图象   作者:scott  推荐:scott   阅读次数:439  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
我需要把写字板中的文字转换成二进制矩阵位图文件以存放在单片机中供led显示屏显示，经过反复摸索，发现如果用windows下的矢量图形是不可能的，因为不能确切知道某字的矢量图函数，而且如果读到canvas中取点一是太慢，二是一般led显示屏的显示面积很小，在计算机中不可能使点一一对应，所以想到可以用dos下的点阵字库进行转换，我用的是16*16的字库，只是举个例子。
只要知道某个汉字的两个asscii码。具体程序如下，我只是把读出来的点阵显示出来。

procedure form1.button1click();
var pstr:array[0..1]of char;
getstr:array[0..31]of byte;
temp,dis:byte;
binf:file;
qh,wh:byte;
offset:longint;
j,i,x,y:integer;
begin
pstr:='姜';
qh:=ord(pstr[0]);
wh:=ord(pstr[1]);
qh:=qh-$a0;
wh:=wh-$a0;
offset:=(94*(qh-1)+(wh-1))*32;
assignfile(binf,'d:\hzk16.dat');//关联外部文件
reset(binf,1);//关联
seek(binf,offset);
blockread(binf,getstr,sizeof(getstr));
//close(binf);//关闭文件

form1.image1.Canvas.Brush.Color :=clred;
x:=0;
y:=0;
i:=0;
j:=0;
while(i<=31) do
begin
temp:=getstr[i];
for j:=0 to 7 do
begin
dis:=temp and 128;
dis:=dis shr 7;
if dis=1 then
form1.Image1.Canvas.Rectangle(x*10,y*10,x*10+11,y*10+11);//画点
///////
inc(x);
if x>15 then
begin
x:=0;
inc(y);
end;//end_if
temp:=temp shl 1;
end;//for
inc(i);
end;//end_while

end;