1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- $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
|