======================================================
注:本文源代码点此下载
======================================================
需要使用 delphi 编写一个动态链接库,由 .net 调用。
按照 delphi 的普通函数习惯,格式应该是这样的:
function encryptstring(acontent, akey: string): string;
但是 delphi 的 string 与其他语言是不一样的,可以查找资料看看。所以涉及到传递参数的时候,就要用 pchar 来代替 string。
那么直接替换就可以了吗?答案是不行的……
因为函数内的变量在使用完之后会被释放,那么其他程序再访问这个变量的时候,它已经不存在了,于是就会抛出:“尝试读取或写入受保护的内存。这通常指示其它内存已损坏”的异常。
如果想通过函数返回值的方法完成,就得在 dll 中给变量分配内存,可是问题是什么时候释放?没法释放……那不就内存泄漏了?所以不能使用返回值的方法,实际的返回值应该是通过参数来实现。
只能由调用者分配内存,dll 往指定位置写,调用者使用以后再释放内存。由于明文、密文的长度不是固定的,那么分配多少比较合适呢?这个好办,.net 中的 stringbuilder 正好适合,它可以分配一个初始大小,如果不够,则自动翻倍增加。
于是函数雏形诞生了:
delphi
procedure encryptstrb(acontent, akey, aresult: pchar; abuffersize: integer); stdcall;
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", "");
}
}
在实际使用的时候,需要把 dll 中过程改为函数,返回 integer 或 boolean 类型的值,表示是否成功。另外在 .net 调用的时候,别忘了把 dll 的位置变成相对路径。
======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/