Abaixo vou colocar os passos que segui para funcionar ..no emulador, e no celular consultando postgres no servidor.
1. Fiz duas configuracoes, uma para emulador e outra para celular
Essa funciona no celular
no servidor tem de colocar o endereco http://....// que foi criado pelo webdev Application Server
http://5a8cwkszen isso ele fornece na instalacao do application server
o ip, tive de usar o ip interno do servidor
No emulador
o Servidor coloquei localhost
e o ip coloquei o ip do servidor
Aqui é a conexao
uso sqlconnectWs para conectar
Abaixo o emulador funcionando
=============================
Uma coisa muito importante é o passo do instalador, vou passar o que me lembro, pois fiz tantas coisas, e posso ter me passado em algo.
no diretorio C:\WinDev 19\Install\WDRServer
tem o programa
WX190PACKRSRV.exe
que tem de ser executado dentro do servidor.
Nesse passo somente instalo o webservice
aqui e
============
outra coisa importante que fiz, foi alterar no postgres no servidor duas configuracoes
No Postgressql.conf, que se encontra em
c:\postgres\versao\data
altere o seguinte:
listen_addresses = '*'
No pg_hba.conf
altere o seguinte:
acrescente :
host all all 0.0.0.0/0 trust
tatno no ipv4 como ipv6
EmailSetTimeOut(30)
//http://doc.windev.com/?3032001&lang=en-US&productversion=xxA190056s
//Altera o valor do "time-out" para a conexão com os servidores SMTP, POP3 e IMAP mensagens.
//O valor do "time-out" é definido como 10 minutos por padrão. Este valor é devolvido pelo
// EmailGetTimeOut.
//Lembrete : O tempo limite é a quantidade máxima de tempo permitido enquanto espera por uma resposta
//do servidor de mensagens. Se o servidor não responder dentro desse tempo limite, a conexão falha.
HourGlass()
//http://doc.windev.com/?3071011&lang=en-US&productversion=xxA190056s
//Transforma o cursor do mouse em uma ampulheta (e vice-versa).
n_email_sessao is boolean
SWITCH COMBO_tls
CASE 1
n_email_sessao=EmailStartSMTPSession(EDT_Usuario,EDT_senha,EDT_servidor_smtp,EDT_porta,False,emailOptionSecuredTLS)
CASE 2
n_email_sessao=EmailStartSMTPSession(EDT_Usuario,EDT_senha,EDT_servidor_smtp,EDT_porta)
END
IF n_email_sessao=True THEN
_minha_mensagem is Email // est un Email
_minha_mensagem..Expediteur = EDT_Usuario
Add(_minha_mensagem..Destinataire, EDT_destinatario) // Ajoute
IF EDT_anexo <> "" AND Length(EDT_anexo) > 3 THEN
EmailLoadAttachment(_minha_mensagem,EDT_anexo)
END
// Manda a mensagem
IF EmailSendMessage(EDT_Usuario, _minha_mensagem) = False
ToastDisplay(Error(),toastLong,vaMiddle,haCenter)
ELSE
ToastDisplay("Email enviado com sucesso!",toastLong,vaMiddle,haCenter)
END
EmailCloseSession(EDT_Usuario)
// Fecha a Sessão
ELSE
ToastDisplay(Error("Não é possível estabelecer conexão // ", ErrorInfo(), ...
"Em caso de time-out, verificar os parâmetros da "+ ...
"""Firewall"" na porta usada (587)"),toastLong,vaMiddle,haCenter)
END
HourGlass(False)
-------------------Fonte-----------------------------------------------------------------------------
------------------- GMAIL NAO FUNCIONAVA ---------------------------------------------
Quando fui fazer teste meu gmail, nao funcionava, e foi descobrir, que na minha
configuração do Gmail, estava para nao aceitar servico de fora, ai desabilitei isso.
Somente descobriu isso, pois testei o gmail, de outro e funcionou.
------------------------------------------------------------------------------------------------------
SWITCH DateToDay(EDT_data)
CASE 1
EDT_dia_semana="SEGUNDA"
CASE 2
EDT_dia_semana="TERCA"
CASE 3
EDT_dia_semana="QUARTA"
CASE 4
EDT_dia_semana="QUINTA"
CASE 5
EDT_dia_semana="SEXTA"
CASE 6
EDT_dia_semana="SABADO"
CASE 7
EDT_dia_semana="DOCUMENTO"
OTHER CASE
