DELPHI如何提取输入汉字的点阵数据

如何读取汉字库并以图形显示

    我需要把写字板中的文字转换成二进制矩阵位图文件以存放在单片机中供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; 

点阵字库（来自百度知道）
    一般我们使用16*16的点阵宋体字库，所谓16*16，是每一个汉字在纵、横各16点的区域内显示的。不过后来又有了HZK12、HZK24，HZK32和HZK48字库及黑体、楷体和隶书字库。
    虽然汉字库种类繁多，但都是按照区位的顺序排列的。前一个字节为该汉字的区号，后一个字节为该字的位号。每一个区记录94个汉字，位号则为该字在该区中的位置。因此，汉字在汉字库中的具体位置计算公式为：94*(区号-1)+位号-1。减1是因为数组是以0为开始而区号位号是以1为开始的。 
    这仅为以汉字为单位该汉字在汉字库中的位置，那么，如何得到以字节为单位得到该汉字在汉字库中的位置呢？只需乘上一个汉字字模占用的字节数即可，即：(94*(区号-1)+位号-1)*一个汉字字模占用字节数，而按每种汉字库的汉字大小不同又会得到不同的结果。 
    以16*16点阵字库为例，计算公式则为：(94*(区号-1)+(位号-1))*32。 
    汉字库从该位置起的32字节信息即记录了该字的字模信息。 
    了解点阵汉字及汉字库的构成原理后，显示汉字就变得简单。以16*16点阵字库为例，通常的方法是：将文件工作指针移到需要的汉字字模处、将汉字库文件读入一2*16数组再用for循环一位位地显示。 
#include "graphics.h" 
#include "stdio.h" 
main() 
{ 
　　int i=VGA,j=VGAHI,k; 
　　unsigned char mat[16][2],chinease[3]="我"; 
　　FILE *HZK; 
　　if((HZK=fopen("hzk16","rb"))==NULL)exit(0); 
　　initgraph(&i,&j,""); 
　　i=chinease[0]-0xa0;j=chinease[1]-0xa0; /*获得区码与位码*/ 
　　fseek(HZK,(94*(i-1)+(j-1))*32l,SEEK_SET); 
　　fread(mat,32,1,HZK); 
　　for(j=0;j<16;j++) 
　　　for(i=0;i<2;i++) 
　　　　for(k=0;k<8;k++) 
　　　　　if(mat[j][i]&(0x80>>k)) /*测试为1的位则显示*/ 
　　　　　　　putpixel(i*8+k,j,WHITE); 

　　getch(); 
　　closegraph(); 
　　fclose(HZK); 
} 

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
完整的Ｃ版本
#include <stdio.h> 
#include <alloc.h> 
#include <ctype.h> 
#include <dos.h> 
#include <dir.h> 
#include <io.h> 
#include <graphics.h> 
#define GETADR(n,str) (str *) calloc (n,sizeof(str)) // 申请N个指定字符串长度的地址 
#define W16 16 
#define C16 32 
unsigned char bit[8]={0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x01}; 

FILE *fi; 
char *dot,str[20]; 

main(int argc,char *argv[]) 
{ 
　　int i,j,nn,xc,yc,MaxX,MaxY,menul[1000]; 
　　int graphdriver=DETECT,graphmode; 
　　if(argc!=2)
　　{ //检测是否输入了2个参数 
　　　　puts("LT16<???.N4>"); 
　　　　exit(0); 
　　} 
　　dot=GETADR(C16,char); //获取16个char长度的内存地址 
　　fnmerge(str,"","",argv[1],".N4"); //建立str 为路径 ，文件名是 第一个参数.N4 的文件（这里可能有bug，str没初始化） 
　　if((fi=fopen(str,"r"))==NULL)
　　{ //打开这个文件用于输入 
　　　　puts("Can't open DATA."); 
　　　　exit(0); 
　　} 
　　fscanf(fi,"%d",&nn); //读取一个整数 
　　if(nn<=0||nn>1000) //这个数字必须在 0~1000之间 
　　　　exit(0); 
　　for (i=0;i<nn;i++) 
　　　fscanf(fi,"%d",&menul[i]); //根据这个数字来决定继续读取的数字数量 
　　fclose(fi); 
　　if((fi=fopen("CLIB16.DOT","rb"))==NULL)
　　{ //打开 CLIB16.DOT 这个文件 
　　　　puts("Can't open CLIB16.DOT"); 
　　　　exit(0); 
　　} 

　　initgraph(&graphdriver,&graphmode,""); // 初始化图形模式 
　　MaxX=getmaxx(); // 获得屏幕最大坐标范围 
　　MaxY=getmaxy(); 
　　xc=0; 
　　yc=20; 
　　for(j=0;j<nn;j++)
　　{ 
　　　　i=readlibdot(menul[j]); //读取点阵数据 
　　　　putchar16(xc,yc); //显示到对应的坐标系 
　　　　xc+=20; 
　　　　if(xc>MaxX-20)
　　　　{ 
　　　　　　yc+=20; 
　　　　　　xc=0; 
　　　　　　if(yc>MaxY-20)
　　　　　　{ 
　　　　　　　　getch(); 
　　　　　　　　clearviewport(); 
　　　　　　　　yc=0; 
　　　　　　} 
　　　　} 
　　} 
　　getch(); //按任意键继续 
　　closegraph(); //关闭图形模式 
} 

readlibdot(int j) 
{ 
　　int i0,j1,j2; 
　　long order,k1; 
　　j1=j/100; 
　　j2=j-j1*100; 
　　if(j1>=9) 
　　j1=j1-6; 
　　k1=94*j1+j2-95; 
　　order=C16*k1; 
　　fseek(fi,order,SEEK_SET); 
　　i0=fread(dot,C16,1,fi); 
　　return(i0); 
} 
putchar16(int bx,int by) //显示readlibdot 得到的汉字(保存在dot 里面)的每个象素点阵 
{ 
　　int i,j,kk,k,x1,y1; 
　　unsigned char marker; 
　　kk=0; 
　　y1=by; 
　　for(i=0;i<16;i++,y1++)
　　{ 
　　　　for(j=0;j<2;j++)
　　　　{ 
　　　　　　x1=bx+j*8; 
　　　　　　marker=*(dot+kk); 
　　　　　　kk++; 
　　　　　　for(k=0;k<8;k++)
　　　　　　{ 
　　　　　　　　if(!(marker&bit[k])) 
　　　　　　　　continue; 
　　　　　　　　putpixel(x1+k,y1,YELLOW); 
　　　　　　} 
　　　　}　 
　　} 
　　return; 
} 

转载于:https://www.cnblogs.com/wenwencao/archive/2009/05/25/1489004.html