＋设为首页 ＋添加到收藏夹
定义对象级的多态函数，如定义窗口级的多态函数，没有问题，但不知如何定义全局多态函数。
想在PB程序中嵌入腾讯通，看腾讯通的帮助文件，其中有VB的示例语句，但不知PB如何写。
VB的示例语句如：
Dim objAPI As RTXClient.RTXAPI
Dim objProp As Object
Dim RTXNum As String
Dim Password As String
Dim ServerAddress As String
Dim ServerPort As Integer
Set objAPI = CreateObject("RTXClient.RTXAPI")
Set objProp = objAPI.GetObject("Property")
objProp.Value("RTXNum") = "1001"
objProp.Value("Password") = "1234"
objProp.Value("ServerAddress") = "127.0.0.1"
objProp.Value("ServerPort") = 8000
RTXNum = objProp.Value("RTXNum")
Password = objProp.Value("Password")
ServerAddress = objProp.Value("ServerAddress")
ServerPort = objProp.Value("ServerPort")
先分别写好你的“多态”函数，然后导出，将内容合并编辑一下，象下面这样，再导入PBL即可。
导入后的对象只能看到一个函数，若要再修改，导出修改完后再导入。
$PBExportHeader$gf_test.srf
global type gf_test from function_object
end type
forward prototypes
global function integer gf_test (integer ai_parm)
global function integer gf_test (integer ai_parm, string as_parm)
global function integer gf_test (integer ai_parm, integer ai_parm1)
end prototypes
global function integer gf_test (integer ai_parm);
Return gf_test(ai_parm,"")
end function
global function integer gf_test (integer ai_parm, string as_parm);
integer li_return
gf_test(ai_parm,ai_parm)
Return li_return
end function
global function integer gf_test (integer ai_parm, integer ai_parm1);
Return ai_parm + ai_parm1
end function
