OK så prøver jeg igen:
Jeg har en objekt News som indholder selvfølgelig et enkelt nyhed (news). Men der skal retuneres flere nyheder ved getLatestNews kald.
Eks. 1 : Viser getLatestNews som retunere et nyhed og der er ingen problemer.
Public Function getLatestNews() As News
Dim news1 As New News
news1.Header() = "TEST 1"
news1.Body() = "News text 1"
return news1
End Function
Eks.2: Metoden retunerer en liste af news.
Public Function getLatestNews() As ArrayList
Dim news1 As New News
Dim news2 As New News
Dim list As ArrayList
news1.Header() = "TEST 1"
news1.Body() = "News text 1"
news2.Header() = "TEST 2"
news2.Body() = "News text 2"
list.add(news1)
list.add(news2)
return list
End Function
Men der får jeg sådanne XML retuneret:
<?xml version="1.0" encoding="utf-8" ?>
- <ArrayOfAnyType xmlns:xsi="
http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="
http://www.w3.org/2001/XMLSchema" xmlns="
http://tempuri.org/DSB/Service1">- <anyType xsi:type="News">
<Header>TEST 1</Header>
<Body>WHat ever</Body>
</anyType>
- <anyType xsi:type="News">
<Header>TEST 1</Header>
<Body>WHat ever</Body>
</anyType>
- <anyType xsi:type="News">
<Header>TEST 1</Header>
<Body>WHat ever</Body>
</anyType>
</ArrayOfAnyType>
Der er noget galt der. Altså anyType elementer osv.. Ved ik hvordan jeg skal retunere en liste af objekter? Som vises såden:
<?xml version="1.0" encoding="utf-8" ?>
- <AllNews>
<News
<Header>TEST 1</Header>
<Body>WHat ever</Body>
</News>
- <News>
<Header>TEST 1</Header>
<Body>WHat ever</Body>
</News>
- <News>
<Header>TEST 1</Header>
<Body>WHat ever</Body>
</News>
</AllNews>