怎么将汉字转换成汉语拼音?

Question

如何将输入的汉字转换成为汉语拼音?

Answer 1

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

Answer 2

yellowpage3403(黄页) 
能不能给我一份: [email protected]

Answer 3

我也要：[email protected]谢谢~！

Answer 4

简单的～网上找的
unit HzSpell;
{ version 4.1}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.
//ShowMessage(THzSpell.PyOfHz(Edit1.Text));
//ShowMessage(UpperCase(THzSpell.PyHeadOfHz(Edit1.Text)));

Answer 5

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

Answer 6

okook(2004新春快乐) 的这个这是一级字库啊只有3千多字啊。
最好查字典啊。偶这有字典txt的，不过只是拼音简码（拼音首字母）。
要的话给你。