Repository.XFRACAS.WriteExceptionToDiagnosticsLog: Difference between revisions
Jump to navigation
Jump to search
John Leavitt (talk | contribs) |
John Leavitt (talk | contribs) |
||
| Line 15: | Line 15: | ||
{{APIComment|'Connect to the Synthesis repository.}} | {{APIComment|'Connect to the Synthesis repository.}} | ||
{{APIPrefix|Dim}}Success{{APIPrefix|As Boolean}}=MyRepository.[[Repository.ConnectToRepository|ConnectToRepository]]("RepositoryFileNamePath") | {{APIPrefix|Dim}}Success{{APIPrefix|As Boolean}}= MyRepository.[[Repository.ConnectToRepository|ConnectToRepository]]("RepositoryFileNamePath") | ||
{{APIComment|'Get the list of XFRACAS Entities in the current project in the connected repository.}} | {{APIComment|'Get the list of XFRACAS Entities in the current project in the connected repository.}} | ||
{{APIPrefix|If}}success{{APIPrefix|Then}} | {{APIPrefix|If}}success{{APIPrefix|Then}} | ||
MyRepository.WriteToDiagnosticsLog("Successfully connected to repository", SynthesisAPI.[[XFRACASDiagnosticsEntryType Enumeration|XFRACASDiagnosticsEntryType]].Information) | MyRepository.WriteToDiagnosticsLog("Successfully connected to repository", SynthesisAPI.[[XFRACASDiagnosticsEntryType Enumeration|XFRACASDiagnosticsEntryType]].Information) | ||
{{APIPrefix|Try}} | |||
{{APIPrefix|Dim}}ListOfXFRACASEntities(){{APIPrefix|As}}SynthesisAPI.[[NameIdPair Class|NameIdPair]] = MyRepository.[[Repository.GetAllXFRACASEntities|GetAllXFRACASEntities]]() | {{APIPrefix|Dim}}ListOfXFRACASEntities(){{APIPrefix|As}}SynthesisAPI.[[NameIdPair Class|NameIdPair]] = MyRepository.[[Repository.GetAllXFRACASEntities|GetAllXFRACASEntities]]() | ||
{{APIPrefix|For}}i{{APIPrefix|As Integer}} = 0{{APIPrefix|To}}ListOfXFRACASEntities.GetUpperBound(0) | {{APIPrefix|For}}i{{APIPrefix|As Integer}}= 0{{APIPrefix|To}}ListOfXFRACASEntities.GetUpperBound(0) | ||
MessageBox.Show(ListOfXFRACASEntities(i).Name) | |||
{{APIPrefix|Next}} | {{APIPrefix|Next}} | ||
{{APIPrefix|Catch}}ex{{APIPrefix|As}}Exception | |||
{{APIComment|'Write error message to diagnostics log}} | {{APIComment|'Write error message to diagnostics log}} | ||
MyRepository.WriteToDiagosticsLog(ex, SynthesisAPI.[[XFRACASDiagnosticsEntryType Enumeration|XFRACASDiagnosticsEntryType]].Error, "Reading Entities") | MyRepository.WriteToDiagosticsLog(ex, SynthesisAPI.[[XFRACASDiagnosticsEntryType Enumeration|XFRACASDiagnosticsEntryType]].Error, "Reading Entities") | ||
{{APIPrefix|End Try}} | |||
{{APIPrefix|End If}} | {{APIPrefix|End If}} | ||
Revision as of 22:30, 28 April 2014
Writes exception information to the diagnostics log
Syntax
- WriteToDiagnosticsLog(exObject As System.Exception , entrytype As XFRACASDiagnosticEntryType, Optional commentAs String)
Parameters
- exObject: Represents an error that occurs during application execution
- entryType: The type of diagnostics entry type, specified as XFRACASDiagnosticsEntryType
- comment: Optional comment to write to the diagnostics log
Usage Example
Code Block
'Connect to the Synthesis repository. DimSuccessAs Boolean= MyRepository.ConnectToRepository("RepositoryFileNamePath") 'Get the list of XFRACAS Entities in the current project in the connected repository. IfsuccessThen MyRepository.WriteToDiagnosticsLog("Successfully connected to repository", SynthesisAPI.XFRACASDiagnosticsEntryType.Information) Try DimListOfXFRACASEntities()AsSynthesisAPI.NameIdPair = MyRepository.GetAllXFRACASEntities() ForiAs Integer= 0ToListOfXFRACASEntities.GetUpperBound(0) MessageBox.Show(ListOfXFRACASEntities(i).Name) Next CatchexAsException 'Write error message to diagnostics log MyRepository.WriteToDiagosticsLog(ex, SynthesisAPI.XFRACASDiagnosticsEntryType.Error, "Reading Entities") End Try End If