英特尔®游戏设计大赛100美元现金周周送	专题改版：Java Web 专题

如何用函数将中文转化成拼音（回答就有分）

楼主Dingobin（丁丁历险）2003-12-01 21:43:23 在 Delphi / VCL组件开发及应用提问

如何用函数将中文转化成拼音，比如：
我输入 “我是谁”
希望得到 “wo shi shei” 问题点数：100、回复次数：11Top

1 楼sundayboysII（空）回复于 2003-12-01 21:49:53 得分 80

调用例子：
MakeSpellCode(edtInAQYMC.Text, 2, 255)

unit IMCode;

(*
简化版拼音反查单元=====================
修改于 Trueway(TM) LiQunwei
修改者 2ccc.com ZhongWan
修改内容去掉外挂字典，简化代码
*)

interface

function MakeSpellCode(stText: string; iMode, iCount: Integer): string;
{ iMode 二进制功能位说明
X X X X X X X X X X X X X X X X
3 2 1
1: 0 - 只取各个汉字声母的第一个字母; 1 - 全取
2: 0 - 遇到不能翻译的字符不翻译; 1 - 翻译成 '?' (本选项目针对全角字符)
3: 0 - 生成的串不包括非数字, 字母的其他字符; 1 - 包括
(控制全角的要输出非数字, 字母字符的; 半角的非数字, 字母字符)
}

function GetSpellCode(szText: PChar; iMode, iCount: Integer): PChar; stdcall;

implementation

uses
SysUtils;

type
{ 拼音代码表 }
TPYCode = record
PYCode: string[6];
end;
TFPYCodes = array [1..126, 1..191] of TPYCode;

