首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

VFP如何调用Dll

2012-08-22 
VFP怎么调用DllVFP8.0怎么调用COM组件形式存在的DLL文件,举个例子可以吗?比如有个ABC.DLL的文件,这个DLL里

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()

热点排行