|
WX - Webservice Verifica Conexao do Servidor |
Débuté par adrianoboller, 04 mai 2015 16:47 - 4 réponses |
| |
| | | |
|
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 04 mai 2015 - 16:47 |
Procedure ws_verifica_conexao()
x is int = 0
Resultado is string = ""
arrResultado is array of string
ArrayDeleteAll(arrResultado)
dsQryDataHora is Data Source
DataHoraServidor is string = ""
OkConn is boolean = False
OkConn = HOpenConnection(ConnNativa)
IF OkConn = True
ok is boolean = HExecuteSQLQuery(dsQryDataHora, ConnNativa, hQueryWithoutCorrection,"Select CURRENT_TIMESTAMP as datahoraatual") IF ok = True THEN FOR EACH dsQryDataHora DataHoraServidor = dsQryDataHora.datahoraatual END END
END
IF OkConn = True THEN Resultado = "<Xml><Retorno>"
Resultado += "<AbriuConnexao>" + OkConn + "</AbriuConnexao>"
Resultado += ws_conexao_sucesso("Tabelas")
Resultado += "<SeuIP>" + NetIPAddress() + "</SeuIP>"
Resultado += "<ListaIP>" + NetListIPAddress() + "</ListaIP>"
Resultado += "<ListaIP>" + WebserviceClientIPAddress() + "</ListaIP>"
Resultado += "<FechouConnexao>" + OkConn + "</FechouConnexao>"
Resultado += "</Retorno></Xml>" ELSE Resultado = ws_conexao_falha("TesteConexao") END
OkConn = HCloseConnection(ConnNativa)
ArrayAdd(arrResultado,Resultado)
ws_a_log("29121974","MOBILE",Resultado)
RESULT (arrResultado) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 04 mai 2015 - 16:47 |
Procedure ws_conexao_sucesso(Tabela)
Servidor is string = ConnNativa..Server
Resultado is string = "" Resultado += "<"+ NoSpace(Tabela) +" id="+Charact(34)+1+Charact(34)+">" Resultado += "<OK>CONEXAO COM SUCESSO AO BANCO!!!!!!</OK>" Resultado += "<Banco>"+Servidor+"</Banco>" Resultado += "</"+ NoSpace(Tabela) +">" Resultado += "<TOTAL>1</TOTAL>"
RESULT(Resultado) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 04 mai 2015 - 16:48 |
Procedure ws_conexao_falha(Tabela)
Servidor is string = ConnNativa..Server
Resultado is string = "" Resultado = "<Xml><Retorno>" Resultado += "<"+ NoSpace(Tabela) +" id="+Charact(34)+0+Charact(34)+">" Resultado += "<Erro>ERRO DE CONEXAO COM O BANCO: "+ HErrorInfo() +" - "+ ErrorInfo() +"</Erro>" Resultado += "<Banco>"+Servidor+"</Banco>" Resultado += "</"+ NoSpace(Tabela) +">" Resultado += "</Retorno></Xml>"
RESULT(Resultado) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 04 mai 2015 - 16:48 |
Procedure ws_a_log(Token,Aplicativo,Metodo)
ok is boolean = False
dsQryDataHora is Data Source
dsQryLog is Data Source
DataHoraServidor is string = ""
ok = HExecuteSQLQuery(dsQryDataHora, ConnNativa, hQueryWithoutCorrection,"Select CURRENT_TIMESTAMP as datahoraatual") IF ok = True THEN FOR EACH dsQryDataHora DataHoraServidor = dsQryDataHora.datahoraatual END END
SqlExecutar is string = [ INSERT INTO NG0013_Webservice_Log ( DataHora, Token, Aplicativo, Metodo ) VALUES ( @DataHora@, '@Token@', '@Aplicativo@', '@Metodo@' ) ]
SqlExecutar = Replace(SqlExecutar,"@DataHora@",DataHoraServidor) SqlExecutar = Replace(SqlExecutar,"@Token@",Token) SqlExecutar = Replace(SqlExecutar,"@Aplicativo@",Aplicativo) SqlExecutar = Replace(SqlExecutar,"@Metodo@",Metodo)
ok = HExecuteSQLQuery(dsQryLog, ConnNativa, hQueryWithoutCorrection,SqlExecutar)
RESULT (ok) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 3 657 messages Popularité : +175 (223 votes) |
|
Posté le 04 mai 2015 - 16:49 |
| |
| |
| | | |
|
| | | | |
| | |
|