我现在练习在vfp编一下dll，然后在 vfp中调用

wwle

于 2012-05-28 10:13:41 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： VFP 文章标签： dll integer delphi string c

本文链接：https://blog.youkuaiyun.com/wwle/article/details/7608293

VFP 专栏收录该内容

4 篇文章

订阅专栏

本文详细介绍了如何在VFP中练习编译DLL，并调用Delphi编写的DLL中的例程，包括使用DECLARE命令加载DLL及例程，以及在VFP中执行调用过程。同时解答了关于DLL调用中遇到的问题，如无法找到入口点，并提供了解决方案。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我现在练习在vfp编一下dll，然后在 vfp中调用。

DECLARE INTEGER CreateFileMapping IN kernel32.DLL INTEGER hFile, ;
INTEGER lpFileMappingAttributes,integer flProtect, ;
INTEGER dwMaximumSizeHigh, INTEGER dwMaximumSizeLow, ;
STRING lpName
DECLARE INTEGER GetLastError IN kernel32.DLL
DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject

还有这个更晕：

VFP调用Delphi编写的DLL例程
　　要调用的DLL中的每一个例程都应先用DECLARE--DLL命令加载。下例在VFP中调用Delphi编写的MyDLL.DLL中的例程Add(x,y)。
　　Set Talk Off
　　Clear
　　*用declare命令加载DLL及其中的例程Add
　　Declare integer Add in MyDLL.DLL integer @x,integer @y
　　a=15
　　b=10
　　Wait Window"正在调用例程Add" Timeout 2
　　c=Add(a,b)
　　?c
　　Wait Window"释放加载的DLL" Timeout 2
　　Clear All Dlls
　　Return

为什么要加 @,delphi讲地址，vfp中又不讲

明白啦：

你的文章第一段已经说明了哈哈

我刚用

Declare string RmbDx in Proj1.DLL integer x
?RmbDx(1000)

提示 cannot find entry point

我现在试试
aa=CREATEOBJECT("Proj1.My_Dll")
aa.My_Dll
?aa.RmbDx(1000)
?aa.ToPy("中国")

ok!