请问能否输入汉字自动生成拼音和五笔码？ ( 积分: 100 )

请问能否输入汉字自动生成拼音和五笔码？如:
输入汉字：我是中国人；
自动生成拼音首字码：WSZGR
自动生成五笔首字码：QJKLW

请问能否输入汉字自动生成拼音和五笔码？如:
输入汉字：我是中国人；
自动生成拼音首字码：WSZGR
自动生成五笔首字码：QJKLW

生成拼音的我见过五笔的没有
程序如下：需要安装微软拼音输入法
查出拼音的汉字在RIGHT。TXT 查不出的在ERROR。TXT
function QueryCompStr(hKB: HKL; const sChinese: AnsiString): string;
var
dwGCL: DWORD;
szBuffer: array[0..254] of char;
iMaxKey, iStart, i: integer;
begin
Result := '';
iMaxKey := ImmEscape(hKB, 0, IME_ESC_MAX_KEY, nil);
if iMaxKey <= 0 then exit;

dwGCL := ImmGetConversionList(
hKB,
0,
pchar(sChinese),
nil,
0,
GCL_REVERSECONVERSION);
if dwGCL <= 0 then Exit;
dwGCL := ImmGetConversionList(
hKB,
0,
pchar(sChinese),
@szBuffer,
dwGCL,
GCL_REVERSECONVERSION);

if dwGCL > 0 then
begin
iStart := byte(szBuffer[24]);
for i := iStart to iStart + iMaxKey * 2 do
AppendStr(Result, szBuffer);
end;
end;

procedure WriteError(i,j : integer;strWord : string;CurrChar : char);
var
ErrorFile : TextFile;
begin
AssignFile(ErrorFile,'Error.Txt');
if FileExists('Error.Txt') then
Append(ErrorFile)
else
ReWrite(ErrorFile);
WriteLn(ErrorFile,i,'#',j,'#',strWord,'#',CurrChar);
CloseFile(ErrorFile);
end;
procedure WriteRight(i,j : integer;strWord : string;CurrChar : char);
var
RightFile : TextFile;
begin
AssignFile(RightFile,'Right.Txt');
if FileExists('Right.Txt') then
Append(RightFile)
else
ReWrite(RightFile);
WriteLn(RightFile,i,'#',j,'#',strWord,'#',CurrChar);
CloseFile(RightFile);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
strName : string;
strReve : string;
LastChar: char;
CurrChar: char;
i,j,k : Byte;
hwnKL : HKL;
iHandleCount : Integer;
pList: array[1..10] of HKL;
szImeName: array[0..254] of char;
headchar : set of 'a'..'z';
begin
LastChar :=chr(0);
CurrChar :=chr(0);
iHandleCount := GetKeyboardLayoutList(10, pList);
for k := 1 to 10 do
if ImmEscape(pList[k], 0, IME_ESC_IME_NAME, @szImeName)>0 then
if szImeName= '微软拼音输入法' then
break;
for i := 128 to 255 do
for j := 128 to 255 do
begin
strName := chr(i)+chr(j);
strReVe :=QueryCompStr(pList[k],strName);
CurrChar := strReve[1];
if not(CurrChar in headchar) then
begin
WriteError(i,j,strName,CurrChar);
end
else
begin
//if not(CurrChar=LastChar) then
WriteRight(i,j,strName,CurrChar);
end;
LastChar := CurrChar;
end;
end;

呵呵,当然可以.

留下你的信箱,我给你发一份.

五笔没有，拼音有！

多谢楼上的同志，但我还是想五笔的自动编码也要。就没有人知道了吗？

晕....我说了可以同时生成拼音和五笔的.让你留下信箱我给你发过来,你不信我?[!]

to：kingdeezj 何不放这里共享一下?
[]

好的，多谢啦，你发过来吧：wphchina@163.com

这两天一直没来.我这就发到网上.等会给你地址.

期待ing 。。。。。。。。。。。。。。。。。。

