正在阅读：用Delphi 6编程实现自动标注汉语拼音用Delphi 6编程实现自动标注汉语拼音

2004-02-14 09:34 出处：电脑爱好者作者：Daffodil 责任编辑：zwg

用Delphi 6编程实现自动标注汉语拼音 　　在使用电脑编辑文档的时候，输入汉语拼音再加上它的声调，是一件令人头痛的事情，特别对于那些经常接触拼音的教师、家长和孩子。虽然 Office XP中已经加入了自动标注汉语拼音的功能，不过，Office XP要####.00元哦。对于没有用上Office XP的人来说，难道就没有办法享受到这种便利吗？好在我们学习了编程，就自己动手吧！　　这篇文章不仅仅是说明如何实现自动标注汉语拼音编程的，我的主要目的是演示解决问题的一般步骤。　　就本问题来说，你是不是有种不知如何下手的感觉？想一想我们在编写汉字GB－BIG5相互转化时的做法：把每一个汉字的GB码、BIG5码都列出来，并一一对应。我们可以仿照这种方法，把每一个汉字（至少6763 个！！！）对应的拼音都列出来，然后就可以查询了。　　不过，我相信你和我一样是懒惰的，懒惰的人通常会花费几倍的时间去找个可以懒惰的办法来。最懒惰的办法是……捡个现成的！先到网上问问看，就选大富翁论坛吧。这里不是大富翁游戏爱好者交流经验的论坛，而是专门讨论Delphi编程的地方，人气也好。登录http://www.delphibbs. com，免费注个册，问问看有没有谁知道如何编，或者能提供个组件什么的。记住要选邮件通知，如果有人回答问题，论坛会自动发邮件通知你，然后你就等着吧。　　闲着也是闲着，在等待的时候我们也该做点什么。首先，应该想到 MSDN，它可是程序员必备的编程参考书（软件）。在MSDN中输入spell 或phoneticize查一下，看看有没有我们想要的信息。你就沿着这条思路试试吧。还可以想一想，我们以前使用电脑接触到有拼音的地方。输入法！对了，就是拼音输入法！输入拼音我们可以得到汉字。我们能不能通过一种逆运算，输入汉字得到这个汉字的拼音？回答当然是肯定的，这也是本文推荐的方法。这种方法实际上就是得到汉字的字根。我们仍然可以上论坛去询问，到 MSDN中查找，不过问题要改为“如何得到汉字的字根”。不用说，你已经可以解决本问题了。实际上，此编程主要用到三个函数: GetKeyboardLayoutList：得到当台计算机中存在的输入法列表； ImmEscape ：得到输入法的名称; ImmGetConversionList: 看看这个输入法是否支持Reverse Conversion功能，如果支持则继续使用此函数，可取得组字字根信息。现在简单了，打开Delphi 6，添加两个TEdit控件、三个TBitBtn控件、一个TOpenDialog控件以及若干 Label控件以示说明，窗体设计如图1所示。接着输入下面的源代码，编译通过就可以使用了。主要的地方我已经加了注释。在编译之前，请确定你安装了微软拼音输入法。