您的位置:首页 > 其它

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

2007-03-16 16:52 253 查看
自己写了几个函数,请问怎样编写成函数库如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)。
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: