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. 格式化输出之 每行N个元素 list拆分

    for i in range(0,len(XSECT),5): out_BLDdat.write(' '.join( map('{:10.4f}'.format,XSECT[i:i+5]) ) + ' ...

  2. PS快捷键大全，记住这些就够了！

    希望能帮到大家更好的学习.

  3. 八大排序算法的Java代码实现

    简单插入排序 public class QuickSort { private static void quickSort(int [] a, int low, int high){ if (low ...

  4. sqli盲注自用脚本

    盲注脚本 # -*- coding:utf-8 -*- import requests import re url = "http://123.206.87.240:8002/chengji ...

  5. React中使用CSS

    第一种: 在组件中直接使用style 不需要组件从外部引入css文件,直接在组件中书写. import React, { Component } from "react"; con ...

  6. 【Redis】安装 Redis接口时异常 ，系统ruby版本过低

    场景 操作系统Linux CentOS 7.2,安装Redis接口时,使用命令:gem install redis ,用于系统ruby版本过低,报错“redis requires Ruby versi ...

  7. Django框架之序列化和上传文件

     一.Django的序列化(对于ajax请求) Django中的序列化主要应用在将数据库中检索的数据返回给客户端用户,特别的Ajax请求一般返回的为Json格式. 1)django序列化的使用方法 . ...

  8. 2019.01.19 codeforces915E.Physical Education Lessons（ODT）

    传送门 ODT水题(当然可以上线段树) 支持区间01覆盖,询问全局1的个数. 思路:直接上ODTODTODT. 不会的点这里 代码: #include<bits/stdc++.h> #de ...

  9. 2019.01.08 bzoj4543: [POI2014]Hotel加强版（长链剖分+dp）

    传送门 代码: 长链剖分好题. 题意:给你一棵树,问树上选三个互不相同的节点,使得这个三个点两两之间距离相等的方案数. 思路: 先考虑dpdpdp. fi,jf_{i,j}fi,j​表示iii子树中离 ...

  10. codeforces题目合集（持续更新中）

    CF280CCF280CCF280C 期望dp CF364DCF364DCF364D 随机化算法 CF438DCF438DCF438D 线段树 CF948CCF948CCF948C 堆 CF961EC ...