关于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)。

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值