VFP编写DLL

VFP编写DLL

分类： VFP - 编程技巧 2008-04-23 17:16 2636人阅读 评论(4) 收藏 举报

有两种DLL文件，一种是用Declare说明然后调用，这种文件copy了就能用，但不能用智能提示，只能用专门的工具查看里面有什么东西，这种Dll一般是用C编写的。
另外一种是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