Repository.XFRACAS.ImportXFRACASXML: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 66: Line 66:


  '{{APIComment|Serialize the xmlObject into the byteArray.}}
  '{{APIComment|Serialize the xmlObject into the byteArray.}}
        Dim SerializeSuccess As Boolean
  {{APIPrefix|Dim SerializeSuccess {{APIPrefix|As Boolean}}
         SerializeSuccess = MyRepository.SerializeXMLObjectToByteArray(byteArray, xmlObject)
         SerializeSuccess = MyRepository.SerializeXMLObjectToByteArray(byteArray, xmlObject)
  '{{APIComment|Import the XML byte array into the entity desired.  In this example, we assume the XML object type describes an Incident.}}
  '{{APIComment|Import the XML byte array into the entity desired.  In this example, we assume the XML object type describes an Incident.}}
        Dim ImportXMLSystemID As Integer
  {{APIPrefix|Dim}} ImportXMLSystemID {{APIPrefix|As Integer}}
        ImportXMLSystemID = MyRepository.[[Repository.ImportXFRACASXML|ImportXFRACASXML]](DesiredEntityID, XFRACASImportType.Incident, byteArray, "XMLFileTitle", "XMLFileDescription")
  ImportXMLSystemID = MyRepository.[[Repository.ImportXFRACASXML|ImportXFRACASXML]](DesiredEntityID, XFRACASImportType.Incident, byteArray, "XMLFileTitle", "XMLFileDescription")





Revision as of 18:31, 18 October 2013


Uploads an import byte array for processing and returns the system ID

Method Syntax

Public Function ImportXFRACASXML( ByVal entityID As Integer , ByVal ImportType As XFRACASImportType, ByVal byteData As Byte() , ByVal fileTitle As String , ByVal fileDescription As String ) As Integer
Uploads an import file bytestream for processing and returns the system ID of the uploaded

Parameters

entityID The ID of the entity to import into.

ImportType The type of XFRACAS Import to utilize.

byteData The byte array of the XML to import.

fileTitle The file title of the XML file byte array to import.

fileDescription A description of the XML to import.

Usage Example

' Declare a new repository connection class. 
Private WithEvents MyRepository As New Repository
' Connect to the desired Synthesis repository. 
DimSuccessAs Boolean=False
Success = MyRepository.ConnectToSQLRepository("SQLServerPath", "SQLDatabaseName")
' Get the list of XFRACAS Entities in the current project in the connected repository. 
Dim ListOfXFRACASEntities() As NameIdPair
ListOfXFRACASEntities = MyRepository.GetAllXFRACASEntities()
' Search the Entities for the desired Entity name, to find the Entity ID 
Dim DesiredEntityID As Integer
       For Each Entity As NameIdPair In ListOfXFRACASEntities()
           If Entity.Name = "DesiredEntityName"
              DesiredEntityID = Entity.ID
              Exit For
           End If
       Next
' Define an serializable XML Object. 
Dim xmlObject As Object = Nothing
'{{APIComment|populate the xmlObject with values to import
' Define the byte array. 
       Dim byteArray As Byte() = Nothing
' Serialize the xmlObject into the byteArray. 
 {{APIPrefix|Dim SerializeSuccess As Boolean
       SerializeSuccess = MyRepository.SerializeXMLObjectToByteArray(byteArray, xmlObject)
' Import the XML byte array into the entity desired.  In this example, we assume the XML object type describes an Incident. 
 Dim ImportXMLSystemID As Integer
 ImportXMLSystemID = MyRepository.ImportXFRACASXML(DesiredEntityID, XFRACASImportType.Incident, byteArray, "XMLFileTitle", "XMLFileDescription")


Reformatted Usage Example

Declare a new repository connection class.

       Private WithEvents MyRepository As New Repository

Connect to the desired Synthesis repository.

       Dim Success As Boolean = False
       Success = MyRepository.ConnectToSQLRepository("SQLServerPath", "SQLDatabaseName")

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

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

Search the Entities for the desired Entity name, to find the Entity ID

       Dim DesiredEntityID As Integer
       For Each Entity As NameIdPair In ListOfXFRACASEntities()
           If Entity.Name = "DesiredEntityName"
              DesiredEntityID = Entity.ID
              Exit For
           End If
       Next

Define an serializable XML Object.

       Dim xmlObject As Object = Nothing
       'populate the xmlObject with values to import

Define the byte array.

       Dim byteArray As Byte() = Nothing

Serialize the xmlObject into the byteArray.

       Dim SerializeSuccess As Boolean
       SerializeSuccess = MyRepository.SerializeXMLObjectToByteArray(byteArray, xmlObject)

Import the XML byte array into the entity desired. In this example, we assume the XML object type describes an Incident.

       Dim ImportXMLSystemID As Integer
       ImportXMLSystemID = MyRepository.ImportXFRACASXML(DesiredEntityID, XFRACASImportType.Incident, byteArray, "XMLFileTitle", "XMLFileDescription")