把汉字转换为拼音

最新推荐文章于 2012-06-25 23:24:44 发布

iteye_19488

最新推荐文章于 2012-06-25 23:24:44 发布

阅读量197

点赞数

分类专栏： delphi

delphi 专栏收录该内容

21 篇文章

订阅专栏

function ChineseCharToPinyin(w: WideString): string;
var
vGuid: TGUID;
vFELanguage: IFELanguage;
vError: Integer;
vCaps: DWORD;
vOutput: PMORRSLT;
vPinYin: WideString;
S: WideString;
I: Integer;
iMonoRubyPos: WORD;
iReadIdxWDD: WORD;
vMonoRubyPos: PWORD;
vReadIdxWDD: PWORD;
begin
Result := EmptyStr;
if CLSIDFromString(PWideChar(WideString('MSIME.China')), vGuid) <> S_OK then
    Exit;
vError := CoCreateInstance(vGuid, nil, CLSCTX_SERVER,
    IFELanguage, vFELanguage);
if vError <> S_OK then
    Exit;
vError := vFELanguage.Open;
if vError <> S_OK then
    Exit;
vCaps := 0;
vError := vFELanguage.GetConversionModeCaps(@vCaps);
if vError <> S_OK then
    Exit;
vOutput := nil;
vError := vFELanguage.GetJMorphResult(FELANG_REQ_REV,
    FELANG_CMODE_PINYIN or FELANG_CMODE_NOINVISIBLECHAR,
    Length(W), PWideChar(W), nil, @vOutput);
if vError <> S_OK then
    Exit;
if not Assigned(vOutput) then Exit;
vPinYin := Copy(vOutput^.pwchOutput, 1, vOutput^.cchOutput);
Result := vPinYin;
CoTaskMemFree(vOutput);
vFELanguage.Close;
vFELanguage := nil;
end;