C++bulider 调用DELPHI编写的DLL

Question

我用depphi编写了一个动态库  有这样一个函数 fun（Str:string;var pch :pchar）:boolean
我在bcb中调用方法为  boolean (*Func)(String,pchar);
HINSTANCE hKernelLib;
hKerneLib = LoadLibrary(**.dll);
(FARPROC &) Func = GetProcAddress(hKernelLib,"fun");
Pchar result;
result = StrAlloc(33);
Func(Edit1->Text.c_str(),result);
FreeLibrary(HKernelLib)；
。
。
。
调用出错，我把函数改为 fun（Str:string;pch :pchar）:boolean 同样出错。
Access violation at address 012b82b1 in module '***',write of address 000010e0.

Answer 1

1、尽量不要用String类型
2、约定明确的压栈方式，如统一使用stdcall

Answer 2

fun（Str:string;var pch :pchar）:boolean stdcall
我写了。可是之前我用的fun（Str:string;var）:String stdcall 形式调用时没有问题啊
 

Answer 3

delphi导出dll,参数有string的要uses sharemem

Answer 4

同意楼上的，我上午就遇到这个问题。你在调用的.dpr文件中的USES加入sharemem，而且放到最前面就可以了！