FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Web Service + xHarbour
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Web Service + xHarbour
Posted: Fri Nov 26, 2010 08:40 PM

Pessoal,

alguem sabe como fazer esta conexĂŁo em xharbour+fwh?

Exemplo de ConexĂŁo:

Linguagem PHP + Class nusoap

<?php

include_once('lib/nusoap.php');

// link do web service
$wsdl = 'http://www.phdrisk.com/padrao/webservice/server.php?wsdl';

$client = new nusoapclient($wsdl,true);
$registro = array();
$registro[] = &quot;99999&quot;; // login
$registro[] = &quot;99999&quot;; //senha
$registro[] = &quot;&lt;analisePHDRISK&gt;…&quot;; //string

print_r($client-&gt;call('analise',$registro));

?>

Link Web Service

https://www.phdrisk.com/padrao/webservi ... r.php?wsdl

Fluxo

      |         analise(login,senha,string)      |

USUARIO | ----------------------------------------- | PHDRISK
| stringRetorno |
| ----------------------------------------- |

Procedimento
Chamar a função analise passando por parâmetro o login, a senha, e o XML de envio, como retorno será enviado XML de retorno.

Login = Código usuário
Senha = senha do usuário
String = XML de consulta
StringRetorno = XML de resposta

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 336
Joined: Wed May 16, 2007 09:40 PM
Re: Web Service + xHarbour
Posted: Sun Nov 28, 2010 04:47 PM

Ahi tienes un ejemplo que funciona con web services

viewtopic.php?f=6t=20283

&

Fivewin-Xharbour 24.09, Iquique, Chile
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: Web Service + xHarbour
Posted: Mon Nov 29, 2010 10:09 AM

elmoiquique,

muito obrigado por ter respondido, a minha dúvida agora é como chamar a função:

analise(login,senha,string)

no WEB SITE?

Como posso fazer isso seguindo o seu exemplo?

Muito obrigado

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 336
Joined: Wed May 16, 2007 09:40 PM
Re: Web Service + xHarbour
Posted: Fri Mar 04, 2011 04:49 PM

Una Consulta sobre el estado de un Servidor, como puedo saber si un servidor esta activo, caido, o simplemente no esta..

Yo lo uso asi

ts_servidor:='http://sve-piloto.zofri.cl/sveConsultasWSN?WSDL

If .not. ohttp:open("POST",ts_servidor,.f.)
msginfo('Fuera de linea")
return .f.
endif

en ambos casos este activo, fuera de linea, caido o apagado, nunca lo valida simplemente dice que esta activo,

Lo que necesito es saber si esta o no esta

gracias

Fivewin-Xharbour 24.09, Iquique, Chile
Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: Web Service + xHarbour
Posted: Fri Mar 04, 2011 05:05 PM
Hola,
Yo utilizo esto:
Code (fw): Select all Collapse
Function ExistServer(cUrl)
Local oTUrl,aIp,lServer:= .F.
// Comprobem l'adre‡a
oTUrl:= TUrl():new( cUrl)

INetInit()
aIP := INetGetHosts( oTUrl:cServer )
If len(aIP) > 0
    lServer:= .T.
EndIf

INetCleanUp()
Return lServer


Espero que te sirva.
Pere

Continue the discussion