Delphi动态链接库中函数定义为:
这里省去上千字的尝试失败过程,只有下面的方法是通过的
而根据网上说的使用ref string形式,则会出现内存错误。
function
Encrypt(
const
OrignStr,Key: PChar; NewStr,ErrStr:PChar): Boolean;stdcall;
这里省去上千字的尝试失败过程,只有下面的方法是通过的
[DllImport(
"
Encrypt.dll
"
, CharSet
=
CharSet.Ansi, CallingConvention
=
CallingConvention.StdCall)]
public static extern string Encrypt( string OrignStr, string Key, StringBuilder NewStr, StringBuilder ErrStr);
调用代码:
public static extern string Encrypt( string OrignStr, string Key, StringBuilder NewStr, StringBuilder ErrStr);
string
key
=
tbxKey.Text;
StringBuilder mw = new StringBuilder(); // 密文变量
StringBuilder err = new StringBuilder(); // 错误信息
myDES.DESEncryptString(tbxYw.Text, key, mw, err);
这里值的注意的是要外传的PChar类型参数,在C#中对应使用StringBuilder,如果使用string没有任何信息传出。StringBuilder mw = new StringBuilder(); // 密文变量
StringBuilder err = new StringBuilder(); // 错误信息
myDES.DESEncryptString(tbxYw.Text, key, mw, err);
而根据网上说的使用ref string形式,则会出现内存错误。