读书人

VFP如何调用Dll

发布时间: 2012-08-22 09:50:35 作者: rapoo

VFP怎么调用Dll
VFP8.0怎么调用COM组件形式存在的DLL文件,举个例子可以吗?比如有个ABC.DLL的文件,这个DLL里有个函数A(int iType) 怎么调用这个DLL里的A函数啊

[解决办法]
新建一目,然後新建一prg,把以下代入
DEFINE CLASS test_dll as custom OLEPUBLIC
get_para1 = ''
get_para2 = ''
FUNCTION init
LPARAMETERS p_para1,p_para2
this.get_para1 = p_para1
this.get_para2 = p_para2

PROCEDURE get_amt1
RETURN this.get_para2
ENDPROC
PROCEDURE get_amt2
RETURN this.get_para1
ENDPROC

ENDFUNC
PROCEDURE get_inf
RETURN 'is get messagbox!'
ENDPROC
ENDDEFINE
最後保存成test_dll (注意名字很重要)
然後build中的程,成test_dll.dll(名字可改)

用 :
我是又新建一目的
o_custom = CREATEOBJECT('test_dll.test_dll')&&&第一test_dll意dll名字,第二test_dll保存prg起的名字
MESSAGEBOX(o_custom.get_inf(),48,'tip')
?o_custom.init('1','2')
?o_custom.get_para2
?o_custom.get_amt2()

读书人网 >VFP

热点推荐