在线求助:wr传递字符串给delphi库函数

eric.y

function msg(a:PChar):integer;
begin
  ShowMessage(string(a));
  result:=0;
end;
--------------------------------------------
extern int msg(string);
load_dll("ttt.dll");
msg("ddd");

为什么不能正确显示?

eric.y

好,你的是对的,我的编程基础不够扎实,我少用了stdcall

winterson

没有问题:我把代码贴出来
--------------------------------------------
dll代码:
library Project1;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  windows,
  Classes;

{$R *.res}
function ShowMessage(Msg:string):integer;stdcall;
begin
  messagebox(0,PAnsiChar(Msg),'Say',0);
  Result :=0;
end;

exports
  ShowMessage;
begin
--------------------------------------------
--------------------------------------------
WR代码:
extern int ShowMessage(in string);

load_dll("H:\\Test\\project1.dll");
ShowMessage("Hello");

--------------------------------------------
没有问题

eric.y

winterson
你这样试过了可以?
我这里问题依旧...

winterson

问题解决办法找到：
直接用windows  API来提示，把showmessage函数改成messagebox函数就好了

winterson

不知道楼主为什么会觉得function Msg(a:string):integer;会内存错误，请赐教！

winterson

实验结果发现不是string参数的问题，而是showmessage的问题，它有用到vcl的机制，WR去调用的时候，没办法处理vcl发过来的消息，所以会死在那里；
以下实验：
function Inter(a:string):Integer;stdcall; //这里stdcall是有必要的；
begin
  Result :=StrToInt(a);
end;
------------------------------------------------------------
extern int Inter(string);

load_dll("F:\\Loaddll\\dll\\project1.dll");
rc=Inter("123");
用watchlist可以看得到rc等于123，表示处理成功；

winterson

哦，我实验一下，找到办法贴上来和大家分享

eric.y

winterson
string肯定不行,会内存出错

winterson

动态库函数改成这样试试：
function msg(a:string):integer;
begin
     showmessage(a);
    Result :=0;
end;

生如火花

load_dll("ttt.dll");
这一段没路径的能行么？没试过

生如火花

你问的这方面我的确水平不行，我是凭记忆写的，以前我应该是这样用的

eric.y

斑竹,你肯定没在用winrunner吧

生如火花

WR中的变量没有类型，第2段你改成
extern a;
a="ddd"
load_dll("ttt.dll");
试试，不保证成功，不成功把extern换成static或者public再试试

eric.y

鼎鼎大名的生如火花 都不知道你谦虚了

生如火花

传参数应该是没问题的，这段我没看懂，晕，没写过DLL