请教：哪位大哥能够提供一个汉字转拼音的数据库？

[ntbxm]

一个字段是汉字，一个字段是拼音（不是第一位是要全部），急要，在线等...谢谢!!!

[劣势]

我有啊是一张汉字拼音表，搜集了6500多个汉字呀

[alinsoft]

//用下面的函数取得姓名的每个汉字的首个字母
function GetEn(CnString: string): string;
function GetEnChar(cnchar: string): char;
begin
case Word(cnchar[1]) shl 8 + Word(cnchar[2]) of
$B0A1..$B0C4: result := 'a';
$B0C5..$B2C0: result := 'b';
$B2C1..$B4ED: result := 'c';
$B4EE..$B6E9: result := 'd';
$B6EA..$B7A1: result := 'e';
$B7A2..$B8C0: result := 'f';
$B8C1..$B9FD: result := 'g';
$B9FE..$BBF6: result := 'h';
$BBF7..$BFA5: result := 'j';
$BFA6..$C0AB: result := 'k';
$C0AC..$C2E7: result := 'l';
$C2E8..$C4C2: result := 'm';
$C4C3..$C5B5: result := 'n';
$C5B6..$C5BD: result := 'o';
$C5BE..$C6D9: result := 'p';
$C6DA..$C8BA: result := 'q';
$C8BB..$C8F5: result := 'r';
$C8F6..$CBF9: result := 's';
$CBFA..$CDD9: result := 't';
$CDDA..$CEF3: result := 'w';
$CEF4..$D1B8: result := 'x';
$D1B9..$D4D0: result := 'y';
$D4D1..$D7F9: result := 'z';
else
result := char(0);
end;
end;
var
i, len: integer;
begin
CnString := StringReplace(CnString, ' ', '', [rfReplaceAll]); //删除空格
len := Length(CnString) - Length(WideString(CnString)); //汉字个数
for i := 1 to len do
result := result + GetEnChar(copy(CnString, 2*i-1, 2));
end;

[alinsoft]

呵呵，错了。楼主是要全部的，现在这个只有首位:(

[xfgncit98]

to czx0514(自己创业)：能给我发一份么？[e-mail]。谢谢。

[warmworm]

to alinsoft
这个算法不行,好多字都没有

告诉你一个最简单的方法
WINDOWS里自带了GBK码的汉字拼音表

我整理过
汉字拼音表
汉字笔画表
汉字部首表

厚厚,笔画表和部首表可是花了N多的时间

[yellowpage3403]

http://community.csdn.net/Expert/topic/3175/3175938.xml?temp=.88052

[yellowpage3403]

得从表中查询,
给你一个汉字拼音对照表是XML,里面包括拼音,首字母,笔画等,转换一下就可以了;
需要的话请给EMAIL,给你发去;

[ksaiy]

http://www.delphibox.com/article.asp?articleid=12

代码。直接下载就可以使用。

[xfgncit98]

如需要告知email，给你发。

[sunrains]

呵呵，我也有SQL的全部教本

[wenjianyao]

email给我我给你发