http://bbs.csdn.net/topics/390870532

用delphi xe3写的DLL，delphi7调用，参数都是PAnsiChar，DLL里的函数接收delphi7传的入参，没有问题，为什么返回参数会是乱码？？？

Delphi XE3的DLL代码：

Delphi/Pascal code

 

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
library TestDll;
 
uses
  System.SysUtils,
  System.Classes;
 
  function Test(Instr1,Instr2:PAnsiChar; var retMsg:PAnsiChar):Integer;stdcall;
  var
    str1,str2:string;
  begin
    str1:=Instr1;  //此处Instr1、Instr2两个入参都正确，没有乱码，赋值给string变量也没问题
    str2:=Instr2;
    retMsg:=PAnsiChar(str1+'-'+str2);
    Result:=1;
  end;
 
exports
  Test;

Delphi7 调用代码

Delphi/Pascal code

 

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type
  TTest=function(Instr1,Instr2:PChar; retMsg:PChar):Integer;stdcall;
……
……
var
  lhandle:THandle;
  ltest:TTest;
  retMsg:array[0..2000] of AnsiChar;
begin
  lhandle:=LoadLibrary('TestDll.dll');
  if lhandle>32 then
  begin
    @ltest:=GetProcAddress(lhandle,'Test');
    if ltest(PChar(Edit1.Text),PChar(Edit2.Text),@retMsg)=1 then begin
      ShowMessage('调用成功，返回Msg：'+retMsg);  //此处retMsg是乱码，怎么回事？
    end;
  end;
end;

为什么返回参数会是乱码？定义的数据类型不对吗？
怎么定义含有字符串参数的动态库才可以让Delphi7、DelphiXE3还有其他语言通用？

 

回复次数：17
关注
u012072926
Liyp92
本版等级：

 
#1 得分：0回复于： 2014-08-26 09:09:42
我也写过一个这样的。
在XE2写到DLL在Delphi2010调用，一直出错。最后没办法只能装个2010编译我写到DLL，就可以了。
Delphi在处理版本之间的转换很不到位
关注
aniugee
aniugee
本版等级：

 
#2 得分：2回复于： 2014-08-26 09:15:21
function Test(Instr1,Instr2:PAnsiChar):PAnsiChar;stdcall;可以改成这样

str1,str2:string;
最好改成AnsiString
关注
ksrsoft
缘中人
本版等级：

 
  
#3 得分：2回复于： 2014-08-26 09:16:24
str1,str2:string;
换成
str1,str2:AnsiString试试

或者
retMsg:=PAnsiChar(   AnsiString( str1+'-'+str2)        );
关注
warrially
爱蹄子的羊头
本版等级：

 
#4 得分：2回复于： 2014-08-26 09:27:29
AnsiString 的问题.  string 不可以直接转成 PAnsiChar 的
关注
WW7CC7MM
WW7CC7MM
本版等级：

 
#5 得分：0回复于： 2014-08-26 10:17:28
用D7重新编译DLL嘛
关注
lxdddxl
lxdddxl
本版等级：

 
#6 得分：1回复于： 2014-08-26 12:18:19
接口函数两边的申明不一致,retMsg上面是变参,下面是形参
应该是D7的申明里漏了var
关注
wzgdyn
wzgdyn
本版等级：

 
#7 得分：0回复于： 2014-08-27 09:27:56
动态库修改
str1,str2:AnsiString;
或者
retMsg:=PAnsiChar(   AnsiString( str1+'-'+str2) );
可以，完全正确。

如果想要DelphiXE3写的DLL，用C++也可以调用，那么字符串的参数类型应该怎么定义？ 
PAnsiChar类型可以吗？还是必须用Pchar ？？
关注
wzgdyn
wzgdyn
本版等级：

 
#8 得分：0回复于： 2014-08-27 20:36:46
Delphi版的人越来越少了吗？？？？？？？？？
关注
hj3000
hj3000
本版等级：

 
#9 得分：20回复于： 2014-08-28 11:29:32
1 调用时type TTest=function(Instr1,Instr2:PChar; retMsg:PChar):Integer;stdcall;缺少Var标识。
2 D7的Pchar是PAnsiChar XE后是PWidechar。
不多说了
Library TestDll;

Uses
  System.SysUtils,
  System.Classes;

Function Test(Instr1, Instr2: PAnsiChar; Var retMsg: PAnsiChar): Integer; Stdcall;
Var
  str1, str2: String;
Begin
  str1 := String(Instr1);
  str2 := String(Instr2);
  //retMsg := PAnsiChar(ansiString(str1 + '-' + str2));
  StrCopy(retMsg, PAnsiChar(ansiString(str1 + '-' + str2)));
  Result := 1;
End;

Exports
  Test;

