Client/Server applikation udveksling af data

Du kan jo sende hvad du vil.

<request>
<function>TOPLIST</function>
<parameters>
<from>1</from>
<to>2</to>
</parameters>
</request>

Tak for svar Arne,

Det var også sådan jeg har tænkt den del af det, men det er mere fortolkningen af XML strengen, hvor værdierne efterfølgende skal bruges i en SQL query.

Jeg regner med at server applikationen skal håndtere op til 150 forskellige forespørgelser.

Så jeg kunne godt bruge noget hjælp til en rutine, der fortolker XML strengen.

Vh.
Thomas

Med et format som ovenfor saa hiver du foerst function og parameters noderne ud, saa laver du en switch paa function og traekker de specifikke data ud af parameters.

Jeg kan godt lave et lille kode eksempel.

Hvis du har mulighed og tid, så kunne det være rart med et eksempel :)

Imports System
Imports System.Xml

Namespace E
    Public Class Program
        Public Shared Sub TopList(fromp As Integer, top As Integer)
            Console.WriteLine("TopList " & fromp & " " & top)
        End Sub
        Public Shared Sub Echo(val As String)
            Console.WriteLine("Echo " & val)
        End Sub
        Public Shared Sub Process(xml As String)
            Dim doc As New XmlDocument()
            doc.LoadXml(xml)
            Dim func As String = doc.SelectSingleNode("/request/function/text()").Value
            Dim n As XmlNode = doc.SelectSingleNode("/request/parameters")
            Select Case func
                Case "TOPLIST"
                    Dim fromp As Integer = Integer.Parse(n.SelectSingleNode("from/text()").Value)
                    Dim top As Integer = Integer.Parse(n.SelectSingleNode("to/text()").Value)
                    TopList(fromp, top)
                    Exit Select
                Case "ECHO"
                    Dim val As String = n.SelectSingleNode("val/text()").Value
                    Echo(val)
                    Exit Select
                Case Else
                    Throw New Exception("Unknown function")
            End Select
        End Sub
        Public Shared Sub Main(args As String())
            Dim s1 As String = "<request><function>TOPLIST</function><parameters><from>1</from><to>2</to></parameters></request>"
            Dim s2 As String = "<request><function>ECHO</function><parameters><val>ABC</val></parameters></request>"
            Process(s1)
            Process(s2)
            Console.ReadKey()
        End Sub
    End Class
End Namespace

Det var lige det jeg skulle bruge, tusind tak for hjælpen :)

Sender du et svar.

svar