有两种DLL文件,一种是用Declare说明然后调用,这种文件copy了就能用,但不能用智能提示,只能用专门的工具查看里面有什么东西,这种Dll一般是用C编写的。
另外一种是COM方式的Dll,用Createobject(对象名)方式调用,对象名的两部分组成,也不能直接看出,需要开发者提供,下面就可以用智能提示了。
这种DLL许多语言都可以开发,也都可以调用,VFP开发的DLL就属于这种。
Local loCom
loCom = Createobject('Mydll.Mydata')
另外一种是COM方式的Dll,用Createobject(对象名)方式调用,对象名的两部分组成,也不能直接看出,需要开发者提供,下面就可以用智能提示了。
这种DLL许多语言都可以开发,也都可以调用,VFP开发的DLL就属于这种。
Local loCom
loCom = Createobject('Mydll.Mydata')
*!* 示例:
首先建一个工程,如MyDll,
然后建一个主程序,如MyDllMain,
然后在这个主程序里写如下代码:
**********取得表中记录总数**********
Define Class MyData As Session OlePublic &&如果是VFP6-SP5以下,把SessionN改为Custom
Procedure GetDataCount
Lparameters tcTable
Select 0
Select Count(*) From (tcTable) Into Array curData
Use In (tcTable)
Return Alltrim(Str(curdata))
Endproc
Enddefine
************************************
编译时选择连编成DLL。
在VFP中调用这个DLL:
Local loCom
loCom = Createobject('Mydll.Mydata')
?loCom.GetDataCount('temp1') &&temp1为表名
Release loCom
loCom = Null
Return