Repository.WriteToDiagnosticsLog

This subroutine adds diagnostic information into the diagnostics log. There are two methods that can be used. Both are shown.

This method is an overloaded method which means the same signature will accept different sets of arguments. Both available methods are shown separately.

First Available Method

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

Second Available Method

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. 
Dim Success As Boolean = MyRepository.ConnectToRepository("RepositoryFileNamePath")
 ' Get the list of XFRACAS Entities in the current project in the connected repository. 
  If success Then
           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

Reformatted Usage Example

Declare a new repository connection class.

       Private WithEvents MyRepository As New Repository

Connect to the Synthesis repository.

       Dim Success As Boolean = False
       Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")

Get the list of XFRACAS Entities in the current project in the connected repository.

       Dim ListOfXFRACASEntities() As NameIdPair
       ListOfXFRACASEntities = MyRepository.GetAllXFRACASEntities()

Import the XML file into the entity desired. In this example, the first entity is used.

       Dim ImportXMLSystemID As Integer
       ImportXMLSystemID = MyRepository.ImportXFRACASXMLFile(ListOfXFRACASEntities(0).ID, XFRACASImportType.Incident, "XMLFileName", "XMLFileDescription")

Process the imported file.

       MyRepository.ProcessXfracasImports()

Create place to see where code is breaking instead of writing to your own logfile

       MyRepository.WriteToDiagosticsLog(ByValDiagnostics Message AsString, entryType ASXFRACASDiagnosticsEntryType.Information)