字符画，一种由字母、标点、汉字或其他字符组成的图画。简单的字符画是利用字符的形状代替图画的线条来构成简单的人物、事物等形象，它一般由人工制作而成；复杂的字符画通常利用占用不同数量像素的字符代替图画上不同明暗的点，它一般由程序制作而成。字符画是互联网时代的产物，通常应用于即时聊天中。

第一个关键技术：汉字库读取技术

使用汉字库技术可以做到和操作系统无关性，先了解一下点阵

字库的基本原理。如下所示，下面是一个“字”的点阵图，在16点阵字库中一个汉字为16x16点，每一行使用两个字节表示，如下面示例第一行的十六进制为：0x02和0x00，所以，一个汉字在16点阵字库中需要占用2x16个字节，24点阵字库需要3x24个字节，下面仅以16点阵字库为例，其他点阵类似。 ██████　█████████

███████　████████

██　██

██　██████████　██

█　██████████　███

███　█████

█████████　██████

████████　███████

███████　█████　██

█

███████　████████

███████　████████

███████　████████

███████　████████

█████　█　████████

██████　█████████

下面的函数返回指定字符串的字符画文本

functionGet16(constAWord,AForeground,ABackground:string):string;

functionGetBit(constc,n:byte):integer;

begin

result:=(cshrn)and1;

end;

var

iLen:integer;

iFileSize:integer;

s:string;

k,l,i,p:integer;

cw:array[0..31]ofchar;

qu_ma,wei_ma:integer;

File16:file;

begin

iLen:=length(AWord);

AssignFile(File16,piProgramInfo.Path+HZK16);

FileMode:=fmOpenRead;

try

Reset(File16,1);

finally

FileMode:=fmOpenReadWrite;

end;

iFileSize:=FileSize(File16);

try

forl:=1toiLendiv2do

begin

k:=l*2-1;

//如果不是汉字，往前进一位

whilekiLenthenbreak;

if((ord(AWord[k])and$80)0)then

begin

qu_ma:=ord(AWord[k])-161;

wei_ma:=ord(AWord[k+1])-161;

if(94*qu_ma+wei_ma)*32+32＞iFileSizethencontinue;

try

seek(File16,(94*qu_ma+wei_ma)*32);

except

myMessageBox(fseekcallfail!);

exit;

end;BlockRead(File16,cw,32); fori:=0to15do

begin

forp:=7downto0do

begin

ifGetBit(ord(cw[i*2]),p)=1thens:=s+AForeground

elses:=s+ABackground;

end;

forp:=7downto0do

begin

ifGetBit(ord(cw[i*2+1]),p)=1thens:=s+AForeground

elses:=s+ABackground;

end;

s:=s+#13#10;

end;

end;

end;

finally

CloseFile(File16);

end;

result:=s;

end;

第二个关键技术：使用系统字库进行转换

其实使用系统字库是极为自由的方式，因为这样完全不必关心字库的技术，这一切都交给系统好了，充分利用系统资源。

如果定义一个设备，然后设定好设备的各种属性，包括宽度、高度、字体、颜色等，然后在上面绘制文本就可以了，要转换为字符画，只需要把设备上的点阵信息转换为文本即可。配合CreateFontIndirect函数，使用DrawText可以绘制丰富的文本效果。实现完整的字符画效果 下面是十二号宋体的转换结果：

█████　██████

█　█

████████　█

██　███

██████　█████

█████　██████

█

█████　██████

█████　██████

█████　██████

███　██████

████████████ 下面是九号@黑体的转换结果：

████████████

██　███　████

██　████　████

██　█　██　████

██　█　█　████

█　█　█

█　██　██　█

██　█　██　██　█

██　█　██　████

██　████　████

██　███　████

████████████

第三个关键技术：图片转换为文本

要把图像转换为文本，这其中有一个很大的困难，就是文本没有颜色，所以特别引进了一个概念：文本灰度，就是把不同字母在屏幕上显示的大小排序，得到一张灰度表，用这个灰度表来转换图片，可以达到比较好的效果。

下面的函数可以把一个位图转换成文本，ABit是位图，AGray是灰度

functionImageToText(ABit:TBitmap;constAGray:string):string;

var

x,y:integer;

s:string;

pColor:Longint;

R,G,B:byte;

iGray:integer;sGrayPer:string;

iGrayLen:integer;

