走一走，看一看，请高手帮忙，小弟跪求c++调用delphi的dll中函数传递字串参数问题。

[9807146wang]

我要在c++中调用delphi编写的DLL中一个函数，而且要传递一字串参数，但不知为什么delphi中显示传过来的字串参数是乱码的，哪位高手遇到过，指点一下，多谢了。
c++代码如下：
typedef int (* pGetData)( char* P1) ;
pGetData GetData;
HINSTANCE hinst;
hinst=LoadLibrary(TEXT("DllTest.dll")); //加载该dll LPCTSTR strContent);
if(hinst==NULL)

{ MessageBox::Show("Can't load testll.dll");
return;
}
GetData=(pGetData)GetProcAddress(hinst,"TestDll"); //获取导出函数的地址

if(GetData==NULL)
{
MessageBox::Show("Can't get the address of the function");
return;
}
GetData("234"); //运行
FreeLibrary(hinst); //卸载


delphi代码如下：


function TestDll(P1:Pchar):integer; cdecl;

begin
ShowMessage(P1);
Result:=8888;
end;
exports TestDll;
begin
end.

[星羽]

是不是数据类型的问题
Pchar是个什么东西，“234”能直接转Pchar吗

[Big鹏]

楼主，我没用过delphi,但用过c#，也同样碰到你这种情况；
就我的问题的解决给你答案，希望能对你有所帮助：
我的之所以产生乱码，是因为编码的问题，是C++和c#的编码不兼容。
c++默认是： ascii c#默认是： unicode。
至于delphi你查一下他的默认编码。
然后，你要将二者转化为一种编码，都是有相应的转化语句或是命令的。
我是把c#转化成ascii码的。只用了一个命令：CharSet = CharSet.Ansi。

[jia_xiaoxin]

关于delphi和vc之间的dll调用，我知道的有两点需要注意

1.delphi中默认的调用规则是__stdcall,而vc中是_cdel,所以两边一定要一至。
你可以这样试试 typedef int (__stdcall * pGetData)( char* P1) ;

2.Delphi与VC的对齐格式不同，在VC中定义结构时要用以下格式：
#pragma pack(4)
//结构定义
#pragma pack()

[9807146wang]

我现在delphi那边已经是这样的了。
function TestDll(P1:Pchar):integer; cdecl;
没有用stdcall,还要在c++那边用__stdcall吗？？

TO mupengzhi
那我应该在delphi那边转吗?你的意思是我得把P1转化为ascii码吗？你那个是转化为什么类型啊？？

[过去的我]

你确定你那段代码没错误？
代码正确的话不会出现乱码现象，我试过了，vc6
cdecl了以后不用加stdcall

[过去的我]

把 MessageBox::Show 改成printf就行了。。用的是c# ？

[rollrock1987]

up

[太乙]

delphi代码如下： 


function TestDll(P1:Pchar):integer; cdecl;  

begin 
  ShowMessage(P1);        
  Result:=8888; 
end; 
exports TestDll; 
begin 
end. 



delphi不是太懂，解释一下啊？！

[9807146wang]

to hqin6
就是显示传过来的参数啊。。
返回一个整数值啊。

[机智的呆呆]

typedef int (__stdcall * pGetData)( char* P1) ; 

试试～～～～

[Big鹏]

楼主是不是要实现：在界面输入参数，然后调用DLL显示结果？
如果是这样，而且你说在控制台测试不会乱码，我还是建议你（delphi我不懂，不能指出代码问题，sorry）：
1，编码问题（我估计应该是这个）。
2，内存分配问题，两种语言之间内存分配要匹配。
我遇到这个类似问题一个周才解决，呵呵
希望你能成功！！！

[过去的我]

可能vs2005用unicode编码的，就像ls说的那样，因为vc6编译无问题的，
不过可以换种思路，把delphi 的dll改成 function TestDll(P1:Pwchar):integer; cdecl; 试试
代码无任何问题啊，
还有就是 MessageBox::Show 好像确实是。net里的东西吧。。

[9807146wang]

to aca_jingru
我是用VS2005,我用的是vc++,我意思是在这个函数中显示传过来的参数会乱码，function TestDll(P1:Pchar):integer; cdecl;

begin
ShowMessage(P1);
Result:=8888;
有QQ吗？想合你交流一下，多谢了..

[9807146wang]

各位老大，我用VS2005,用窗体应用程序调用就会出现乱码，用控制台应用程序调用就不会出现乱码。