Q5/ws_objects/Ew_eb_import.pbl.src/uo_ljlib_taobao_comapp.sru

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

shared variables
oleobject ins_taobao
boolean ins_created = false
boolean ins_connected = false
boolean ins_inited = false
oleobject ins_Companys
boolean ins_b_Companys = false
end variables

global type uo_ljlib_taobao_comapp from nonvisualobject
end type
global uo_ljlib_taobao_comapp uo_ljlib_taobao_comapp

forward prototypes
public function integer uf_init (ref oleobject arg_taobao, ref boolean arg_created, ref boolean arg_connected, ref boolean arg_inited, ref string arg_msg)
public function string uf_getname ()
private function integer pf_init (ref string arg_msg)
public function integer uf_getcompanys (ref oleobject arg_coms, ref string arg_msg)
end prototypes

public function integer uf_init (ref oleobject arg_taobao, ref boolean arg_created, ref boolean arg_connected, ref boolean arg_inited, ref string arg_msg);Int rslt = 1

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

ext:
arg_taobao = ins_taobao
arg_created = ins_created
arg_connected = ins_connected
arg_inited = ins_inited
RETURN rslt

end function

public function string uf_getname ();string arg_msg
if pf_init(arg_msg) <> 1 then
	return ""
end if
return ins_taobao.username
end function

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

uo_reghelper ll_reghelper
ll_reghelper = Create uo_reghelper

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

IF ins_created THEN
	IF Not ins_connected THEN
		
		IF ll_reghelper.ConnectToNewObject("LJLib.TaoBao.AppCom", "LJLib.TaoBao.dll", ins_taobao, arg_msg) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		ins_connected = True
	END IF
END IF

IF ins_connected THEN
	IF Not ins_inited THEN
		String appkey, appsecret, redirect_uri, requestUrl, authUrl, tokenUrl
		appkey = "23107982"
		appsecret = "392c611601fec7024013230078c3b6c8"
		redirect_uri = "http://www.longjoe.com/"
		ins_taobao.Init(appkey, appsecret, redirect_uri, False, False)
		ins_taobao.InitDB(sqlca.ServerName, sqlca.Database, sqlca.LogID, sqlca.LogPass)
		ins_inited = True
	END IF
END IF
ext:
Destroy ll_reghelper
RETURN rslt






end function

public function integer uf_getcompanys (ref oleobject arg_coms, ref string arg_msg);Int rslt = 1

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

IF Not ins_b_Companys THEN
	ins_Companys = ins_taobao.GetCompanys()
END IF

arg_coms = ins_Companys
ext:
RETURN rslt

end function

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

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