Repository.XFRACAS.WriteMessageToDiagnosticsLog: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
Line 20: Line 20:
  {{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|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)
              MessageBox.Show(ListOfXFRACASEntities(i).Name)
         {{APIPrefix|Next}}
         {{APIPrefix|Next}}
    {{APIPrefix|Catch}}ex{{APIPrefix|As}}Exception
    {{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 Try}}
  {{APIPrefix|End If}}
  {{APIPrefix|End If}}

Revision as of 22:29, 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. 
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