//说明 :尝试得到系统的临时文件夹,如果失败,就是用当前目录为临时文件夹
//ole_word为OleControll类型,ole连接类型为MSWord
//n_atrrib.uf_saveword(worddata,ls_err)为ole_word服务的对象,完成把数据写入数据库中
//n_cst_filesrvwin32 n_file是PFC中文件控制对象
Blob worddata
String ls_err,ls_values[],ls_tempdir,ls_path
ContextKeyword lcx_key
n_cst_filesrvwin32 n_file
n_file = Create n_cst_filesrvwin32
ls_tempdir = GetCurrentDirectory()
//得到临时缓存
This.GetContextService("ContextKeyword",lcx_key)
lcx_key.GetContextKeywords("TEMP",ls_values)
Int i
For i = 1 To UpperBound(ls_values)
If DirectoryExists(ls_values[i]) Then
ls_tempdir = ls_values[i]
Exit;
End If
Next
ls_tempdir += "/DisinfectTemp"
If Not DirectoryExists(ls_tempdir) Then
CreateDirectory(ls_tempdir)
End If
//确定临时文件,并SaveAs,为确保不会出现错误,使用了Try Catch
ls_path = ls_tempdir + "/mydisinfect.doc"
Try
ole_word.Object.SaveAs(ls_path)
If n_file.of_fileread(ls_path,worddata) > 0 Then
n_atrrib.uf_saveword(worddata,ls_err)
Else
ls_err = "读取Word信息失败。"
End If
Catch(RunTimeError e)
ls_err = e.GetMessage()
Finally
Destroy n_file
FileDelete(ls_path)
End Try
//ole_word为OleControll类型,ole连接类型为MSWord
//n_atrrib.uf_saveword(worddata,ls_err)为ole_word服务的对象,完成把数据写入数据库中
//n_cst_filesrvwin32 n_file是PFC中文件控制对象
Blob worddata
String ls_err,ls_values[],ls_tempdir,ls_path
ContextKeyword lcx_key
n_cst_filesrvwin32 n_file
n_file = Create n_cst_filesrvwin32
ls_tempdir = GetCurrentDirectory()
//得到临时缓存
This.GetContextService("ContextKeyword",lcx_key)
lcx_key.GetContextKeywords("TEMP",ls_values)
Int i
For i = 1 To UpperBound(ls_values)
If DirectoryExists(ls_values[i]) Then
ls_tempdir = ls_values[i]
Exit;
End If
Next
ls_tempdir += "/DisinfectTemp"
If Not DirectoryExists(ls_tempdir) Then
CreateDirectory(ls_tempdir)
End If
//确定临时文件,并SaveAs,为确保不会出现错误,使用了Try Catch
ls_path = ls_tempdir + "/mydisinfect.doc"
Try
ole_word.Object.SaveAs(ls_path)
If n_file.of_fileread(ls_path,worddata) > 0 Then
n_atrrib.uf_saveword(worddata,ls_err)
Else
ls_err = "读取Word信息失败。"
End If
Catch(RunTimeError e)
ls_err = e.GetMessage()
Finally
Destroy n_file
FileDelete(ls_path)
End Try