按照 Delphi 的普通函数习惯,格式应该是这样的:
function EncryptString(AContent, AKey: string): string;
但是 Delphi 的 string 与其他语言是不一样的,可以查找资料看看。所以涉及到传递参数的时候,就要用 PChar 来代替 string。
那么直接替换就可以了吗?答案是不行的……
因为函数内的变量在使用完之后会被释放,那么其他程序再访问这个变量的时候,它已经不存在了,于是就会抛出:“尝试读取或写入受保护的内存。这通常指示其它内存已损坏”的异常。
如果想通过函数返回值的方法完成,就得在 DLL 中给变量分配内存,可是问题是什么时候释放?没法释放……那不就内存泄漏了?所以不能使用返回值的方法,实际的返回值应该是通过参数来实现。
只能由调用者分配内存,DLL 往指定位置写,调用者使用以后再释放内存。由于明文、密文的长度不是固定的,那么分配多少比较合适呢?这个好办,.net 中的 StringBuilder 正好适合,它可以分配一个初始大小,如果不够,则自动翻倍增加。
于是函数雏形诞生了:
Delphi
var
S : string;
begin
if AContent = nil then
Exit;
S := EncryptString( AContent , AKey , kb256);
Move(S [ 1 ] , AResult ^, Min( ABufferSize , Length(S) + 1));
end;
.net
[DllImport(@"D:\CRX\src\Delphi\加密、解密动态链接库\EncryptLib.dll")]
public static extern void EncryptStrB(string AContent, string AKey, StringBuilder AResult, int ABufferSize);
protected void btnEncrypt_Click(object sender, EventArgs e)
{
try
{
const int BUFFER_SIZE = 32767;
StringBuilder sb = new StringBuilder(BUFFER_SIZE);
EncryptStrB(txtContent.Text, txtKey.Text, sb, BUFFER_SIZE);
txtEncrypt.Text = sb.ToString();
}
catch (System.Exception ex)
{
RegisterStartupScript("alert", "<script>alert('" + ex.Message + "')</script>");
}
}
在实际使用的时候,需要把 DLL 中过程改为函数,返回 Integer 或 Boolean 类型的值,表示是否成功。另外在 .net 调用的时候,别忘了把 DLL 的位置变成相对路径。