End.

Type
  TTest = Function(Instr1, Instr2: PAnsiChar; Var retMsg: PAnsiChar): Integer; Stdcall;
Var
  lhandle: THandle;
  ltest: TTest;
  retMsg: PAnsiChar;
Begin
  lhandle := LoadLibrary('TestDll.dll');
  If lhandle > 32 Then
  Begin
    @ltest := GetProcAddress(lhandle, 'Test');
    GetMem(retMsg, 256);
    If ltest(PChar(Edit1.Text), PChar(Edit2.Text), retMsg) = 1 Then
    Begin
      ShowMessage('调用成功，返回Msg：' + retMsg);
    End;
    FreeMem(retMsg);
  End;

Type
  TTest = Function(Instr1, Instr2: PAnsiChar; Var retMsg: PAnsiChar): Integer; Stdcall;
Var
  lhandle: THandle;
  ltest: TTest;
  retMsg: PAnsiChar;
Begin
  lhandle := LoadLibrary('TestDll.dll');
  If lhandle > 32 Then
  Begin
    @ltest := GetProcAddress(lhandle, 'Test');
    GetMem(retMsg, 256);
    If ltest(PAnsiChar(Ansistring(Edit1.Text)), PAnsiChar(Ansistring(Edit2.Text)), retMsg) = 1 Then
    Begin
      ShowMessage('调用成功，返回Msg：' + retMsg);
    End;
    FreeMem(retMsg);
  End;
关注
seleron
程晨c
本版等级：

 
#10 得分：0回复于： 2014-08-28 11:39:00
AnsiChar，在xe2和D7占1个字节
Char，在xe2中占2个字节，在D7占1个字节
关注
unearth
孤独de猫
本版等级：

 
#11 得分：0回复于： 2014-08-28 20:58:46
同意7楼的，，，DLL里面出来的数据有问题。
关注
yangb0803
道玄希言
本版等级：

 
 
#12 得分：0回复于： 2014-08-29 20:44:54
Delphi 好像是从 2010 开始，char，AnsiChar， widechar,  string, ansistring, widestring 占用的字节不一样了～

一定要注意，如果想高版本的程序移到低版本，就要注意字符定义必需一一对应了.

就如你dll时定义了PAnsiChar， 到了调用时，也需要 是PAnsiChar而不能用 pchar
关注
Tachibana_Kanade
铃仙
本版等级：

 
#13 得分：1回复于： 2014-08-30 22:12:16
引用 7 楼 wzgdyn 的回复:

动态库修改
str1,str2:AnsiString;
或者
retMsg:=PAnsiChar(   AnsiString( str1+'-'+str2) );
可以，完全正确。

如果想要DelphiXE3写的DLL，用C++也可以调用，那么字符串的参数类型应该怎么定义？ 
PAnsiChar类型可以吗？还是必须用Pchar ？？

随便，可以不用改，PAnsiChar就对应C++里的char*
关注
truexf
truexf
本版等级：

 
#14 得分：20回复于： 2014-08-30 23:39:48
lz的代码有这么几个问题：
1. 函数的签名不同，导出的是 var retMsg: PAnsiChar; 使用的却是 regMsg:Pansichar;后者无法接收到返回的值。
2. 导出函数使用UnicodeString(xe3string是UnicodeString)，却硬生生的把他强制转换为PAnsiChar;
3. 函数返回的retMsg是由临时的函数内变量，函数结束，该变量消失。你获得的将是一个非法内存地址。
4. 对string的编译器自动引用计数管理认识不清，string的引用计数不能跨dll的，他是delphi特有的东西。

解决方法
1. 签名一致用 var PansiChar
2. 函数用GetMem分配内存，并使用Ansistring封装数据，然后复制到分配的内存中
3. 返回分配的内存地址

调用的函数负责释放内存。因此dll还需提供一个释放内存的导出函数（将Freemem封装成导出函数）；
关注
wr960204
武稀松
本版等级：

 
#15 得分：2回复于： 2014-09-02 10:55:03
retMsg:=PAnsiChar(str1+'-'+str2);
str1+''+str2的内容是保存在临时变量中的,这个临时变量是局部变量,离开函数的时候就被回收了.
你转成PAnsiChar的地址指向的是无效的地址,之所以有时候会是正常的是因为内存管理器没有重用这块内存的话看上去像是对的.
关注
caonumber
caonumber
本版等级：

 
#16 得分：0回复于： 2014-09-13 21:30:25
string换成widestring试试看
关注
iamduo
iamduo
本版等级：

 
#17 得分：0回复于： 2014-09-18 13:24:42
PAnsiChar， PChar，string 都改成 WideString 试试看。