const
PYMUSICCOUNT = 405;
PyMusicCode: array [1..PYMUSICCOUNT] of string[6] = { 汉字基本发音表 } (
'a', 'ai', 'an', 'ang', 'ao', 'ba', 'bai', 'ban', 'bang', 'bao',
'bei', 'ben', 'beng', 'bi', 'bian', 'biao', 'bie', 'bin', 'bing', 'bo',
'bu', 'ca', 'cai', 'can', 'cang', 'cao', 'ce', 'ceng', 'cha', 'chai',
'chan', 'chang', 'chao', 'che', 'chen', 'cheng', 'chi', 'chong', 'chou', 'chu',
'chuai', 'chuan', 'chuang', 'chui', 'chun', 'chuo', 'ci', 'cong', 'cou', 'cu',
'cuan', 'cui', 'cun', 'cuo', 'da', 'dai', 'dan', 'dang', 'dao', 'de',
'deng', 'di', 'dian', 'diao', 'die', 'ding', 'diu', 'dong', 'dou', 'du',
'duan', 'dui', 'dun', 'duo', 'e', 'en', 'er', 'fa', 'fan', 'fang',
'fei', 'fen', 'feng', 'fu', 'fou', 'ga', 'gai', 'gan', 'gang', 'gao',
'ge', 'ji', 'gen', 'geng', 'gong', 'gou', 'gu', 'gua', 'guai', 'guan',
'guang', 'gui', 'gun', 'guo', 'ha', 'hai', 'han', 'hang', 'hao', 'he',
'hei', 'hen', 'heng', 'hong', 'hou', 'hu', 'hua', 'huai', 'huan', 'huang',
'hui', 'hun', 'huo', 'jia', 'jian', 'jiang', 'qiao', 'jiao', 'jie', 'jin',
'jing', 'jiong', 'jiu', 'ju', 'juan', 'jue', 'jun', 'ka', 'kai', 'kan',
'kang', 'kao', 'ke', 'ken', 'keng', 'kong', 'kou', 'ku', 'kua', 'kuai',
'kuan', 'kuang', 'kui', 'kun', 'kuo', 'la', 'lai', 'lan', 'lang', 'lao',
'le', 'lei', 'leng', 'li', 'lia', 'lian', 'liang', 'liao', 'lie', 'lin',
'ling', 'liu', 'long', 'lou', 'lu', 'luan', 'lue', 'lun', 'luo', 'ma',
'mai', 'man', 'mang', 'mao', 'me', 'mei', 'men', 'meng', 'mi', 'mian',
'miao', 'mie', 'min', 'ming', 'miu', 'mo', 'mou', 'mu', 'na', 'nai',
'nan', 'nang', 'nao', 'ne', 'nei', 'nen', 'neng', 'ni', 'nian', 'niang',
'niao', 'nie', 'nin', 'ning', 'niu', 'nong', 'nu', 'nuan', 'nue', 'yao',
'nuo', 'o', 'ou', 'pa', 'pai', 'pan', 'pang', 'pao', 'pei', 'pen',
'peng', 'pi', 'pian', 'piao', 'pie', 'pin', 'ping', 'po', 'pou', 'pu',
'qi', 'qia', 'qian', 'qiang', 'qie', 'qin', 'qing', 'qiong', 'qiu', 'qu',
'quan', 'que', 'qun', 'ran', 'rang', 'rao', 're', 'ren', 'reng', 'ri',
'rong', 'rou', 'ru', 'ruan', 'rui', 'run', 'ruo', 'sa', 'sai', 'san',
'sang', 'sao', 'se', 'sen', 'seng', 'sha', 'shai', 'shan', 'shang', 'shao',
'she', 'shen', 'sheng', 'shi', 'shou', 'shu', 'shua', 'shuai', 'shuan', 'shuang',
'shui', 'shun', 'shuo', 'si', 'song', 'sou', 'su', 'suan', 'sui', 'sun',
'suo', 'ta', 'tai', 'tan', 'tang', 'tao', 'te', 'teng', 'ti', 'tian',
'tiao', 'tie', 'ting', 'tong', 'tou', 'tu', 'tuan', 'tui', 'tun', 'tuo',
'wa', 'wai', 'wan', 'wang', 'wei', 'wen', 'weng', 'wo', 'wu', 'xi',
'xia', 'xian', 'xiang', 'xiao', 'xie', 'xin', 'xing', 'xiong', 'xiu', 'xu',
'xuan', 'xue', 'xun', 'ya', 'yan', 'yang', 'ye', 'yi', 'yin', 'ying',
'yo', 'yong', 'you', 'yu', 'yuan', 'yue', 'yun', 'za', 'zai', 'zan',
'zang', 'zao', 'ze', 'zei', 'zen', 'zeng', 'zha', 'zhai', 'zhan', 'zhang',
'zhao', 'zhe', 'zhen', 'zheng', 'zhi', 'zhong', 'zhou', 'zhu', 'zhua', 'zhuai',
'zhuan', 'zhuang', 'zhui', 'zhun', 'zhuo', 'zi', 'zong', 'zou', 'zu', 'zuan',
'zui', 'zun', 'zuo', '', 'ei', 'm', 'n', 'dia', 'cen', 'nou',
'jv', 'qv', 'xv', 'lv', 'nv'
);Top

2 楼xiaoqiang123（xiaoqiang）回复于 2003-12-01 21:49:57 得分 0

给你一个第三方控件吧，专门用于中文转拼音的Top

3 楼Dlwxn（Dlwxn）回复于 2003-12-01 21:50:10 得分 0

跟这个作者联系
http://expert.csdn.net/Expert/topic/2370/2370416.xml?temp=.8533747Top

4 楼hthunter（茫茫然时光飞逝）回复于 2003-12-01 21:51:11 得分 0

不知道可不可以掉金山词霸一类的引擎来用？呵呵Top

5 楼sundayboysII（空）回复于 2003-12-01 21:51:37 得分 0

