Question

C# 调用 delphi dll 问题

///////delphi DLL
function ss( num:PChar):Integer stdcall ;
var p:string;
begin
p:='aaa';
StrCopy(num,PChar(p));
Result:=1;
end;

///////C# exe
[DllImport("test.dll", CallingConvention = CallingConvention.StdCall)]
public static extern int ss(StringBuilder str);
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
StringBuilder strb = new StringBuilder(200);
ss(strb);
t2.Text = strb.ToString();
}
为什么strb.tostring()的值是“a”，而不是“aaa”

Answer 1

　　除了看出导入的时候没写明CallingConvention=CallingConvention.Cdecl 以外，暂时没看到更多问题。

　　有条件最好自己调试一下，就是把DLL那个工程属性里，调试那一栏，启动程序设成C#的exe，然后启动项目设成DLL那个工程，开跑，这样DLL的代码里可以断点啥的（因为是C++工程，所以用这个工程启动调试的话可以调试C++代码），更容易找到错误的地方。

Answer 2

参数定义改一下。
function ss(var num:PChar):Integer stdcall ;
var p:string;
begin
p:='aaa';
StrCopy(@num,@p);
Result:=1;
end;

追问

都是乱码。。这是把引用地址传过来吗?

追答

//C#部分。
public partial class Form1 : Form
{

[DllImport("Project1.dll", CallingConvention = CallingConvention.StdCall)]
public static extern int ss( ref string str);

public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
string strb = "1234";
ss( ref strb);
MessageBox.Show(strb); ;

}
}

//delphi部分

function ss( var num:PChar):Integer stdcall ;
var p:string;
begin
p:='aaa';
num := pchar(p);
Result:=1;
end;

追问

StrCopy(@b,@p);
[DCC Error] test.dpr(14): E2251 Ambiguous overloaded call to 'StrCopy'

Answer 3

看错

追问

什么看错

追答

pchar 是指针，指向连续的内存块。C#不是太熟，但明显StringBuilder是引用类型，里面东西都在托管堆上。内存分部是不是三个a 放一起，以及你传StringBuilder过去的话，传的应该是StringBuilder的引用地址，而这个引用地址是不是就放他内在元素（即三个a）的地址，就不得而知了。因为StringBuilder除了里面装了他的元素，还有他的类方法地址，放置顺序也未知。

你在c#可以加上unsafe关键字来用指针来读吧。申请一个连续的内存来取PCHAR类型

追问

把StringBuilder改为byte[] 可以收到ascii的 “aaa” ，这样可行吗