$PBExportHeader$uo_mimeproxyfactory.sru
forward
global type uo_mimeproxyfactory 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_mimeproxyfactory from nonvisualobject
end type
global uo_mimeproxyfactory uo_mimeproxyfactory

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("longjoe_emailole.MIMEProxy", "longjoe_emailole.dll", ins_aifmbproxy, 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
		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_mimeproxyfactory.create
call super::create
TriggerEvent( this, "constructor" )
end on

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