Hier jetzt der funktionierende Aufruf der CoCreate WebService Funktion "createItem" in Visual Baisc 2010 Express.
Public Function createItem() As String
Dim ExceptionMessage As String
Dim OSMServiceClient As New CoCreate.OSMServiceClient()
OSMServiceClient.ClientCredentials.UserName.UserName = Benutzername
OSMServiceClient.ClientCredentials.UserName.Password = Passwort
Dim CreateItemRequest As New CoCreate.CreateItemRequest()
Dim CreateItemResponse As New CoCreate.CreateItemResponse()
Dim Item As New CoCreate.Item
Dim ItemArray(0) As CoCreate.Item
Item.className = "STAMMDATEN"
Dim i As Integer = 0
Dim AnzahlAttribute As Integer = 1
Dim AttributTabelle(1, 1) As String
AttributTabelle(0, 0) = "NAME"
AttributTabelle(0, 1) = "123"
AttributTabelle(1, 0) = "BESCHREIBUNG"
AttributTabelle(1, 1) = "abc"
Dim Attribute_Array(AnzahlAttribute) As CoCreate.Attribute
Do While (i <= AnzahlAttribute)
Dim Attribute As New CoCreate.Attribute()
Attribute.name = AttributTabelle(i, 0)
Attribute.value = AttributTabelle(i, 1)
Attribute_Array(i) = Attribute
i = i + 1
Loop
Item.attributes = Attribute_Array
ItemArray(0) = Item
CreateItemRequest.items = ItemArray
Try
CreateItemResponse = OSMServiceClient.createItem(CreateItemRequest)
Return "createItem"
Catch ex As Exception
ExceptionMessage = (ex.Message)
Return ExceptionMessage
End Try
End Function
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP