PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - Webservice Verifica Conexao do Servidor
WX - Webservice Verifica Conexao do Servidor
Iniciado por adrianoboller, mai., 04 2015 4:47 PM - 4 respostas
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 04 2015 - 4:47 PM
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)

//Data e Hora do Servidor
IF OkConn = True
//Ex.: 20150304154034447
ok is boolean = HExecuteSQLQuery(dsQryDataHora, ConnNativa, hQueryWithoutCorrection,"Select CURRENT_TIMESTAMP as datahoraatual")
IF ok = True THEN
FOR EACH dsQryDataHora
DataHoraServidor = dsQryDataHora.datahoraatual
END
END
//Trace(DataHoraServidor)
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)
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 04 2015 - 4:47 PM
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)
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 04 2015 - 4:48 PM
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)
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 04 2015 - 4:48 PM
Procedure ws_a_log(Token,Aplicativo,Metodo)

ok is boolean = False

dsQryDataHora is Data Source

dsQryLog is Data Source

DataHoraServidor is string = ""

//Ex.: 20150304154034447
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)
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em maio, 04 2015 - 4:49 PM
:merci: