取汉字的拼音码、五笔码的Dll ( 积分: 300 )

//HzPyWb.dll
http://xianguochen.gbaopan.com/files/06864e1dbe92401b8914d1f19eba73c9.gbp
//VC中的定义
int Convert(char *hzstr,//汉字串
int lenhz,//汉字长度
char *pym,//返回拼音码
int lenpym,//拼音码长度
char *wbm,//返回五笔码
int lenwbm,//五笔码长度
int option);
//标志，设置为3
//Delphi中调用
//声明
function GetSpell(hzstr : PChar;
lenhz : Integer;
pym : PChar;
lenpym : Integer;
wbm Char;
lenwbm : Integer;
option : Integer) : Integer;
stdcall;
external 'HzPyWb.dll' name 'Convert';
//调用
//取拼音码首字符及五笔码首字符
procedure FGetSpell(AChs : string;
out AoSpell_PY, AoSpell_WB : string);
var
sChs : string;
lenhz : Integer;
pym, wbm : array[0..10] of Char;
begin
sChs := Trim(AChs);
lenhz := Length(sChs);
AoSpell_PY := '';
AoSpell_WB := '';
if lenhz=0 then
Exit;
GetSpell(PChar(sChs), lenhz, pym, 10, wbm, 10, 3);
AoSpell_PY := UpperCase(StrPas(pym));
AoSpell_WB := UpperCase(StrPas(wbm));
end;

不能下啊！

“网通下载”、“电信下载”都试试
如果还是不能下载请留下EMail

怎麼調用啊？
比如：
我用兩個edit,edit1裡面輸入漢字，edit2裡面顯示拼音首碼？

楼主，请进
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3718585
领分

FGetSpell(Edit1.Text, sSpell1, sSpell2);
Edit2.Text := sSpell1;
//拼音码
Edit3.Text := sSpell2;
//五笔码

这东西到处都是的~~~ 有什么好贴的

没有原码，就没有安全感！

同意,没有源码,就没有安全感!
我可不想用着用着,出现莫名其妙的错误,更要命的是,弹出需注册的对话框,

多人接受答案了。