Delphi XE3写DLL，用Delphi7调用，报错！的更多相关文章

  1. [笔记]Delphi 2007写DLL供VC调用实例

    考虑如下几种常用情况: - VC传入int,返回int- VC传入char *,返回int- VC传入char *,返回char *及int 为简化问题,传递的字符串参数只考虑ANSI格式,不考虑UN ...

  2. Delphi 中的DLL 封装和调用对象技术（刘艺，有截图）

    Delphi 中的DLL 封装和调用对象技术本文刊登2003 年10 月份出版的Dr.Dobb's 软件研发第3 期刘 艺摘 要DLL 是一种应用最为广泛的动态链接技术但是由于在DLL 中封装和调用对 ...

  3. this.$Message.success('提示信息') 少写了一个c 导致报错

    this.$Message.success('提示信息') 少写了一个c 导致报错 而且 $Message 输出还没显示,导致我以为是没有 $Message 对象了,其实全局对象直接调用即可

  4. 解决alaert.builder二次调用报错的bug

    报错的代码是: The specified child already has a parent. You must call removeView() on the child's parent f ...

  5. 记录一次在Github写博客时的报错和解决方法

    前几天刚刚搭建好了Github博客,打算用作记录Go语言学习笔记.由于在此前我没有使用过markdown语法写过博客,所以跟着文档了解了格式就想试试, 发表第一篇博客.markdown编辑器我用的是T ...

  6. 【Linux开发】OpenCV在ARM-linux上的移植过程遇到的问题1---cvNamedWindow调用报错的问题

    问题描述: 这个实际上是最后一部的问题,将生成的共享库文件放入到了/usr/local/opencv-arm/lib下,并且设置了LD_LIBRARY_PATH中为/usr/local/opencv- ...

  7. .Net Core redis 调用报错 '6000 Redis requests per hour' 解决 6000 此调用限制

    问题描述 redis 是一种基于内存,性能高效的 NoSQL 数据库,性能高主要就体现在数据交互耗时较短,能够段时快速的对用户的请求做出反应,所以在业务比较复杂或交互量需求大时,必然会超过 6000次 ...

  8. Django 调用报错 " ImportError: Couldn't import Django. "

    系统炸了导致不得已重装 安装 Django后 利用ORM 创建表的时候报错 Traceback (most recent call last): File "manage.py", ...

  9. python已写内容中可能的报错及解决办法

    理论上我发的每个短文,直接复制放到py里面,python xx.py是可以执行的,不过因为版本,编码什么的问题会有报错,详见这里 报错: SyntaxError: Non-ASCII characte ...

随机推荐

  1. 枚举之后define

    经常会看到类似下边的code写法,觉得这么写没什么意义. enum { AA, BB, CC, }; #define AA AA #define BB BB #define CC CC 尝试下边代码, ...

  2. sqli-labs：11-16，post注入

    sqli11: post:uname=xx' order by 2#&passwd=bla&submit=Submit(判定字段为2) 解释下为什么结果不是admin,这是sql执行的 ...

  3. 跟我学Spring Boot（二）Hello World

    1.打开DemoApplication添加如下代码 package com.example; import org.springframework.boot.SpringApplication; im ...

  4. ceres入门学习

    转载自https://www.jianshu.com/p/e5b03cf22c80 Ceres solver 是谷歌开发的一款用于非线性优化的库,在谷歌的开源激光雷达slam项目cartographe ...

  5. web.xml 详细介绍（zz）

    web.xml 详细介绍 博客分类: CoreJava WebXMLServletJSPTomcat  http://mianhuaman.iteye.com/blog/1105522 1.启动一个W ...

  6. 关于Web应用开发流程的总结

    以下内容为个人工作总结,如果不当,谢谢指出错误. 假设最简单的情况,一个开发人员,开发所有的代码,一个测试人员.一个测试的服务器,一个生产的服务器. 开发人员需要为公司开发一个项目,开发人员首先分析产 ...

  7. idea配置springBoot项目热加载

    1.在application.properties中禁用模板引擎缓存 比如freemarker:spring.freemarker.cache=false 2.在pom.xml中添加依赖 <de ...

  8. 【WebService】WebService之CXF和Spring整合（六）

    前面介绍了WebService与CXF的使用,项目中我们经常用到Spring,这里介绍CXF与Spring整合 步骤 1.创建一个Maven Web项目,可以参照:[Maven]Eclipse 使用M ...

  9. vue组件实现查看大图效果

    使用的index.vue代码 <template> <img :src="imgUrl" @click="clickImg($event)"& ...

  10. log4j介绍和使用

    1.apache推出的开源免费日志处理的类库 2.为什么需要日志?? 2.1 在项目中编写system.out.println();输出到控制台,当项目发布到tomcat后,没有控制台(在命令界面能看 ...