PyCodeIndex: array [1..126, 1..191] of Word = ( { 拼音索引表 }
(354,279,331,0,190,39,284,67,249,167,353,19,133,92,129,152,31,385,105,131,84,348,348,329,133,0,376,116,283,349,344,87,133,0,0,0,284,202,0,0,0,0,0,0,342,345,0,276,199,243,0,0,52,0,375,102,88,176,170,348,136,180,375,0,354,294,299,94,344,368,344,55,347,333,131,347,353,369,166,74,325,92,0,329,6,19,0,306,0,332,372,114,107,20,33,370,279,258,79,191,243,328,220,83,43,324,62,376,229,354,64,73,329,348,336,92,2,349,232,282,84,305,389,357,134,332,343,336,363,332,217,208,335,340,377,389,13,232,348,294,348,374,107,181,378,21,250,14,371,47,346,369,14,332,250,284,10,121,110,333,91,78,194,19,113,123,102,251,47,337,282,320,106,157,348,101,349,189,340,3,175,77,178,29,37,343,377,263,125,294,56),
(302,214,130,132,313,373,393,39,404,134,286,313,282,320,20,201,334,318,354,330,340,101,148,329,348,84,167,122,350,332,270,229,330,190,331,339,62,134,375,157,294,123,334,125,16,309,81,344,11,354,336,116,374,375,19,133,220,389,167,323,169,43,387,0,91,310,286,187,304,383,337,237,241,88,167,299,245,80,375,387,178,295,171,122,68,386,12,329,134,200,23,125,347,276,245,350,36,243,264,376,45,325,354,19,309,345,83,305,328,75,34,283,140,62,29,11,367,120,220,369,388,345,353,340,367,47,84,84,375,190,92,348,335,343,294,71,368,373,315,11,360,245,325,296,375,297,331,355,261,217,357,126,180,63,305,109,129,330,278,243,252,35,40,270,11,334,352,220,304,301,346,78,19,333,359,97,270,162,352,362,387,231,295,381,354,368,389,279,43,131,107),
(370,247,349,62,335,174,11,234,130,166,175,182,243,332,304,350,68,392,278,127,132,318,392,240,160,32,101,241,308,381,325,92,20,121,45,312,278,220,82,332,354,75,170,20,97,332,332,193,347,130,242,127,83,377,2,269,348,137,216,304,348,58,150,0,125,40,128,276,359,24,18,3,303,59,30,158,348,130,243,188,329,214,248,208,32,169,404,152,10,354,16,360,375,294,353,109,247,246,164,308,325,173,40,31,333,311,335,164,179,360,221,305,345,179,202,360,338,265,265,316,32,208,208,130,345,284,0,0,0,0,282,69,0,0,120,329,265,167,354,107,310,0,92,348,184,254,345,184,367,132,98,132,184,377,96,340,353,140,348,189,284,188,134,147,193,84,335,189,303,89,116,226,84,193,242,125,296,186,316,97,131,247,68,88,349,2,164,25,194,384,52),
(294,74,130,170,330,70,79,79,134,40,374,83,198,375,83,83,139,88,237,150,107,258,43,92,243,53,92,57,323,136,164,84,250,64,193,171,376,17,129,129,278,31,94,43,153,74,77,129,47,131,69,179,363,355,54,0,276,43,54,164,81,31,241,0,43,386,89,240,74,247,385,125,92,345,123,74,375,329,98,283,125,367,139,244,42,31,381,175,164,231,278,147,98,117,367,385,166,134,172,102,128,102,125,125,314,92,125,125,375,31,390,196,164,378,344,131,145,335,375,348,378,196,160,135,147,346,321,334,197,152,129,169,0,131,90,193,37,159,352,0,135,247,175,21,157,139,190,68,340,329,348,343,346,283,168,175,234,284,92,244,128,251,333,348,342,79,135,314,134,57,181,343,343,404,164,34,333,251,357,133,10,0,14,87,87,348,231,134,220,91,75),
(95,55,133,95,203,133,348,126,141,116,250,79,245,361,152,116,354,102,121,57,153,166,166,298,70,133,250,330,143,345,250,343,209,389,284,330,323,323,335,278,92,288,152,330,335,254,346,248,280,37,340,330,153,92,75,330,270,345,372,107,344,62,368,0,227,0,245,344,375,183,309,281,313,391,81,363,355,164,63,246,5,102,345,164,32,243,164,345,345,355,114,190,262,250,0,162,70,381,282,282,282,348,56,285,136,6,267,284,385,331,334,92,357,265,48,98,249,37,0,114,192,183,341,386,74,347,223,123,348,39,246,335,239,117,114,354,221,342,263,223,90,137,404,91,326,241,329,128,357,37,283,319,326,75,284,135,230,326,197,254,62,284,377,312,330,348,241,237,386,340,348,334,344,250,332,320,239,17,84,346,123,303,55,321,393,21,302,332,123,241,77),
(75,375,378,343,334,149,284,311,397,341,322,160,314,338,353,189,209,337,0,109,357,173,239,183,389,110,332,160,238,167,6,192,404,299,84,107,356,353,97,97,11,107,348,243,316,345,323,164,249,34,362,344,69,241,62,246,0,114,0,0,167,159,276,0,0,328,349,241,321,244,3,363,209,354,310,157,330,2,400,385,368,358,334,333,384,329,326,309,97,241,241,57,347,386,316,52,110,344,241,372,167,332,350,98,363,104,179,0,62,251,320,0,305,3,57,354,372,377,30,322,0,360,220,190,116,357,119,355,92,376,325,276,340,120,367,345,167,354,271,139,127,345,278,230,300,351,325,350,0,11,0,362,123,309,220,334,244,273,352,114,335,180,29,106,263,321,92,227,329,332,386,175,321,0,301,0,269,0,199,244,14,5,166,391,378,196,304,128,38,128,139),
Top

6 楼sundayboysII（空）回复于 2003-12-01 21:52:14 得分 0

(304,282,2,334,174,334,116,121,104,340,332,363,32,238,60,180,116,86,305,347,269,128,334,117,181,254,334,334,92,153,334,109,396,127,340,320,304,343,329,392,79,139,121,24,43,358,57,354,319,330,241,109,166,340,121,349,343,220,294,345,350,55,369,0,385,216,356,335,127,355,2,352,325,354,230,59,336,73,58,336,232,349,391,214,62,158,302,328,331,347,74,339,377,368,130,32,343,185,375,175,121,228,353,220,349,351,186,114,372,164,172,106,202,196,345,164,175,173,196,57,35,236,232,333,185,330,74,148,345,31,350,0,156,302,334,46,119,123,381,372,334,367,164,31,30,164,348,179,360,297,0,365,125,358,378,158,212,0,0,121,349,213,317,141,355,132,233,357,48,121,75,104,314,316,104,253,260,104,303,104,349,122,107,178,104,44,325,355,251,148,240),
(355,355,344,317,316,316,317,177,121,348,176,176,344,316,313,240,175,150,344,384,297,297,385,58,242,331,278,212,196,124,375,343,348,246,186,261,319,82,14,337,158,131,92,62,337,226,305,250,385,98,303,132,346,0,175,249,96,342,6,171,378,84,116,0,375,5,0,228,193,92,110,404,47,37,349,115,72,371,84,101,220,74,102,29,346,335,285,19,114,55,138,58,108,3,337,332,9,239,11,348,349,107,340,383,246,83,80,252,352,137,331,62,159,135,246,372,169,117,21,132,347,62,344,251,299,374,323,134,178,374,146,279,68,304,23,315,13,332,74,348,375,384,241,134,208,143,154,208,125,89,354,344,97,163,80,344,154,3,282,203,316,36,119,14,166,328,381,10,354,329,129,264,347,94,387,354,120,75,220,84,92,186,279,320,349,83,376,129,130,113,89),
(45,332,237,162,337,120,71,323,341,330,92,150,350,352,139,297,284,189,327,36,316,252,376,164,231,9,361,72,373,329,374,343,373,2,95,345,140,326,335,172,106,159,279,231,13,35,175,175,223,243,186,196,381,290,174,16,27,375,370,140,63,35,385,0,92,104,244,246,62,52,345,302,366,243,325,383,127,278,278,81,240,318,317,79,252,73,392,62,283,121,74,304,61,329,82,120,304,55,347,378,125,354,244,127,144,348,232,63,126,347,342,304,158,134,118,58,255,243,343,332,330,2,344,59,264,130,404,152,175,345,304,325,121,173,173,265,164,170,31,343,345,162,6,323,270,382,348,181,378,382,116,154,116,340,154,285,183,73,285,348,350,126,227,368,15,299,253,171,54,341,335,203,331,355,323,375,247,0,96,241,188,188,35,363,136,90,306,303,345,14,0),
(357,335,6,76,309,228,135,335,63,346,119,139,367,12,120,81,64,343,145,5,327,303,329,5,126,166,74,357,126,284,82,123,14,176,74,313,243,133,218,29,332,79,92,114,57,353,131,129,326,376,224,145,376,357,232,37,356,382,345,201,336,82,83,0,355,70,20,385,371,208,355,315,341,375,75,196,14,282,75,110,340,78,374,193,8,84,171,386,254,332,346,182,386,134,258,68,92,87,333,123,135,96,125,125,209,375,373,332,113,101,343,149,345,194,169,229,344,353,345,332,309,321,251,295,114,332,280,283,335,183,84,329,143,157,50,313,337,201,354,238,299,375,107,382,237,318,332,354,345,329,330,345,354,294,164,134,383,241,332,385,68,175,75,75,404,190,48,239,134,23,171,334,286,241,121,84,328,328,304,81,81,310,208,251,131,131,243,63,337,116,323),
(157,349,377,203,84,178,0,154,349,344,134,164,63,332,117,117,346,220,201,267,124,354,354,325,309,262,186,57,264,247,121,328,243,45,191,84,129,71,348,376,120,190,345,350,341,129,325,374,249,375,335,320,166,184,254,294,233,325,321,50,116,245,10,0,340,354,102,388,220,355,261,263,172,186,226,357,180,153,282,373,355,301,261,194,350,297,211,306,227,159,203,10,232,348,354,341,355,348,141,352,208,391,130,381,363,201,160,372,116,116,5,264,180,235,97,329,127,320,369,191,332,332,196,168,166,117,102,61,375,340,348,117,330,153,220,345,31,128,186,84,79,345,348,111,128,84,284,299,244,166,341,336,211,68,348,24,2,210,214,180,311,39,130,47,354,236,261,263,208,345,303,350,243,356,190,14,282,337,208,70,172,355,158,345,171,128,255,158,332,350,290),
(335,251,189,164,176,345,378,158,136,386,336,294,303,353,381,343,192,48,323,344,348,386,164,342,20,200,212,350,176,261,248,316,262,220,348,131,384,378,114,284,348,311,330,36,253,95,334,367,284,282,120,189,147,23,360,355,249,110,373,125,214,19,119,0,246,284,214,130,214,375,354,10,151,214,404,246,116,375,214,282,325,335,151,121,137,348,348,10,246,173,10,83,404,72,238,381,238,0,346,381,343,378,72,59,129,189,189,286,279,196,168,332,332,154,353,211,227,324,324,324,220,74,153,376,88,97,380,88,88,330,14,129,310,64,284,373,335,208,330,0,182,174,237,335,81,335,404,28,335,134,136,168,136,378,335,238,321,332,164,345,59,121,173,258,329,107,282,40,0,356,8,220,4,329,129,92,82,323,243,241,129,393,393,346,134,89,342,238,164,311,389),
Top

7 楼sundayboysII（空）回复于 2003-12-01 21:52:32 得分 0

(84,320,232,5,152,250,238,311,171,37,237,0,9,314,342,15,110,143,179,75,212,65,175,76,77,87,251,348,198,284,3,325,119,189,164,92,314,325,353,97,169,220,128,75,347,21,253,83,203,164,353,332,261,59,282,36,316,94,90,331,349,354,202,0,140,345,252,38,302,170,117,134,157,193,154,154,389,97,344,89,178,178,171,74,374,349,68,107,374,325,232,129,389,148,68,349,386,363,120,354,346,83,249,346,309,348,375,284,75,378,369,404,345,186,107,92,119,313,329,354,387,158,143,345,345,325,387,29,301,143,246,309,316,72,330,327,25,305,350,129,139,172,329,127,13,63,243,352,212,54,284,267,295,387,126,168,141,31,65,399,66,316,174,369,369,5,26,250,244,391,391,59,59,330,354,232,173,333,374,20,246,128,345,160,369,168,168,246,74,392,127),
(136,220,128,220,136,369,348,342,203,347,347,348,212,345,92,335,143,330,62,5,391,325,261,59,171,129,354,356,349,263,129,169,330,173,173,350,330,134,31,350,325,345,203,251,33,51,176,63,63,212,345,345,345,203,345,150,120,337,33,169,0,240,240,0,249,375,371,348,130,300,251,0,238,358,66,212,82,224,375,116,57,56,321,84,196,348,348,237,242,135,263,288,291,127,373,284,253,56,102,237,370,270,323,56,276,241,70,115,374,340,325,348,9,237,65,95,226,306,189,124,308,121,376,282,16,104,363,198,9,131,31,375,329,14,14,370,189,127,31,82,188,9,59,192,40,129,332,158,125,19,88,92,313,363,101,185,246,319,344,336,129,382,344,47,314,348,375,311,375,334,316,102,148,188,353,21,19,36,157,92,295,286,247,354,191,296,363,333,81,133,75),
(325,172,331,296,375,21,247,133,133,174,349,330,175,348,40,316,294,336,191,32,329,81,152,0,150,14,273,170,168,404,92,350,332,313,352,164,313,345,62,238,121,200,121,82,250,345,361,348,77,270,77,284,64,116,329,318,126,6,282,370,306,84,62,0,33,373,348,251,280,355,131,64,370,126,244,231,14,281,304,125,91,78,14,147,125,17,334,304,104,244,114,208,104,323,136,92,175,121,121,348,348,348,356,356,326,345,354,37,64,352,234,37,385,348,92,376,324,62,171,84,324,330,324,374,375,131,48,375,48,0,92,375,387,377,157,335,129,125,309,331,233,84,325,227,330,374,234,309,60,375,17,376,34,220,121,186,173,333,10,250,161,258,313,87,258,107,348,303,330,79,350,326,326,329,92,330,129,323,48,354,284,52,303,384,246,122,338,324,332,141,134),
(348,10,193,229,147,8,215,369,116,389,353,62,318,353,84,330,14,353,341,48,19,120,342,232,286,330,304,352,196,0,284,330,160,113,152,197,375,335,220,65,109,325,340,334,294,149,249,121,37,348,338,99,170,37,279,381,356,231,60,121,334,183,352,0,355,232,356,354,354,143,372,170,128,245,309,21,243,330,187,348,113,36,329,164,167,48,348,164,203,75,329,48,60,32,187,164,100,100,241,146,310,178,330,140,103,208,73,104,369,355,130,92,170,354,110,251,304,309,212,46,187,336,329,301,387,125,352,60,203,357,312,45,248,27,15,122,387,309,11,341,325,91,325,14,341,119,190,352,241,305,349,336,184,242,143,2,245,345,264,387,294,350,252,114,357,297,241,220,295,120,92,97,134,43,208,335,139,374,352,26,343,282,20,330,335,122,352,346,164,272,306),
(349,340,303,357,194,95,48,234,198,104,37,24,24,24,52,193,370,314,5,290,100,252,362,133,166,223,295,246,349,404,279,317,182,332,281,247,62,375,404,135,241,241,354,237,168,295,353,38,375,314,36,241,250,231,11,248,128,37,166,237,153,121,374,0,349,349,330,330,57,304,74,319,297,136,27,334,79,82,160,160,332,193,168,329,24,136,50,332,304,283,232,348,332,216,57,304,131,295,128,325,341,246,246,134,272,144,350,348,170,273,137,118,2,347,155,331,37,354,349,56,188,208,188,72,241,196,332,187,39,375,221,40,346,20,375,152,152,353,84,172,192,36,121,31,158,118,341,255,31,92,134,119,281,166,201,196,305,136,382,382,356,91,125,68,65,23,124,375,153,369,244,91,125,354,353,330,369,330,330,250,116,116,75,348,309,184,63,279,348,348,345),
(249,164,79,263,359,370,356,354,329,107,282,367,348,241,329,0,258,330,246,124,354,5,372,375,375,0,345,324,15,134,326,116,356,246,282,374,357,323,265,239,239,6,215,363,357,19,375,201,240,220,373,367,346,242,208,347,37,232,124,186,250,40,344,0,369,228,199,243,320,7,375,134,155,242,243,112,213,95,392,348,335,273,121,7,375,155,74,74,216,373,110,128,68,263,169,367,175,281,136,169,134,344,332,354,345,20,94,309,36,301,243,186,216,134,231,125,345,299,335,367,83,148,249,123,316,239,363,296,354,385,323,375,392,380,368,175,296,345,9,325,323,246,281,193,187,84,59,328,251,356,387,310,316,12,328,393,331,241,36,272,178,247,89,62,122,241,286,323,171,344,374,167,98,348,340,345,374,23,19,309,388,144,285,129,194,94,188,272,231,221,125),
Top

8 楼BeyondStudio（Alan）回复于 2003-12-01 21:52:49 得分 20

var

iHandleCount: integer;

pList: array[1..nHKL_LIST] of HKL;

szImeName: array[0..254] of char;

i: integer;

sFound: string;

begin

lstComposition.Items.Clear;

iHandleCount := GetKeyboardLayoutList(nHKL_LIST, pList);

for i := 1 to iHandleCount do

begin

if ImmEscape(pList[i], 0, IME_ESC_IME_NAME, @szImeName) > 0 then

begin

sFound := QueryCompStr(pList[i], edtExam.Text);

if sFound <> '' then

lstComposition.Items.Add(StrPas(szImeName) + ': ' + sFound);

end;

end;

**************

金山词霸 (2.0-2000 版本 ) 内有 gb2py.idx 和 gbk2py.idx,内有国标

GB 、 GBK 的每个汉字的拼音和声调。可用拿来一用。

下面上 Delphi 写的 gb2py 函数。

function gb2py(hanzi:pchar):pchar;

var

Sfile:Tmemorystream;

pos,temp,ipos,len:integer;

py:array[0..20] of char;

begin

pos:=($fe-$a1)*(ord(hanzi[0])-$b0)+ord(hanzi[1])-$a1;

sfile:=Tmemorystream.create;

sfile.loadfromfile('C:\Program Files\KINGSOFT\XDICT\gb2py.idx');

//data:=sfile.memory;

sfile.Seek($1608+pos*4,soFromBeginning);

sfile.Read(ipos,4);

sfile.Read(temp,4);

len:=temp-ipos;

sfile.Seek(ipos+1,soFromBeginning);

sfile.Read(py,len);

py[len-1]:=#0;

sfile.Free;

result:=py;

end;Top

9 楼sundayboys（sunboy）回复于 2003-12-01 21:54:36 得分 0

呵呵，晕了，上面的代码不贴了，csdn限制太多了：（还不让我继续贴。Top

10 楼Dingobin（丁丁历险）回复于 2003-12-01 21:56:27 得分 0

先谢谢大家，如果小弟试验成功，定马上加分Top

11 楼saien（精益求精）回复于 2003-12-01 21:56:59 得分 0

呵呵，晕了Top