急！！高分求获取汉字的五笔编码第一个编码的方法。

[sxuhai]

如题，最好不通过数据库对应。邮箱:[e-mail]

[balloonman2002]

参考:

http://community.csdn.net/Expert/topic/3897/3897174.xml?temp=.8487512

[章无忌]

（一）PB中的使用方法

函数声明：

function string GetBm( ref string str,integer sel ) LIBRARY "AutoWBPY.dll";
函数使用：

string a,b

a='中国a与我'


b=getbm(a,1)
messagebox('',b)


b=getbm(a,2)
messagebox('',b)

b=getbm(a,3)
messagebox('',b)

b=getbm(a,4)
messagebox('',b)

（二）delphi中的使用方法

函数声明：

function GetBm(InputStr:PChar;sel:integer):PChar;STDCALL;external 'autowbpy.dll';
函数使用：

var
name,mmp:PChar;
mms:string;
i:integer;
begin
Name:='中国a';

mmp:=GETBM(Name,1);
setlength(mms,length(mmp));
for i :=1 to length(mmp) do
begin
mms[i]:=mmp[i-1];
end;
showmessage(mms);

mmp:=GETBM(Name,2);
setlength(mms,length(mmp));
for i :=1 to length(mmp) do
begin
mms[i]:=mmp[i-1];
end;
showmessage(mms);

mmp:=GETBM(Name,3);
setlength(mms,length(mmp));
for i :=1 to length(mmp) do
begin
mms[i]:=mmp[i-1];
end;
showmessage(mms);

mmp:=GETBM(Name,4);
setlength(mms,length(mmp));
for i :=1 to length(mmp) do
begin
mms[i]:=mmp[i-1];
end;
showmessage(mms);
end;

（三）VB中的使用方法

函数声明：

Private Declare Function GetBm Lib "AutoWBPY.dll" (ByVal InputStr As String, ByVal sel As Integer) As String

函数使用：

Dim a As String * 50
Dim b As String * 50
a = "中国"

b = GetBm(a, 1)
MsgBox (b)
b = GetBm(a, 2)
MsgBox (b)
b = GetBm(a, 3)
MsgBox (b)
b = GetBm(a, 4)
MsgBox (b)

（四）C++ Builder中的使用方法
//静态加载：
用BCB自带的implib生成此DLL的lib文件(implib xxx.lib xxx.dll)，将此lib文件加到项目中(project->add to project...)
函数声明：
extern "C" __declspec(dllimport) char* __stdcall GetBm(char* InputStr,int sel);
函数使用：
char* Name="中国" ;

ShowMessage( GetBm(Name,1));
ShowMessage( GetBm(Name,2));
ShowMessage( GetBm(Name,3));
ShowMessage( GetBm(Name,4));

//动态加载
HINSTANCE Hlib;
typedef char* __stdcall (TDllFunc)(char* InputStr,int sel);

Hlib=LoadLibrary("AutoWBPY.dll");
if (Hlib==NULL)
{
FreeLibrary(Hlib);
return;
};
TDllFunc* DllFunc=(TDllFunc* )(GetProcAddress(Hlib,"GetBm"));
char* Name="中国" ;
ShowMessage( DllFunc(Name,1));
ShowMessage( DllFunc(Name,2));
ShowMessage( DllFunc(Name,3));
ShowMessage( DllFunc(Name,4));
FreeLibrary(Hlib);

[章无忌]

帮助如上:
发了...

[章无忌]

好象有一个
在家里
晚上回去看看

[章无忌]

dll的

[章无忌]

http://61.186.252.133/cnshare/soft/13/13915.shtm