关于delphi中Dll的问题(50分)

justmejwt · 2006-04-28

delphi中Dll的一个问题: 为什么DLL中的函数的返回值是string就是错呢? 还有些其它什么限制呢? library MyDll; uses  SysUtils,shareMem,Classes; Function Max ( X , Y : integer ) : string ; stdcall ; begin  if X > Y then    Result := 'the max is:'+ inttostr(X)  else    Result := 'the max is:'+ inttostr(Y) ; end; {$R *.res} exports MyMax; begin end. 这样就会出错, 若是改成 Function Max ( X , Y : integer ) : integer ; stdcall ; begin  if X > Y then    Result := X  else    Result := Y ; end; 就对了真奇怪请高手指点

liuchong · 2006-04-28

可以使用FastMM补丁： http://www.delphibbs.com/delphibbs/dispq.asp?lid=3373649

qi_jianzhou · 2006-04-28

在 delphi 要返回 string 类型必须在 dll 的 uses 中第一个为 shareMem ，同时调用 dll 的程序中的 interface 的 uses 的第一个也为 sharemem ，记住是第一个 uses dll 和调用程序中都要加 sharemem

uiit · 2006-04-28

嘿，动态库中最好不要用string，因为他要用到ShareMM的borlandMM 用PChar吧 详情请见：《D5开发指南》第9章

justmejwt · 2006-04-28

郁闷,是这个原因啊.那还有其它类型也会出现这个问题吗? 而且为了其它语言能用这个DLL,在数据类型的使用上还有哪些值得注意的地方? 刚才测试了一下在use里加入了shareMem以后运行的时候没问题但是我退出程序的时候却提示有错.怪了!

吖诚 · 2006-04-28

interface uses SysUtils; implementation Function Max ( X , Y : integer ) : string ; stdcall ; begin  if X > Y then    Result := 'the max is:'+ inttostr(X)  else    Result := 'the max is:'+ inttostr(Y) ; end; 你没有引用SysUtils

ohayoo · 2006-04-28

应该是你在程序里定义函数时未改变类形

uiit · 2006-04-28

一般来说就是你的导出函数和过程有字符串或者动态数组参数的话 你就改为指针类型最好了哈，一般都用指针就好~~~ 如果是对象的话就另论了...说多了就

justmejwt · 2006-04-28

TO uiit:能给一下用指针做参数的简单例子吗

samy_ywj · 2006-04-29

不能用string类型，用WideString代替

delphilxh · 2006-04-29

考虑到兼容性，最好用pchar

justmejwt · 2006-05-27

多人接受答案了。

关于delphi中Dll的问题(50分)

justmejwt

Unregistered / Unconfirmed

liuchong

Unregistered / Unconfirmed

qi_jianzhou

Unregistered / Unconfirmed

uiit

Unregistered / Unconfirmed

justmejwt

Unregistered / Unconfirmed

吖诚

Unregistered / Unconfirmed

ohayoo

Unregistered / Unconfirmed

uiit

Unregistered / Unconfirmed

justmejwt

Unregistered / Unconfirmed

samy_ywj

Unregistered / Unconfirmed

delphilxh

Unregistered / Unconfirmed

justmejwt

Unregistered / Unconfirmed

Similar threads