当前位置: 代码迷 >> VFP >> VFP如何调用Dll
  详细解决方案

VFP如何调用Dll

热度:3054   发布时间:2013-02-26 00:00:00.0
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()
  相关解决方案