Hi marek
You have made an interesting question follow my info
i have not an harbour reply but somebody can help, translate
>But I do not know how cam mad build server of web services
Web Services can convert your application into a Web-application,
which can publish its function or message to the rest of the world.
basic Web Services platform is XML + HTTP.
SOAP (Simple Object Access Protocol) FOR applications exchange
information over HTTP.
UDDI (Universal Description, Discovery and Integration) a directory
for storing information about web services
WSDL (Web Services Description Language) XML-based language for
locating and describing Web services.
example we will use ASP.NET to create a simple Web Service that
converts the temperature from Fahrenheit to Celsius
<%@ WebService Language="VBScript" Class="TempConvert" %>
Imports System
Imports System.Web.Services
Public Class TempConvert :Inherits WebService
<WebMethod()> Public Function FahrenheitToCelsius
(ByVal Fahrenheit As String) As String
dim fahr
fahr=trim(replace(Fahrenheit,",","."))
if fahr="" or IsNumeric(fahr)=false then return "Error"
return ((((fahr) - 32) / 9) * 5)
end function
<WebMethod()> Public Function CelsiusToFahrenheit
(ByVal Celsius As String) As String
dim cel
cel=trim(replace(Celsius,",","."))
if cel="" or IsNumeric(cel)=false then return "Error"
return ((((cel) * 9) / 5) + 32)
end function
end class
For microsoft webservice are evolved in WCF
http://msdn.microsoft.com/en-us/library/ms731082.aspx
Simple Web Service using WCF
http://www.codeproject.com/KB/WCF/WCFWebService.aspx
2009/9/25 Horodyski Marek (PZUZ) <[email protected]>:
>>-----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
>
--
Massimo Belgrano
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
