把汉字转换为拼音

1. functionChineseCharToPinyin(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. ifCLSIDFromString(PWideChar(WideString('MSIME.China')),vGuid)<>S_OKthen
18. Exit;
19. vError:=CoCreateInstance(vGuid,nil,CLSCTX_SERVER,
20. IFELanguage,vFELanguage);
21. ifvError<>S_OKthen
22. Exit;
23. vError:=vFELanguage.Open;
24. ifvError<>S_OKthen
25. Exit;
26. vCaps:=0;
27. vError:=vFELanguage.GetConversionModeCaps(@vCaps);
28. ifvError<>S_OKthen
29. Exit;
30. vOutput:=nil;
31. vError:=vFELanguage.GetJMorphResult(FELANG_REQ_REV,
32. FELANG_CMODE_PINYINorFELANG_CMODE_NOINVISIBLECHAR,
33. Length(W),PWideChar(W),nil,@vOutput);
34. ifvError<>S_OKthen
35. Exit;
36. ifnotAssigned(vOutput)thenExit;
37. vPinYin:=Copy(vOutput^.pwchOutput,1,vOutput^.cchOutput);
38. Result:=vPinYin;
39. CoTaskMemFree(vOutput);
40. vFELanguage.Close;
41. vFELanguage:=nil;
42. end;