说句实话 我越来越不了解Delphi了

[strangefay]

不敢说自己是老鸟, 但是用Delphi也这么多年了
最近总在做异构程序的接口工作
却发现Delphi(BCB也一样)越来越操蛋了, 背地里做了太多的自以为是的东西,
我觉着我是越来越不懂Delphi了

[strangefay]

说个简单的例子 DelphiXE2 与 VS2008.Net dll进行转接

function ClickSvc(var Param: Integer):Integer;

implementation

function ClickSvc(var Param: Integer):Integer;
var
    WSIServer: MIVCServiceSoap;
begin
  ShowMessage(IntToStr(Param));
  WSIServer:= GetMIVCServiceSoap(True, '');
  Result:= WSIServer.Click(Param);
end;

[DllImport("LibSTFAY.dll", CallingConvention=CallingConvention.Cdecl)]
static extern int ClickSvc(int param);

参数居然接收的有问题

[strangefay]

上面打错了 函数定义是这样
function ClickSvc(Param: Integer):Integer;

[strangefay]

无论是传值还是传址都是一样的结果
换VC一切正常

[s11ss]

Cdecl

[无条件为你]

DELPHI和VC参数入栈顺序不同。

[pathletboy]

delphi的函数默认调用约定是pascal，你看下你dll函数的调用约定，可能为cdecl或者stdcall.

[程晨c]

“最近总在做异构程序的接口工作”，异构是指什么意思？

[和海风]

不知道楼主怎么看调用约定，是否熟悉Delphi的默认调用约定是什么，入栈顺序和清栈工作

[s11ss]

delphi的函数默认调用约定是register[Quote=引用 6 楼 pathletboy 的回复:]
delphi的函数默认调用约定是pascal，你看下你dll函数的调用约定，可能为cdecl或者stdcall.
[/Quote]

[「已注销」]

调用约定，学习一下

[kaikai_kk]

不懂Delphi的飘过

[haitao]

很早以前的webservice跨语言互通，就发现xml的“标准”其实与java的“一次编译到处运行”一样，只是商业噱头而已

[wzwcn]

现在的人怎么了，遇到点小问题总是抱怨、想当然