FiveTech Software tech support forums

Posted: **Fri Nov 26, 2010 8: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/webservic ... r.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

Posted: **Sun Nov 28, 2010 4:47 pm**

Ahi tienes un ejemplo que funciona con web services

http://forums.fivetechsupport.com/viewt ... =6&t=20283

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

Posted: **Fri Mar 04, 2011 4: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 _ 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

Posted: **Fri Mar 04, 2011 5:05 pm**

Hola,
Yo utilizo esto:

Code: Select all

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

FiveTech Software tech support forums

Web Service + xHarbour

Web Service + xHarbour

Re: Web Service + xHarbour

Re: Web Service + xHarbour

Re: Web Service + xHarbour

Re: Web Service + xHarbour