当从rebol调用时,指针从dll函数返回

发布时间：2020-12-14 02:51:02 所属栏目：Windows 来源：网络整理

导读：我试图确定天气我可以使用rebol进行一些编程任务.我编写了一个小程序,它加载一个外部库并调用一个函数,该函数在一些参数中返回指针.当我运行该程序时,它崩溃rebol.exe.我希望有人可以帮助我. dll函数如下： void xxx swe_utc_time_zone(int32 iyear,int32 im

我试图确定天气我可以使用rebol进行一些编程任务.我编写了一个小程序,它加载一个外部库并调用一个函数,该函数在一些参数中返回指针.当我运行该程序时,它崩溃rebol.exe.我希望有人可以帮助我.
dll函数如下：

void xxx swe_utc_time_zone(int32 iyear,int32 imonth,int32 iday,int32 ihour,int32 imin,double dsec,double dtimezone,int32 *iyear_utc,int32 *imonth_utc,int32 *iday_utc,int32 *ihour_utc,int32 *imin_utc,double *dsec_utc)

这是我的小测试程序：

rebol []
astrology-lib: load/library %/c/sweph/bin/swedll32.dll
swe-utc-time-zone: make routine! [
   iyear [integer!]
   imonth [integer!]
   iday [integer!]
   ihour [integer!]
   iminute [integer!]
   dsec [decimal!]
   dtimezone [decimal!]
   iyear-utc [char*]
   imonth-utc [char*]
   iday-utc [char*]
   ihour-utc [char*]
   iminute-utc [char*]
   dsec-utc [char*]
] astrology-lib "_swe_utc_time_zone@60"
swe-utc-time-zone 2015 6 20 0 19 0 -4.5 none none none none none none

程序在我尝试调用该函数的最后一行崩溃.错误消息是“REBOL / View系统已停止工作”

解决方法

您必须提供至少与要从呼叫中返回的指针大小相同的内存.

因此,不应该使用任何一个,而应该使用沿着某条线初始化的单词

iyear-utc: make struct! [
    point [integer!]
] none

也许这些链接会为您提供更多帮助adress,conversions,more conversions

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!