自己写了几个函数,请问怎样编写成函数库如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)。