如何获取用户输入文字的五笔码 (50分)
分类：数据库-文件型 xsxxzp (2003-07-04 20:08:00)
请教大虾们：如何获取用户输入文字的五笔码？

jfzjm (2003-07-05 19:39:00)
email,发给你一个.

wfzha (2003-07-05 20:05:00)
也给我一个吧？
wfzha123@yiwu.com.cn

ycmzp (2003-07-05 20:56:00)
算我一个。ycmzp@163.com

KingSoft (2003-07-05 21:00:00)
搞个，五笔编码，对照表，不就行了！

xsxxzp (2003-07-06 11:34:00)
我的email: xsxxzp@sina.com jiangfeng505@vip.sina.com
谢谢!

laoli (2003-07-06 11:39:00)
//#####################################################################
//#####################################################################
//#### 功能：得到汉字的五笔、拼音编码 （支持 7500个简体、繁体汉字）
//#### 原理：通过查询资源文件 wbtext.rec 得到编码
//#### 时间：2003-06-25
//#####################################################################
//#####################################################################
unit Unit1;


interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Edit4: TEdit;
Label4: TLabel;
Edit5: TEdit;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.DFM}

{$R wbtext.res} //资源文件，必须

function get_hz_pywb(hzstr: string; pytype: integer): string;
var
I: Integer;
allstr: string;
hh: THandle;
pp: pointer;
ss: TStringList;

function retturn_wbpy(tempstr: string; tqtype: integer): string;
var
outstr, str: string;
i: integer;
begin
//################### 汉字查询电位
i := 0;
while i <= ss.Count - 1 do
begin
str := ss.Strings;
if (tempstr = trim(str[1] + str[2])) or (tempstr = trim(str[3] + str[4])) then
begin
str := ss.Strings;
Break;
end;
i := i + 1;
end;
//###################

outstr := ''; //提取编码
if tqtype = 1 then
begin
for i := pos('①', str) + 2 to pos('②', str) - 1 do
if str <> '' then if outstr = '' then outstr := str else outstr := outstr + str;
end;

if tqtype = 2 then
begin
for i := pos('②', str) + 2 to pos('③', str) - 1 do
if str <> '' then if outstr = '' then outstr := str else outstr := outstr + str;
end;

if tqtype = 3 then
begin
for i := pos('③', str) + 2 to pos('④', str) - 1 do
if str <> '' then if outstr = '' then outstr := str else outstr := outstr + str;
end;

if tqtype = 4 then
begin
for i := pos('④', str) + 2 to length(str) do
if str <> '' then if outstr = '' then outstr := str else outstr := outstr + str;
end;
Result := trim(outstr);
end;

begin
//加载资源文件,将内容赋值给 s
ss := TStringList.Create;
hh := FindResource(hInstance, 'mywb', 'TXT');
hh := LoadResource(hInstance, hh);
pp := LockResource(hh);
ss.Text := pchar(pp);
UnLockResource(hh);
FreeResource(hh);

allstr := '';
i := 0;
while i <= length(hzstr) do //提取汉字字符
begin
if (Ord(hzstr) > 127) then
begin
if allstr = '' then allstr := retturn_wbpy(hzstr + hzstr[I + 1], pytype) else allstr := allstr + retturn_wbpy(hzstr + hzstr[I + 1], pytype);
i := i + 2;
end
else
begin
if allstr = '' then allstr := hzstr else allstr := allstr + hzstr;
i := i + 1;
end;
end;

ss.Free;

Result := trim(allstr);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
// 1: 拼音 2：五笔 3: 拼音简码 2：五笔简码
edit2.text := get_hz_pywb(edit1.text, 1);
edit3.text := get_hz_pywb(edit1.text, 3);
edit4.text := get_hz_pywb(edit1.text, 2);
edit5.text := get_hz_pywb(edit1.text, 4);
end;

end.



xsxxzp (2003-07-06 11:39:00)
kingsoft: 能谈谈你的GSP是怎么回事吗？
我也写了一套药店管理系统但对GSP了解
的不多！我在新疆！

xsxxzp (2003-07-06 11:52:00)
laoli：你好！谢谢！
请问是否建立一个编码表？包括五笔，拼音编码吗？生成 wbtext.res？
有没现成的编码表？

gztomash (2003-07-06 11:54:00)
唉，基于IME就可以获取相应的编码……

xsxxzp (2003-07-06 12:05:00)
我是新手？怎样取得ime的编码呢？

laoli (2003-07-06 13:13:00)
整个例子，包括编码表wbtext.res，在这里下载：
http://6688i.nease.net/wbbmb.rar
只放两天，请速下．

KingSoft (2003-07-07 12:57:00)
to xsxxzp:
我在写这套，GSP管理系统前，参考了现市面此类多的系统。如，协力、打开下、北京时空、英特、上海佳盟、厦门动力等相关GSP软件。发现其都一个特点，都是以进销存模式来做GSP管理系统，并不是以GSP思想来做进销存管理。
我对GSP进行了全面的了解及分析，现在是完全以GSP的思路来做系统的。
以后我们多多讨论！

把字符串自动生成拼音 100分没有了 (100分)
分类：非技术问题 xtb218 (2003-05-27 17:08:00)
谁有把字符串自动生成拼音的模块
谢谢100

blue_morning (2003-05-27 17:12:00)
下面的内容来自Hubdog的 菜花宝典
---- 在日常工作和生活中我们经常使用电子记事本查找个人通讯录信息，或在单位的应用程序中查询客户档案或业务资料，这个过程中往往需要输入大量的汉字信息，对于熟悉计算机的人这已经是一件头疼的事，那些不太熟悉计算机或根本不懂汉字输入的用户简直就望而生畏。作为对数据检索技术的一种新的尝试，作者探索使用汉字拼音的首字符序列作为检索关键字，这样，用户不必使用汉字，只须简单地键入要查询信息的每个汉字的拼音首字符即可。比如你想查找关键字“中国人民银行”，你只需要输入“zgrmyh”。作者希望通过下面的例子，为广大计算机同行起一个抛砖引玉的作用，让我们开发的程序更加便捷、好用。

---- 原理很简单，找出汉字表中拼音首字符分别为“A”至“Z”的汉字内码范围，这样，对于要检索的汉字只需要检查它的内码位于哪一个首字符的范围内，就可以判断出它的拼音首字符。

---- 程序更简单，包括3个控件：一个列表存放着所有待检索的信息；一个列表用于存放检索后的信息；一个编辑框用于输入检索关键字（即拼音首字符序列）。详细如下：

---- 1．进入Delphi创建一个新工程：Project1

---- 2．在Form1上创建以下控件并填写属性：

控件类型 属性名称 属性值
Edit Name Search
ListBox Name SourceList
Items 输入一些字符串，如姓名等，用于提供检索数据
ListBox Name ResultList
　

---- 3．键入以下两个函数

// 获取指定汉字的拼音索引字母，如：“汉”的索引字母是“H”
function GetPYIndexChar( hzchar:string):char;
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) 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;

// 在指定的字符串列表SourceStrs中检索符合拼音索引字符串
PYIndexStr的所有字符串，并返回。
function SearchByPYIndexStr
( SourceStrs:TStrings;
PYIndexStr:string):string;
label NotFound;
var
i, j :integer;
hzchar :string;
begin
for i:=0 to SourceStrs.Count-1 do
begin
for j:=1 to Length(PYIndexStr) do
begin
hzchar:=SourceStrs[2*j-1]
+ SourceStrs[2*j];
if (PYIndexStr[j]<>'?') and
(UpperCase(PYIndexStr[j]) <>
GetPYIndexChar(hzchar)) then goto NotFound;
end;
if result='' then result := SourceStrs
else result := result + Char
(13) + SourceStrs;
NotFound:
end;
end;

