For learning purposes, I got my first (very simple) web service running and producing output (using the task pane test mode). Now, how do I go a little farther? For example, how do I use it? How do I pass it a parameter (zip code in this case)? Right now, this is the simple code that I have:
DEFINE CLASS ShowBooks AS Session OLEPUBLIC
PROCEDURE BooksInZip AS String
LOCAL loXMLAdapter AS XMLAdapter
LOCAL lcXMLBooks AS String
loXMLAdapter = CREATEOBJECT("XMLAdapter")
USE c:\clients\dda\pinpoint\source\ZipScope
SELECT * ;
FROM ZipScope ;
WHERE zip = "30346" ;
INTO CURSOR curBooks
loXMLAdapter.AddTableSchema("curBooks")
loXMLAdapter.UTF8Encoded = .T.
loXMLAdapter.ToXML("lcXMLBooks")
CLOSE DATABASES ALL
RETURN lcXMLBooks
ENDPROC
ENDDEFINE
Thank You
Larry Collins
TheProgrammerGuy.com