Page 1 of 1

Web Service + xHarbour

PostPosted: Fri Nov 26, 2010 8:40 pm
by MGA
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[] = "99999"; // login
$registro[] = "99999"; //senha
$registro[] = "<analisePHDRISK>…"; //string

print_r($client->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

Re: Web Service + xHarbour

PostPosted: Sun Nov 28, 2010 4:47 pm
by elmoiquique
Ahi tienes un ejemplo que funciona con web services

viewtopic.php?f=6&t=20283

Re: Web Service + xHarbour

PostPosted: Mon Nov 29, 2010 10:09 am
by MGA
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

Re: Web Service + xHarbour

PostPosted: Fri Mar 04, 2011 4:49 pm
by elmoiquique
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

Re: Web Service + xHarbour

PostPosted: Fri Mar 04, 2011 5:05 pm
by pcordonet
Hola,
Yo utilizo esto:
Code: Select all  Expand view

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