Repository.XFRACAS.WriteMessageToDiagnosticsLog: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
Line 16: Line 16:
   
   
  {{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}}

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