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", "<script>alert('" + ex.Message + "')</script>");
    }
}

在实际使用的时候，需要把 DLL 中过程改为函数，返回 Integer 或 Boolean 类型的值，表示是否成功。另外在 .net 调用的时候，别忘了把 DLL 的位置变成相对路径。

转载于:https://www.cnblogs.com/jdmei520/archive/2009/06/15/1503527.html