Re: Convertir des devises par Internet

Posté par gidebo le 22/3/2006 16:13:13

Pour ceux qui cherchent comment réaliser ces conversions via internet, voici une astuce (testée et fonctionnelle) donnée par Peter en 2003 :

Tout d'abord, il faut importer un Service Soap :
http://www.webservicex.net/CurrencyConvertor.asmx?WSDL

Et ensuite, il faut simplement remplacer la procédure ConversionRate() par celle-ci :

-----------------------------------------------------------

PROCEDURE ConversionRate(FromCurrency, ToCurrency)

//Created by WD - not working
//Soap.XMLParam[1]=FromCurrency
//Soap.XMLParam[2]=ToCurrency

SOAP.Name[1]="FromCurrency"
SOAP.Type[1]=SOAPFloatType
SOAP.Value[1]=FromCurrency

SOAP.Name[2]="ToCurrency"
SOAP.Type[2]=SOAPFloatType
SOAP.Value[2]=ToCurrency
//

bRes is boolean
bRes=SOAPRun("http://www.webservicex.net/CurrencyConvertor.asmx",
"ConversionRate", "http://www.webserviceX.NET/",
"http://www.webserviceX.NET/ConversionRate")

IF NOT bRes THEN
IF SOAPError(SOAPErrMessage)~="" THEN
Error(ErrorInfo())
ELSE
Error(SOAPError(SOAPErrMessage))
END
END

RESULT SOAPGetResult(SOAPResult)

-----------------------------------------------------------

Le résultat est le taux de conversion d'une monnaie à l'autre.

Encore merci à Peter et à Totof pour leurs contributions.

Bye