by msiggi
13. March 2007 21:41
Der Aufruf eines XML-Webservices mit dem guten alten VBS. Veranlassung war die Visualisierung von entsprechenden Daten in SIMATIC WinCC:
Function Text_Trigger(ByVal Item)
Dim webservice
Set webservice = CreateObject("MSSOAP.SOAPCLIENT")
webservice.mssoapinit("http://localhost/Webservicetest1/Service.asmx?WSDL")
Item.Text = webservice.HelloWorld()
End Function
und hier der passende Webservice:
using System;
...
[WebMethod]
public string HelloWorld() {
return "Hello Worlds";
}
Im WinCC-Graphics-Designer wurde die VBS-Aktion an die Eigenschaft "Text" einer Textbox gehangen!