把汉字转换为拼音

 

1. function ChineseCharToPinyin(w: WideString): string;
2. var
3. vGuid: TGUID;
4. vFELanguage: IFELanguage;
5. vError: Integer;
6. vCaps: DWORD;
7. vOutput: PMORRSLT;
8. vPinYin: WideString;
9. S: WideString;
10. I: Integer;
11. iMonoRubyPos: WORD;
12. iReadIdxWDD: WORD;
13. vMonoRubyPos: PWORD;
14. vReadIdxWDD: PWORD;
15. begin
16. Result := EmptyStr;
17. if CLSIDFromString(PWideChar(WideString('MSIME.China')), vGuid) <> S_OK then
18.     Exit;
19. vError := CoCreateInstance(vGuid, nil, CLSCTX_SERVER,
20.     IFELanguage, vFELanguage);
21. if vError <> S_OK then
22.     Exit;
23. vError := vFELanguage.Open;
24. if vError <> S_OK then
25.     Exit;
26. vCaps := 0;
27. vError := vFELanguage.GetConversionModeCaps(@vCaps);
28. if vError <> S_OK then
29.     Exit;
30. vOutput := nil;
31. vError := vFELanguage.GetJMorphResult(FELANG_REQ_REV,
32.     FELANG_CMODE_PINYIN or FELANG_CMODE_NOINVISIBLECHAR,
33.     Length(W), PWideChar(W), nil, @vOutput);
34. if vError <> S_OK then
35.     Exit;
36. if not Assigned(vOutput) then Exit;
37. vPinYin := Copy(vOutput^.pwchOutput, 1, vOutput^.cchOutput);
38. Result := vPinYin;
39. CoTaskMemFree(vOutput);
40. vFELanguage.Close;
41. vFELanguage := nil;
42. end;