汉字转化成拼音

Question

请问各位高手，怎么将汉字转化成拼音呀？

Answer 1

function GetPYIndexChar(strChinese: string;bUpCase: Boolean = True): char; 
begin 
// 根据汉字表中拼音首字符分别为“A”至“Z”的汉字内码范围， 
// 要检索的汉字只需要检查它的内码位于哪一个首字符的范围内， 
// 就可以判断出它的拼音首字符。 
  case WORD(strChinese[1]) shl 8 + WORD(strChinese[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..$D188 : result := 'X'; 
    $D1B9..$D4D0 : result := 'Y'; 
    $D4D1..$D7F9 : result := 'Z'; 
    else 
               result := char(0); 
  end; 
  if not bUpCase then 
  begin // 转换为小写 
    result := Chr(Ord(result)+32); 
  end; 
end; 
这个对你有帮助，稍微改改就可以实现你饿目的了

Answer 2

还有一个搜全部拼音的
unit HzSpell;interfaceuses
  Windows, Messages, SysUtils, Classes;type
  THzSpell = class(TComponent)
  protected
    FHzText: String;
    FSpell: String;
    FSpellH: String;
    procedure SetHzText(const Value: String);
    function GetHzSpell: String;
    function GetPyHead: String;
  public
    class function PyOfHz(Hz: String): String;
    class function PyHeadOfHz(Hz: String): String;
  published
    property HzText: String read FHzText write SetHzText;
    property HzSpell: String read GetHzSpell;
    property PyHead: String read GetPyHead;
  end;{$I HzSpDat2.inc}procedure Register;function GetHzPy(HzChar: PChar; Len: Integer): String;
function GetHzPyFull(HzChar: String): String;
function GetHzPyHead(HzChar: PChar; Len: Integer): String;
function GetPyChars(HzChar: String): String;implementationprocedure Register;
begin
  RegisterComponents('System', [THzSpell]);
end;function GetHzPy(HzChar: PChar; Len: Integer): String;
var
  C: Char;
  Index: Integer;
begin
  Result := '';
  if (Len > 1) and (HzChar[0] >= #129) and (HzChar[1] >= #64) then
  begin
    //是否为 GBK 字符
    case HzChar[0] of
      #163:  // 全角 ASCII
      begin
        C := Chr(Ord(HzChar[1]) - 128);
        if C in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']'] then
          Result := C
        else
          Result := '';
      end;
      #162: // 罗马数字
      begin
        if HzChar[1] > #160 then
          Result := CharIndex[Ord(HzChar[1]) - 160]
        else
          Result := '';
      end;
      #166: // 希腊字母
      begin
        if HzChar[1] in [#$A1..#$B8] then
          Result := CharIndex2[Ord(HzChar[1]) - $A0]
        else if HzChar[1] in [#$C1..#$D8] then
          Result := CharIndex2[Ord(HzChar[1]) - $C0]
        else
          Result := '';
      end;
      else
      begin  // 获得拼音索引
        Index := PyCodeIndex[Ord(HzChar[0]) - 128, Ord(HzChar[1]) - 63];
        if Index = 0 then
          Result := ''
        else
          Result := PyMusicCode[Index];
      end;
    end;
  end
  else if Len > 0 then
  begin
    //在 GBK 字符集外, 即半角字符
    if HzChar[0] in ['a'..'z', 'A'..'Z', '0'..'9', '(', ')', '[', ']'] then
      Result := HzChar[0]
    else
      Result := '';
  end;
end;function GetHzPyFull(HzChar: String): String;
var
  i, len: Integer;
  Py: String;
  function IsDouByte(C: Char): Boolean;
  begin
    Result := C >= #129;
  end;
begin
  Result := '';
  i := 1;
  while i <= Length(HzChar) do
  begin
    if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then
      len := 2
    else
      len := 1;
    Py := GetHzPy(@HzChar[i], len);
    Inc(i, len);
    if (Result <> '') and (Py <> '') then
      Result := Result + ' ' + Py           // + ' '
    else
      Result := Result + Py;
  end;
end;function GetHzPyHead(HzChar: PChar; Len: Integer): String;
begin
  Result := Copy(GetHzPy(HzChar, Len), 1, 1);
end;function GetPyChars(HzChar: String): String;
var
  i, len: Integer;
  Py: String;
  function IsDouByte(C: Char): Boolean;
  begin
    Result := C >= #129;
  end;
begin
  Result := '';
  i := 1;
  while i <= Length(HzChar) do
  begin
    if IsDouByte(HzChar[i]) and (Length(HzChar) - i > 0) then
      len := 2
    else
      len := 1;
    Py := GetHzPyHead(@HzChar[i], len);
    Inc(i, len);
    Result := Result + Py;
  end;
end;{ THzSpell }function THzSpell.GetHzSpell: String;
begin
  if FSpell = '' then
  begin
    Result := GetHzPyFull(FHzText);
    FSpell := Result;
  end
  else Result := FSpell;
end;function THzSpell.GetPyHead: String;
begin
  if FSpellH = '' then
  begin
    Result := GetPyChars(FHzText);
    FSpellH := Result;
  end
  else Result := FSpellH;
end;class function THzSpell.PyHeadOfHz(Hz: String): String;
begin
  Result := GetPyChars(Hz);
end;class function THzSpell.PyOfHz(Hz: String): String;
begin
  Result := GetHzPyFull(Hz);
end;procedure THzSpell.SetHzText(const Value: String);
begin
  FHzText := Value;
  FSpell := '';
  FSpellH := '';
end;end.

Answer 3

那位仁兄可以给我一份得到全部汉字拼音的程序。
[email protected]定重谢！

Answer 4

楼上的仁兄可我发一份，只要能用就可以了。[email protected]

Answer 5

xzhifei(飞)兄，你的zSpDat2.inc能否发到

Answer 6

我也想要，谢谢！[email protected]

Answer 7

没有收到了，myling(阿德) 仁兄，能不能麻烦再发一次呀，万分感谢！！！！

Answer 8

是我的邮箱出问题了，怎么好没有收到了？？？？？郁闷ing.

Answer 9

我也要！
[email protected]

Answer 10

能给我一份吗?
[email protected]

Answer 11

我有一个VCL组件用于获取汉字拼音，在csdn软件频道 VCL组件栏目的 其它 部分 THZPinyin

Answer 12

myling(阿德)也给咱发一份吧，这年头，这么好的东东不好找呀。谢谢。

Answer 13

真晕，没留EMAIL怎么发呀？？？DEBUG：[email protected]

Answer 14

谢谢能给一份么
[email protected]

Answer 15

me too!
[email protected]

Answer 16

发个给我吧，谢了[email protected]
感激不尽

Answer 17

myling(阿德) 发份给我吧，这么好的东东。
E_MAIL:[email protected]非常感谢！

Answer 18

发给我一份好吗
e_mail:[email protected]
谢谢！

Answer 19

到哪儿能找到vcl呀，Lewolf(李狼)，能给出网址吗？非常感谢！！！
还有这个vcl支持那个版本的delphi呀！！！

Answer 20

http://www.csdn.net/cnshare/soft/16/16162.shtm
不过不能支持Delphi，我是用C++ Builder 5编写的，提供的是bpl文件和.h文件以及lib文件。下载包里有一个Demo，你可以看看，功能是否可以用。

Answer 21

http://www.delphibox.com/softview.php?type=m&softid=249

Answer 22

非常感谢zhuxud提供的源代码，非常好用。