Repository.XFRACAS.WriteMessageToDiagnosticsLog: Difference between revisions
Jump to navigation
Jump to search
John Leavitt (talk | contribs) No edit summary |
John Leavitt (talk | contribs) |
||
Line 29: | Line 29: | ||
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 Try}} | ||
{{APIPrefix|End If}} | |||
Revision as of 21:17, 28 April 2014
Writes a message to the diagnostics log
Syntax
- WriteToDiagnosticsLog(message As String , entrytype As XFRACASDiagnosticEntryType)
Parameters
- message: Message to write to the diagnostics log
- entryType: The type of diagnostics entry type, specified as XFRACASDiagnosticsEntryType
Usage Example
Code Block
' Connect to the Synthesis repository. Dim Success As Boolean = MyRepository.ConnectToRepository("RepositoryFileNamePath") ' Get the list of XFRACAS Entities in the current project in the connected repository. If success Then MyRepository.WriteToDiagnosticsLog("Successfully connected to repository", SynthesisAPI.XFRACASDiagnosticsEntryType.Information) Try Dim ListOfXFRACASEntities() As SynthesisAPI.NameIdPair= MyRepository.GetAllXFRACASEntities() For i As Integer = 0 To ListOfXFRACASEntities.GetUpperBound(0) MessageBox.Show(ListOfXFRACASEntities(i).Name) Next ' Write error message to diagnostics log Catch ex As Exception MyRepository.WriteToDiagosticsLog(ex, SynthesisAPI.XFRACASDiagnosticsEntryType.Error, "Reading Entities") End Try End If