Ich hab mich auf die suche gemacht nach einem echt einfachen Webservice um mal zu test wie man in Realbasic Webservices anspricht.
Hier ein kleiner beispielcode:
Dim sm as SOAPMethod Dim sr as SoapResultProgressWheel1.Visible = true sm = New SOAPMethod sm.url = "http://webservices.iter.dk/calculator.asmx?WSDL" sm.methodNamespace = "http://www.iter.dk/webservices/calculator.asmx" sm.action ="http://www.iter.dk/webservices/calculator.asmx/Add" sm.parameter("intA") = EditField2.Text sm.parameter("intB") = EditField1.Text sr= sm.invoke("Add") if sr <> Nil then StaticText1.Text = "=" + sr.Result("AddResult") ProgressWheel1.Visible = false end if Exception err ProgressWheel1.Visible = false MsgBox "Exception: " + err.message
Mehr über den einfachen Webservice gibts hier:
http://webservices.iter.dk/calculator.asmx?op=Add
