1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| sReq_proxy est une chaîne = ""
sdSres_proxy est une Source de Données
sAdresse est une chaîne = ""
sReq_proxy = "SELECT Port, Adresse, Utilisateur, motDePasse FROM table WHERE Nom Like 'PROXY%'"
SI PAS HExécuteRequêteSQL(sdSres_proxy,MySQLConnect,hRequêteSansCorrection,sReq_proxy) ALORS
RENVOYER ErreurInfo()
FIN
HLitPremier(sdSres_proxy,hSansRafraîchir)
SI PAS HTrouve(sdSres_proxy) ALORS
HFerme(sdSres_proxy)
SINON
sAdresse = sdSres_proxy.Adresse
Proxy(sAdresse,sdSres_proxy.Port,sdSres_proxy.Utilisateur,sdSres_proxy.motDePasse)
SI PAS HTTPRequête("www.google.com") ALORS
RENVOYER ErreurInfo()
FIN
SI SocketConnecte("TEST", sdSres_proxy.Port, sAdresse) = Faux ALORS
RENVOYER "Erreur de connexion avec la Socket " + ErreurInfo(errComplet)
SINON
SocketFerme("TEST")
FIN
HFerme(sdSres_proxy)
///////////////////////
FIN
sTestHttp est une chaîne = ""
SI HTTPRequête(srcServeur.Site,"LOGtimum","",MonXML,"POST") ALORS
sTestHttp = HTTPDonneRésultat(httpEntête)+RC+HTTPDonneRésultat(httpRésultat)
SINON
sTestHttp = ErreurInfo()
FIN
// Transmission
SI SOAPExécuteXML(srcServeur.Site,MonXML) = Faux ALORS
sErrSoap est une chaîne = ErreurInfo(SOAPErrDétail)
RENVOYER "Erreur sur l'execution de la requête SOAP: "+RC+sErrSoap+RC+ErreurInfo()+RC+"Retour Http: "+sTestHttp
FIN
ReponseFedex = SOAPDonneRésultat(SOAPRésultatXML)
SI ReponseFedex = "" ALORS
SOAPDonneRésultat(SOAPRésultatHTTP)
FIN |
Partager