Delphi 编写 DLL 返回字符串，.net 调用。

======================================================
注：本文源代码点此下载
======================================================

需要使用 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^)/