>Hi there,
>
>I want to use a web-service (written in Delphi) which asks for a structure-type parameter in his methods:
>
> TSuchbegriffe = class(TRemotable)
> private
> fsuch_ejahr_bis: AnsiString;
> fsuch_verlag: AnsiString;
> fsuch_reihe: AnsiString;
> fsuch_wg: AnsiString;
> fsuch_ejahr_von: AnsiString;
> fsuch_isbn: AnsiString;
> fsuch_preis_bis: AnsiString;
> fsuch_preis_von: AnsiString;
> fsuch_wg_index: AnsiString;
> fsuch_schlagwort: AnsiString;
> fSuch_autor ,
> fSuch_stichwort: AnsiString;
>
>Can this be done with VFP (8) and how?
>
>Thanks in advance
>
>Thomas
Thomas,
You'd need WSDL to check what it expects. Calling looks like (and there are other ways):
local loResult
oWS = CREATEOBJECT("MSSOAP.SoapClient30")
oWS.MSSoapInit("http://locationHere?wsdl", "SomeWSPublicWebService", "SomeWSPublicWebServiceSoap")
Text to m.ParamObject textmerge noshow
<Value1><<m.luValue1>></Value1>
<Value2><<m.luValue2>></Value2>
<Value3><<m.luValue3>></Value3>
<Value4><<m.luValue4>></Value4>
<Value5><<m.luValue5>></Value5>
endtext
loResult = oWS.WsMethod(m.ParamObject)
For ix=0 to loResult.Length-1
? loResult.item(m.ix).nodeName,loResult.item(m.ix).nodeTypedValue
endfor
Cetin