关于VFP自定义函数库DLL的问题

自己写了几个函数,请问怎样编写成函数库如DLL之类的
让我在VFP命令行中可直接调用
如自编了函数 a()
则在命令窗口中输入a() 即可运行

由于本人工作中自定义函数较多
所以不采取 写成 prg 放入默认目录下的方法
谢谢

======================================================

关于编写DLL

*-----------------------

以下为一个例子:

首先建一个工程,如MyDll,
然后建一个主程序,如MyDllMain,
然后在这个主程序里写如下代码:

**********取得表中记录总数**********

DEFINE CLASS MyData AS SESSION OLEPUBLIC &&如果是VFP6-SP5以下,把SESSION改为CUSTOM
PROCEDURE  GetDataCount
LPARAMETERS tcTable
SELECT 0
SELECT COUNT(*) FROM (tcTable) INTO ARRAY curData
USE IN (tcTable)
RETURN ALLTRIM(STR(curdata))
ENDPROC
ENDDEFINE
*!*DEFINE CLASS MyData AS SESSION OLEPUBLIC &&如果是VFP6-SP5以下,把SESSION改为CUSTOM
*!*PROCEDURE Test
*!*RETURN '调用成功!'
*!*ENDPROC
*!*ENDDEFINE
************************************

 

在VFP中调用这个DLL:

LOCAL loCom
loCom = CREATEOBJECT('Mydll.Mydata')
?loCom.GetDataCount('temp1') &&temp1为表名
RELEASE loCom
loCom = Null
RETURN


注:
1.session只能在VFP6.0+SP5开始才能使用,建议使用7.0或更高版本。若非要用6.0,则必须打补丁,或改用CUSTOM类。
2.编译成的DLL,与EXE一样,要用运行库,还必须同时发布 VFP[x]T.dll 文件([x]可为6、7、8或9)。

 


本文来自互联网用户投稿,文章观点仅代表作者本人,不代表本站立场,不承担相关法律责任。如若转载,请注明出处。 如若内容造成侵权/违法违规/事实不符,请点击【内容举报】进行投诉反馈!

相关文章

立即
投稿

微信公众账号

微信扫一扫加关注

返回
顶部