学习《Building Applications with FME Objects》 之二 使用Sessions（会话）
使用FME Objects的起点是创建一个FME Object session（会话）对象FMEOSession，除非你的应用程序要操作有限的虚拟内存，当你的应用程序初始化市可以简单的创建FMEOSession对象，并且保持该对象到应用程序关闭，你可以创建全局的会话或者通过任何对象或方法的参数来访问。
提示：一个进程只能有一个会话可用，试图创建第二个会话会导致错误
在VB中，用CreateObject方法创建并返回一个ActiveX对象，可以用这个方法创建FMEOSession对象。
Set m_fmeSession=CreateObject(“FMEObjects.FMEOSession”)
一旦创建，FMEOSession对象必须在使用前初始化，下面为初始化代码：
Dim fmeSessionSettings as FMEOStringArray
Set fmeSessionSettings=m_fmeSession.createStringArray
Call m_fmeSession.init(fmeSessionSettings)
下面的图展示的FMEOSession对象的属性和方法：
所有的FME Object AcitveX对象都是用Session对象创建的，下面创建一个字符串数组对象并赋给一个变量
Set fmeSessionSettings=fmeSession.createStringArray
fmeHome,fmeVersion和fmeBuildNumber属性可以用来了解FME安装信息。
在本章，我们将学习到：
- 初始化会话设置
- 改变会话设置
- 捕捉错误
- 创建日志文件
- 配置函数和处理器(factories)
会话设置
FME对象的配置参数和FME一样，详细信息参考FME Foundation手册中的FME Configuration章节。
用init方法来设置会话参数，例如，设置FME对象临时目录，你可以用下列代码：
Dim fmeSessionSettings as FMEOStringArray
Set fmeSessionSetting = m_fmeSession.createStringArray
fmeSessionSettings.append(“FME_TEMP”)
fmeSessionSettings.append(“d:\temp”)
m_fmeSession.init(fmeSessionSettings)
在会话被初始化后，可以使用updateSettings方法来改变会话参数。
捕捉错误
一个好的应用程序应该能捕捉运行时错误，最好是在用户不知情的情况下将错误恢复，但任何开发人员也不可能预测所有的错误，好的设计应该是当错误发生时捕捉到错误并给用户友好的提示。FME对象应用程序的错误捕捉如下：
Sub MyProcedure()
On Error Goto ERROR_HANDLER
'你的代码
'…
Exit Sub
ERROR_HANDLER:
If Err.Number<0 Then
Err.Number=Err.Number Xor vbObjectError
End If
Err.Raise Err.Number,Err.Source,Err.Description
End Sub
提示：如果FME对象发生错误，FMEOSession对象变成无效并且不能在应用程序的生命周期中继续使用，为了继续使用，应用程序必须重新创建FMEOSession对象。
为了帮助你分析运行时错误，FMEOSession对象提供两个属性包含诊断信息：
lastErrorNum和lastErrorStackTrace，如果你的程序有日志文件，这两个属性可以被记录便于诊断。
提示：为了简洁，本文中的范例程序中省略了错误捕捉，但我们强烈建议你的程序中加入。
日志文件对象
FMEOSession对象允许你的应用程序通过logFile属性访问会话的FMEOLogFile对象。用FMEOLogFile对象可以命名日志文件。
下面的代码演示用应用程序路径和标题命名日志文件，并写入日志测试信息：
Public m_fmeLogfile AS FMEOLogFile
Set m_fmeLogfile=m_fmeSession.logFile
sLogFileName=App.Path & “\" & App.Title & “.log”
Call m_fmeLogfile.setFileName(sLogFileName,False)
Call m_fmeLogfile.logMessageString(0,”FME Objects test.”)
FMEOLogFile对象可以讲每条信息写入日志文件，用于查看之前生成的信息，调用holdMessage方法，参数为True则日志被吸入内部缓冲，为False则停止缓冲。
Set m_fmeMessages=m_fmeSession.createStringArray
Call m_fmeLogfile.HoldMessage(True)
Call m_fmeLogfile.logMessageString(0,”First Message”)
Call m_fmeLogfile.logMessageString(0,”Second Message”)
Call m_fmeLogfile.HoldMessage(False)
Call m_fmeLogfile.logMessageString(0.”Third Message”)
Call m_fmeLogfile.getHeldMessage(m_fmeMessages)
函数配置
FME函数是通过FMEOPipeline和FMEOFeature对象暴露给应用程序的，函数配置的描述在FME Functions,Factories,and Transformers手册中，FMEOSession configure方法允许为函数指定配置，下面的代码展示了如何给@SQL函数配置参数。
Dim fmConfigRow as FMEOStringArray
Set fmeConfigRow=m_fmeSession.createStringArray
fmeConfigrow.append(“SQL”)
fmeConfigrow.append(“sampleConn”)
fmeConfigrow.append(“SERVER_TYPE”)
fmeConfigrow.append(“ORACLE”)
fmeConfigrow.append(“SERVER_NAME”)
fmeConfigrow.append(“sea_world”)
m_fmeSession.configure(fmeConfigRow)
销毁会话
一旦会话对象工作完毕，你可以销毁它：
Set m_fmeSession=Nothing
这将会释放会话所占用的所有资源。
参考资料:
《Building Applications with FME Objects》February 2005
转载请注明文章来源 http://www.cnblogs.com/booolee
