高级话题：为什么在Dll中不能传递字符串

[梅文海]

我在Dll中的定义是这样的：
procedure myFun(ASourceFile:string);
begin
ShowMessage(ASourceFile);
end;


声明：
procedure myFun(ASourceFile:string);StdCall;external "my_dll";

使用：
procedure TForm1.Button2Click(Sender: TObject);
begin
myfun('c:\12.jpg');
end;

运行结果显示一个二进制的数据，根本就不是“c:\12.jpg”，不知大家有没有碰到过这样的问题

[CeleronII]

不大可能吧，从来没碰到过这样的问题

[梅文海]

我又试了一下，我使用一个变量传递数据，结果第一个参数可以传递了，可是出现了第二种情况：传递第二个参数时怎么都不能传递。

var
s:string;
begin
myFun(s,s);

我在上面举的是一个参数的例子，如果改为两个参数的话，第二个参数不能传递

[previewer1024]

我的DLL是VC做的，也碰到问题（用CString类型）,把它改为指针型就好了，你可以试试。

[zyly2]

使用PCHAR传递，STRING是DELPHI中特有的，如果是与VC的程序传递需使用PCHAR，如在DELPHI的程序中传递可用STRING

[dudunono]

利用 动态加载试试了

[dudunono]

procedure TForm1.Button2Click(Sender: TObject);
begin
myfun(PChar('c:\12.jpg'));
end;

[zyly2]

DLL中函数的返回类型不能为String类型，string是自管理型类型。你用PChar试试。如果非要用string型也可，用变参。

[anh]

你把这个STRING换成一个PCHAR 就可以了。

[CBJ2049011]

我在Dll中的定义是这样的：
procedure myFun(ASourceFile:PChar);
begin
ShowMessage(ASourceFile);
end;


声明：
procedure myFun(ASourceFile:PChar);StdCall;external "my_dll";

[梅文海]

多谢各位，
我把参数改成PChar后发现可以正常传递，但是出现了新的问题：
调用完成时（Dll已经完成功能），出现严重错误：
Project f:\temp\myTest.exe falulted with message:'access violation at 0x5cad7c2a:read of address 0x5cadc2a'.Process Stopped.Use Step or Run to Continue.

[ahpei]

在DLL中函数的参数不能是string类型，否则需要加上shareMem单元。

[34535345345345345345]

使用PCHAR传递

[梅文海]

同志们，我已经解决了，多谢大家了。
我采用动态内存的方法解决的，我发现了传递数据到动态链接库的一个经验，传递参数时，应该使用有物理地址的方法，不能使用不含有任何地址的参数，比如'abcdefg'等，可能是在传递参数时不拷贝变量所至，如果采用指针的方法，绝对不会有问题的。