Q5/ws_objects/Ew_bsnobj.pbl.src/f_getqrcode.srf

$PBExportHeader$f_getqrcode.srf
global type f_getqrcode from function_object
end type

forward prototypes
global function string f_getqrcode (string arg_content)
end prototypes

global function string f_getqrcode (string arg_content);String Pathname
oleobject FM
uo_reghelper ll_reghelper
String arg_msg = ''


Pathname = sys_cur_path+ins_fjtemppath+'\QR' + arg_content + '.bmp'  

IF Trim(Pathname) <> '' THEN
	IF Not FileExists ( Pathname ) THEN 
		 
		FM = Create oleobject
		ll_reghelper = Create uo_reghelper
		IF ll_reghelper.ConnectToNewObject("LJCom.FileHelper", "LJCom.FileHelper.dll", FM, arg_msg) <> 1 THEN
			MessageBox('', arg_msg)
			GOTO ext
		END IF
		IF Not FM.SaveQRCode(arg_content, ref Pathname, Ref arg_msg) THEN
			MessageBox('', arg_msg)
			GOTO ext
		END IF
		
		ext:
		FM.DisconnectObject()
		Destroy FM
		Destroy ll_reghelper
		
		
	END IF
END IF

RETURN Pathname


end function