iIndex:integer;

begin

s:=;

sGrayPer:=AGray;

iGrayLen:=Length(sGrayPer);

fory:=0toABit.Height-1do

begin

forx:=0toABit.Width-1do

begin

pColor:=ABit.Canvas.Pixels[x,y];

R:=pColorand;

G:=(pColorshr8)and;

B:=(pColorshr16)and; iGray:=HiByte(R*77+G*151+B*28);

iIndex:=(iGray*iGrayLendiv255);

ifiIndexiGrayLentheniIndex:=iGrayLen;

s:=s+sGrayPer[iIndex];

end;

s:=s+Crlf;

end;

result:=s;

end;

这是一个常用且效果比较好的灰度：“MNHQ?7＞!:-;.”

第四个关键技术：把文本转换为图像

要把文本转换为图片，必须获取两个重要参数：转换后的宽和高，要取得这两个参数，我们可以使用GetTextExtentPoint32函数，该函数的定义如下：

functionGetTextExtentPoint32(DC:HDC;Str:PChar;Count:Integer;varSize:TSize):BOOL;

DC传入设备句柄

Str为文本内容

Count为文本的长度(字节)

Size返回宽和高

在实际应用中，往往被转换的文本有多行，且每一行的长度不定，

所以我们还需要在生成图像前进行一遍预扫，以便获得完整的图像大小 下面演示了文本转换为图像的代码

////////////////////////////////////////////////////////////////////////////////

//功能:把文本转换为位图

//AOwner:窗体参数

//AText:要转换的文本

//AFont:文本的字体

//ABitmap:转换后的位图对象

//日期:2003.12.15

////////////////////////////////////////////////////////////////////////////////

procedureTextToBitmap(AOwner:TObject;constAText:TStrings;AFont:TFont;ABitmap:TBitmap);

var

i:integer;

iWidth,iHeight:integer;

iCharHeight:integer;

s:string;

r:TRect;

size:TSize;

lblTemp:TLabel;

begin

iWidth:=0;

iHeight:=0;

lblTemp:=TLabel.Create(nil);

r.Top:=0;

try

lblTemp.Visible:=false;

lblTemp.Parent:=TWinControl(AOwner);

lblTemp.Font.Assign(AFont);

ABitmap.Canvas.Brush.Style:=bsClear;

ABitmap.Canvas.Pen.Color:=rgb(0,0,0);

ABitmap.Canvas.Brush.Color:=RGB(255,255,255);

ABitmap.Canvas.Font.Assign(AFont);

//下面代码用户获得文本的最大宽度和高度

fori:=0toAText.Count-1do

begin

s:=AText.Strings[i];

ifs=thens:=;

lblTemp.Caption:=s;

GetTextExtentPoint32(lblTemp.Canvas.Handle,pchar(lblTemp.Caption),lblTemp.GetTextLen,size);

ifiWidth＜size. cxtheniWidth:=Size. cx;

iHeight:=iHeight+Size. cy;

end;

//获得一个字符的高度

GetTextExtentPoint32(lblTemp.Canvas.Handle,pchar(),length(),size);

iCharHeight:=size. cy;

ABitmap.Width:=iWidth;

ABitmap.Height:=iHeight;

fori:=0toAText.Count-1do

begin

s:=AText.Strings[i];

r.Left:=0;

r.Right:=ABitmap.Width;

r.Bottom:=r.Bottom+iCharHeight;

DrawText(ABitmap.Canvas.Handle,PChar(s),length(s),r,0);

r.Top:=r.Top+iCharHeight;

end;

finally

lblTemp.Free;

end;

end;

图片转换成字符画，一幅SHE的字符画，由密密麻麻的字符组成，粉丝们真是疯狂得可以，一个字母一个字母地拼，不怕被整崩溃啊没想到，原来有一种专门将图片转换为字符的程序。 下面要介绍的就是一个专门的图片转换网站。找一张合适的图片，点击“浏览”，然后点Submit，这样就得到字符画了。如果想保存下来，接下来为这张图取一个名字（不支持中文），然后点Submit，进入另一个页面后点DownloadNow，你会得到一个txt格式的文件，刚才的字符画就保存其中了。另外，此页面还可以调整字符画的明暗并选择不同的字符（字符画上方）。点GotoMyPage，就会得到一个专门保存刚才字符画的页面。