Q5/ws_objects/Ew_aifmb.pbl.src/uo_ljsmcproxy.sru

$PBExportHeader$uo_ljsmcproxy.sru
forward
global type uo_ljsmcproxy from nonvisualobject
end type
end forward

shared variables
oleobject ins_aifmbproxy
boolean ins_created = false
boolean ins_connected = false
boolean ins_inited = false
end variables

global type uo_ljsmcproxy from nonvisualobject
end type
global uo_ljsmcproxy uo_ljsmcproxy

forward prototypes
private function integer pf_init (ref string arg_msg)
public function integer getproxy (ref oleobject arg_proxy, ref string arg_msg)
end prototypes

private function integer pf_init (ref string arg_msg);Int rslt = 1

uo_reghelper ll_reghelper
ll_reghelper = Create uo_reghelper

IF Not ins_created THEN
	ins_aifmbproxy = Create oleobject
	ins_created = True
END IF

IF ins_created THEN
	IF Not ins_connected THEN
		IF ll_reghelper.ConnectToNewObject("LJServicesManagerDll.LJSMProxy", "LJServicesManagerDll.dll", ins_aifmbproxy, arg_msg) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		ins_connected = True
	END IF
END IF
String remotehost
IF ins_connected THEN
	IF Not ins_inited THEN
		remotehost = ProfileString(sys_inifilename,'longjoews','remotehost','')
//		remotehost = '127.0.0.1'
		// DONE: 连接服务器
		IF IsNull(remotehost) Or remotehost = '' THEN
			rslt = 0
			arg_msg = '找不到远程地址，初始化失败'
			GOTO ext
		END IF
		ins_aifmbproxy.SetUrl(remotehost)
		ins_inited = True
	END IF
END IF

ext:
Destroy ll_reghelper
RETURN rslt




end function

public function integer getproxy (ref oleobject arg_proxy, ref string arg_msg);Int rslt = 1

IF pf_init(arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

arg_proxy = ins_aifmbproxy

ext:
RETURN rslt

end function

on uo_ljsmcproxy.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_ljsmcproxy.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on