4．增加编辑框Search的OnChange事件：
procedure TForm1.SearchChange(Sender: TObject);
var ResultStr:string;
begin
ResultStr:='';
ResultList.Items.Text := SearchByPYIndexStr
(Sourcelist.Items, Search.Text);
end;
　

---- 5．编译运行后，在编辑框Search中输入要查询字符串的拼音首字符序列，检索结果列表ResultList就会列出检索到的信息，检索中还支持“？”通配符，对于难以确定的的文字使用“？”替代位置，可以实现更复杂的检索。


xp2000 (2003-05-27 20:12:00)
楼上的都说完了。

xtb218 (2003-05-28 9:14:00)
我是要：在输入汉字人名后自动产生完整的拼音名字，个位再指点下

liuxudong (2003-05-28 9:34:00)
如果不让我解决多音字问题，我这里有以前大侠的函数（可以认识GBK的汉字，超级厉害），可以生成全部拼音或者拼音首字母。
另外楼上blue_morning提供的函数只能认识GB2312的一级字库，更重要的是还有错误！！
$CEF4..$D188 : result := 'X';
$D1B9..$D4D0 : result := 'Y';
$D188 和$D1B9 没有连着，会有一些字不能认出来
正确的是：
$CEF4..$D1B8: result := 'X';
$D1B9..$D4D0: result := 'Y';
网上以讹传讹，危害不小，我还怀疑作者是故意“笔误”。
好了，发Email到我这里，把函数给你传过去。

jopi (2003-05-28 9:55:00)
to liuxudong:
可否给我一份：jopi@21cn.com

xtb218 (2003-05-28 15:43:00)
TO liuxudong
我的email:xtb218@163.net 谢谢

郭玉梁 (2003-05-28 15:57:00)
to liuxudong:
给我一个，谢谢

lightstar (2003-05-28 16:09:00)
我曾做过这方面的开发，生成一个汉字拼音对照数据表，字段为汉字、全拼编码，查找时逐字从表中取得相对应的全拼编码，最后可根据需要拼凑各种编码方式（全拼、简拼、首全、尾全），有多音字时弹出几个多音字选择，查找速度也很快，关键就是要生成一个汉字拼音对照表，网上好象有相关的资源可以下载。
原先我也考虑过采用blue_morning的方法，但是不能识别多音字，而且只能是简拼编码，所以放弃了。


myanwei (2003-05-28 16:11:00)
to liuxudong:
给我一个，谢谢
yanwei_sc@yahoo.com.cn


delphing (2003-05-28 16:12:00)
to liuxudong:
给我一个，我也谢谢谢谢
97jz_cn@sina.com

xp2000 (2003-05-28 18:36:00)
to liuxudong:
给我一个，我也谢谢谢谢
jbk2000@163.net

fphuang (2003-05-28 18:46:00)
mailto netphuang@sohu.com
给我一个，谢谢


lightstar (2003-05-29 10:33:00)
哈，在大耳朵项目组中有完整的方法，不仅有全拼，还可实现语音，现将地址贴出：
http://bigear.gnuchina.org/


chnplzh (2003-05-29 10:51:00)
to liuxudong:
给我一个，谢谢
chnplzh@163.com


xtb218 (2003-06-02 13:35:00)
TO liuxudong
我的email:xtb218@163.net 你给我发了没，我没收到啊

duxbin (2003-06-02 13:46:00)
http://www.csdn.net/cnshare/soft/13/13915.shtm

给你一个链接
这是一个DLL，能满足你的所有要求，能得到拼音、五笔的首字母和全称
我一直用它，更重要的是，它有全部的源码

乔炳龙 (2003-06-10 8:53:00)


liuxudong (2003-09-11 11:11:00)
我找了地方放了,有需要的朋友可以下载
http://www.jjwxc.com/ad/ebook/download/imcode.zip

另外，楼主也可以去这里看一下，下载一个文件就可以了。
http://www.csdn.net/cnshare/soft/13/13915.shtm

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2955872