如何自动获得输入汉字的拼音??(100分)

如何自动获得输入汉字的拼音??<br>谢谢.

我是用五笔输入的,如何在输入的同时获得此汉字的拼音拼写?

通过数据库吧，建一个表一为汉字，一为拼音码

给你一个函数吧！<br>function GetPYIndexChar(hzchar: string): char; <br>begin <br>&nbsp; case Word(hzchar[1]) shl 8 + Word(hzchar[2]) of <br>&nbsp; &nbsp; $B0A1..$B0C4: result := 'A'; <br>&nbsp; &nbsp; $B0C5..$B2C0: result := 'B'; <br>&nbsp; &nbsp; $B2C1..$B4ED: result := 'C'; <br>&nbsp; &nbsp; $B4EE..$B6E9: result := 'D'; <br>&nbsp; &nbsp; $B6EA..$B7A1: result := 'E'; <br>&nbsp; &nbsp; $B7A2..$B8C0: result := 'F'; <br>&nbsp; &nbsp; $B8C1..$B9FD: result := 'G'; <br>&nbsp; &nbsp; $B9FE..$BBF6: result := 'H'; <br>&nbsp; &nbsp; $BBF7..$BFA5: result := 'J'; <br>&nbsp; &nbsp; $BFA6..$C0AB: result := 'K'; <br>&nbsp; &nbsp; $C0AC..$C2E7: result := 'L'; <br>&nbsp; &nbsp; $C2E8..$C4C2: result := 'M'; <br>&nbsp; &nbsp; $C4C3..$C5B5: result := 'N'; <br>&nbsp; &nbsp; $C5B6..$C5BD: result := 'O'; <br>&nbsp; &nbsp; $C5BE..$C6D9: result := 'P'; <br>&nbsp; &nbsp; $C6DA..$C8BA: result := 'Q'; <br>&nbsp; &nbsp; $C8BB..$C8F5: result := 'R'; <br>&nbsp; &nbsp; $C8F6..$CBF9: result := 'S'; <br>&nbsp; &nbsp; $CBFA..$CDD9: result := 'T'; <br>&nbsp; &nbsp; $CDDA..$CEF3: result := 'W'; <br>&nbsp; &nbsp; $CEF4..$D188: result := 'X'; <br>&nbsp; &nbsp; $D1B9..$D4D0: result := 'Y'; <br>&nbsp; &nbsp; $D4D1..$D7F9: result := 'Z'; <br>&nbsp; else <br>&nbsp; &nbsp; result := char(0); <br>&nbsp; end; <br>end; <br>

我有一个动态链接库但我不记得是在哪儿下载了，可以得到汉字的拼音码。<br>可是我找不到上传的地方。

莫知的函数在深度历险里有，但是这个函数有个BUG，就是不能找出卷舌音的拼音。如：<br>ZH、CH、等等。

我手里有一套控件，把EMAIL留下，我发给你。<br>控件是根据WINDOWS的IME做的。多音字的问题你自己解决。

我的EMAIL是deepsea@eastday.com<br>谢谢!!

有汉字拼音数据库的,你输入汉字后在数据库查询就行了.

to lmtfw:<br>&nbsp; 请把你的控件给我也发一份吧,谢谢！zhouqing99@163.net

see

to hbezwwl:<br>&nbsp; &nbsp;你说的数据库在哪?? &nbsp;SQL里有自带吗??

to lmtfw:<br>&nbsp; &nbsp;请把你的控件给我也发一份吧,谢谢！happynie@sina.com

to lmtfw:<br>&nbsp; 请把你的控件给我也发一份吧,谢谢！remix2002@163.com

需要gbk的还是gb2312的？

多音字怎么处理的？

对不起，来晚了，EMAIL已经发出，请核查。

to lmtfw:<br>&nbsp; &nbsp;货已收到！非常感谢！我是个新手以后还请多多指导！

http://www.delphibbs.com/keylife/iblog_show.asp?xid=1757