$PBExportHeader$f_chkfxfilemapwithmd5andupload.srf global type f_chkfxfilemapwithmd5andupload from function_object end type forward prototypes global function integer f_chkfxfilemapwithmd5andupload (string a_md5s[], string a_filepaths[], ref string arg_msg) end prototypes global function integer f_chkfxfilemapwithmd5andupload (string a_md5s[], string a_filepaths[], ref string arg_msg);// 提交待上传到fx_filemap的附件 // ChkFxFileMapWithMd5AndUpload // a_md5s[] -- md5 // a_filepaths[] -- 文件全路径 int rslt = 1 if (IsNull(a_md5s)) then rslt = 0 arg_msg = 'f_chkfxfilemapwithmd5andupload调用异常(0)' goto ext end if if (UpperBound(a_md5s) <= 0) then rslt = 0 arg_msg = 'f_chkfxfilemapwithmd5andupload调用异常(1)' goto ext end if if (UpperBound(a_md5s) <> UpperBound(a_filepaths)) then rslt = 0 arg_msg = 'f_chkfxfilemapwithmd5andupload调用异常(2)' goto ext end if long ll_i oleobject parm, rsp, md5s, filepaths parm = FXAppCom.CreatePbDictionary() md5s = FXAppCom.NewPBArray() filepaths = FXAppCom.NewPBArray() for ll_i = 1 to UpperBound(a_md5s) md5s.AddString(a_md5s[ll_i]) filepaths.AddString(a_filepaths[ll_i]) next parm.SetString('token', app_token_fx) parm.SetObject('md5s', md5s) parm.SetObject('filepaths', filepaths) rsp = FXAppCom.ChkFxFileMapWithMd5AndUpload(parm) arg_msg = rsp.GetString('ErrMsg') if (arg_msg <> '') then rslt = 0 goto ext end if ext: return rslt end function