R调用C++的DLL

Ihavenothing

回复第5楼的 dengmeng0203：

就是.C返回值的第四个元素。

dengmeng0203

回复第6楼的 Ihavenothing：*e = (在此调用了另外一个DLL的接口函数，登陆成功返回0.登录失败会返回其他字段)；这一步可以得到正确的指针值，但是之后R进程崩溃，不知道是什么原因？

enthumelon

其实我一直想问VS2008的真的没有问题？我用VS2013直接不能dyn.load, 返回是

<br />
#void _stdcall Login(IN CHAR **a,IN CHAR **b,IN int *c，IN int *e)<br />
.C("Login",as.character("abcdef"),as.character("efghlokm"),as.integer(0),as.integer(-1))$e<br />

不过我感觉啊，,IN int *e不对吧，私以为你传了个R里面的const int *进去： as.integer(-1)
</p>

dengmeng0203

回复第8楼的 enthumelon：这里我想返回指针e所指向的值，应该怎么设置呢？

enthumelon

回复第9楼的 dengmeng0203：那个就是值而不是指针。你大约是可以这么做的

in C:

void _stdcall Login(IN CHAR **a,IN CHAR **b,IN int *c，IN int *e){

...

e[0]= some_cfunctime()

...

}

in R:

a=1L

re=.C("Login",as.character("abcdef"),as.character("efghlokm"),as.integer(0),as.integer(a))

re[[4]] # is the result

这里是值而不是指针。

dengmeng0203

回复第10楼的 enthumelon：我按照你写的试了一下，能够正确的得到*e的值，但是之后导致R进程崩溃。

enthumelon

回复第11楼的 dengmeng0203：用__cdecl而不是_stdcall会不会好点呢？

dengmeng0203

回复第12楼的 enthumelon：按照你说的已经操作成功，谢谢你的指点。如果我这边要有个函数要返回一个char*，void _cdecl FUNCTION(IN CHAR **a, IN CHAR **b,IN CHAR**c) 在R中返回char*该怎么操作呢

enthumelon

in C:

void _cdecl FUNCTION(char* target, IN CHAR **a, IN CHAR **b,IN CHAR**c)

then in R:

target = as.character(Please_set_a_fix_length)

.C(_your_srcs...)[[1]]

But it is **unsafe** if the length (size) of target is not fix (hence you can't free the malloc/alloc and it is actually a wild index).

I am sure you could be able to use R.h and Rinternal.h (use PROTECT ) to handle this but you really can't (as far as I know) compile such thing using Visual Studio.

Rcpp might (I am not sure) be useful to link external dll. But Rcpp requires POSIX or gcc/llvm alike. According to other developers, VS C++ and GNU-R won't work well. But you could try and show us the result.

Thanks!

dengmeng0203

回复第14楼的 enthumelon：我在R中调用dll中的另外一个函数时，出现 “错误：意外地符号in".C()"” ，是什么原因呢？

dengmeng0203

回复第14楼的 enthumelon：用Rcpp包调用extern DLL,有没有相关的参考资料，或者给予建议。接下来可能会对.Call调用DLL进行调研。

dengmeng0203

回复第2楼的 yanlinlin82：调用Login后，关闭R时，弹出一个框：Rgui.exe - 应用程序错误

应用程序发生异常unknown software exception(0x0000003)，位置为0x78a320ed。要终止程序，请单击“确定”。

是不是产生了内存泄露，出现的问题？

yanlinlin82

回复第17楼的 dengmeng0203：不是内存泄露，而是内存越界，这一般都是由于你对指针的使用不当造成的。

yanlinlin82

回复第17楼的 dengmeng0203：另外，10楼给你的代码只是告诉你“大约是可以这么做”。你是使用了完全一样的代码，还是做过改动？你在用这段代码时，应该首先理解其每个符号的意思。

dengmeng0203

回复第19楼的 yanlinlin82：由于_stdcall是编译器自动清理堆栈，最终改用_cdecl，其它地方有什么不对吗？

Thirdwing

（根据楼下朋友的提醒，这里删掉了几句不准确的说法，多谢！）

如果我没记错，__stdcall是和windows的API相关，我从来没碰过。

一般是不推荐R调用VS生成的dll的，因为这并不被官方支持。

还是推荐你去邮件列表上提问，那里会有人回答你的。

dengmeng0203

回复第21楼的 Thirdwing:我已经封装了几个函数，通过dyn.load(a.dll)加载后，都可以在R中调用，而且从服务端请求的数据也能够返回到R中，但最终关闭R程序时出现崩溃，具体原因不清楚。

你上面说的 “邮件列表”是指什么，麻烦指导一下。

Thirdwing

回复第22楼的 dengmeng0203：https://stat.ethz.ch/mailman/listinfo/r-devel

yanlinlin82

回复第20楼的 dengmeng0203：

回复第21楼的 Thirdwing：

_stdcall 和 _cdecl 并不是 MS/VS 特有的，而是几乎所有C编译器都会支持的，它是用来控制编译所生成的机器指令中处理函数参数的方式（即压栈顺序）。比如 void foo(int a, int b, int c)，若使用 _stdcall，则对应的执行大约是“push c; push b; push a”；而 _cdecl 则是“push a; push b; push c”。所以你要使用得不正确，C程序可能会拿到一个错误类型的指针，并在操作指针所指向的内存块时因此而可能越界。

Thirdwing

回复第24楼的 yanlinlin82：

抱歉哈，是我记错了，GCC在windows下的版本的确有：

stdcall is the standard calling convention for the Microsoft Win32 API and for Open Watcom C++.

From wikipedia: http://en.wikipedia.org/wiki/X86_calling_conventions

This section pertain only to Win32.

From GCC: https://gcc.gnu.org/onlinedocs/gnat_ugn_unw/Windows-Calling-Conventions.html#Windows-Calling-Conventions