在delphi 7中實現獲取漢字拼音首字母

     公司的餐飲系統出品的助記碼，還沒實現自動從出品名稱獲取漢字拼音首字母。

   所以在網上找了三種解決方法，

    一種是kaguo 的使用常用漢字拼音查找方法，這種代碼十分簡單，實現方便，但是這種代碼僅僅是一級字庫，只支持三千零幾個字的。

//獲取中文字串的聲母的字串 function GetPY( hzchar:string):char; //guozhi------------ var tmpi:integer; begin tmpi := WORD(hzchar[1]) shl 8 + WORD(hzchar[2]); case tmpi 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; end;

         據kaguo說“瞭解一下漢字轉化拼音的程序，你就知道多音字分析多難處理了。   比如"很多人蔘加"，參應該是什麼？很容易分析成“人蔘”。   這方面切實接觸過，你就知道這種簡單易行的分析是最合適的。” 

        參考地址是http://topic.csdn.net/t/20040812/14/3267676.html

   另一種是拼音庫，不過有些下載沒有聲明到底支持多少個漢字，我統計過的一個拼音庫最多支持7242個漢字，當然這個是提供源碼的。這裏最好的是據說“支持GBK大字符集，共可查20876個(1.0版爲20588個)不同漢字的拼音或拼音首字母”的PARKE(R)柏克拼音DLL庫（沒有提供源碼）。

         參考地址是http://download.csdn.net/source/136187

柏克拼音DLL只有兩個函數,函數原型如下:

    //獲得拼音
    //參數依次爲: 拼音緩存區,要轉換的字符,分隔符
    BOOL WINAPI GetPinYin(PCHAR pBuf,PCHAR pStr,PCHAR pSeparator)

    //獲得拼音首字母
    //參數依次爲: 拼音緩存區,要轉換的字符
    BOOL WINAPI GetPinYinLeader(PCHAR pBuf,PCHAR pStr)

      在delphi 7下調用PARKE(R)柏克拼音DLL庫,調用代碼如下

        function GetPinYinLeader(pBuf : PChar;pStr : PChar): Boolean; stdcall; external 'Pinyin.dll';//聲明庫中的方法 procedure TForm1.btn3Click(Sender: TObject); var str1 : string; Pstr2 : Pchar; begin str1 := Trim(edt1.Text); //一定要分配內存，要不就出現訪問地址錯誤 Pstr2 := StrAlloc(256); //給字符指針(PChar、PWideChar、PAnsiChar)分配內存, 最佳選擇是: StrAlloc.（這句來自萬一的博客） GetPinYinLeader(Pstr2,PChar(str1)); edt2.Text := string(Pstr2); StrDispose(Pstr2); end;

     經過測試這四個字“吳2黨饐”得到的字符串是"w2dy"。結果應該是不錯的。

     ps:以前在delphi沒調用過C寫的dll庫，今天就學習一回。

   在C++builder6中動態調用的方法，（靜態的調用試驗沒成功，主要是用implib沒法生成正確的Pinyin.lib，內容缺文件名，一啓動就報找不到文件，不知道誰可以幫忙解決這個問題）

  void __fastcall TForm1::btn1Click(TObject *Sender) { HINSTANCE PinYinAPI; bool _stdcall (*GetPinYinLeader)(char * ,char *); PinYinAPI = LoadLibrary("Pinyin.dll"); (FARPROC)GetPinYinLeader=GetProcAddress(PinYinAPI,"GetPinYinLeader");//FARPROC不知道是做什麼用的，大概是轉換什麼指針類型的，在c++builder幫助中沒有這樣的解釋。不加這個，編譯不過去的 char cbuf[256]={0}; memset(cbuf,0,sizeof(cbuf)); char * cinput; cinput = (Trim(edt1->Text)).c_str(); GetPinYinLeader(cbuf,cinput); edt2->Text = cbuf; FreeLibrary(PinYinAPI); }

最後一種是從微軟拼音輸入法取出拼音庫.必須安裝“微軟拼音輸入法”,反查只能查詢一個字的。查不了一個詞組的。(當然經過適當的代碼可以查出詞組)

    參考地址:http://topic.csdn.net/t/20041118/09/3563659.html