Repository.XFRACAS.WriteMessageToDiagnosticsLog: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
Line 19: Line 19:
  '{{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)
     {{APIPrefix|Try}}
     {{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]]()
Line 26: Line 27:
         '{{APIComment|Write error message to diagnostics log}}
         '{{APIComment|Write error message to diagnostics log}}
     {{APIPrefix|Catch}} ex {{APIPrefix|As}} Exception
     {{APIPrefix|Catch}} ex {{APIPrefix|As}} Exception
         MyRepository.[[Repository.WriteToDiagnosticsLog(string, XFRACASDiagnosticEntryType)|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|Else}}
  {{APIPrefix|Else}}
         '{{APIComment|Write warning message to diagnostics log}}
         '{{APIComment|Write warning message to diagnostics log}}
         MyRepository.[[Repository.WriteToDiagnosticsLog(string, XFRACASDiagnosticEntryType)|WriteToDiagosticsLog]]("Unable to connect to repository", SynthesisAPI.[[XFRACASDiagnosticsEntryType Enumeration|XFRACASDiagnosticsEntryType]].Warning)
         MyRepository.WriteToDiagosticsLog("Unable to connect to repository", SynthesisAPI.[[XFRACASDiagnosticsEntryType Enumeration|XFRACASDiagnosticsEntryType]].Warning)
  {{APIPrefix|End If}}
  {{APIPrefix|End If}}

Revision as of 21:11, 28 April 2014



Writes a message to the diagnostics log

Syntax

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
Else
        ' Write warning message to diagnostics log 
        MyRepository.WriteToDiagosticsLog("Unable to connect to repository", SynthesisAPI.XFRACASDiagnosticsEntryType.Warning)
End If