>-----Original Message-----
>From: ToninhoFWi [mailto:[email protected]] 
>Sent: Thursday, September 24, 2009 10:46 PM
>To: [email protected]
>Subject: [Harbour] Web Services in Harbour
>
>Hi ppl,
>
>How I do to access web services in Harbour please ?



Toninho, pls. test this code, it work for my :

// test Web Servicess
PROCEDURE Main()
LOCAL oSoapClient := CreateObject( "MSSOAP.SoapClient" )
Cls

? 'Test czy typ klienta jest dostępny :', ValType( oSoapClient)
oSoapClient:msSoapInit(  
'http://www.dataaccess.com/webservicesserver/textcasing.wso?WSDL')
? oSoapClient:InvertStringCase( "lower UPPER" )

InKey( 0)
RETURN
// end test

But I do not know how cam mad build server of webservices :(

Regards,
Marek Horodyski
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to