Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Complex Data Type in Web-Service
Message
From
06/09/2005 07:25:00
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
General information
Forum:
Visual FoxPro
Category:
Web Services
Miscellaneous
Thread ID:
01046935
Message ID:
01046941
Views:
11
>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
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform