PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - Se comunicando com um Servidor de Tarefas via SOCKET TCP/IP, muito simples, cheguei a duvidar que era só isso...
WX - Se comunicando com um Servidor de Tarefas via SOCKET TCP/IP, muito simples, cheguei a duvidar que era só isso...
Débuté par adrianoboller, 22 oct. 2015 15:16 - 3 réponses
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 22 octobre 2015 - 15:16
Prezados

Hoje vou passart um exemplo de comunicação com um Servidor de Tarefas via SOCKET TCP/IP, é muito simples, cheguei a duvidar que era só isso... rsss....

Detalhe importante:
SocketNoEndTag = use esse parametro quando o servidor não for também desenvolvido com Windev, ou de terceiro.
Ou
SocketEndTag em caso de ser feito com o Windev

//Criando a conexao
Retorno is string
IF SocketConnect("SERVER",4900,"192.168.1.100",5000) = False
Error("Erro de Conexão com a SERVER: " + ErrorInfo(errMessage))
ELSE
IF SocketChangeTransmissionMode("SERVER",SocketNoEndTag) THEN
//Info("Socket conectou!")
LOOP
Retorno = SocketRead("SERVER", True)
IF Retorno <> "" THEN
fSaveText("c:\SERVER.TXT",Retorno)
BREAK
END
END
END
END


Outro exemplo enviando comandos e pegando o retorno:

//Criando a conexao
OK is boolean
Retorno is string
IF SocketConnect("SERVER",4900,"192.168.1.100",5000) = False
Error("Erro de Conexão com a SERVER: " + ErrorInfo(errMessage))
ELSE
IF SocketChangeTransmissionMode("SERVER",SocketNoEndTag) THEN
//Info("Socket conectou!")
OK = SocketWrite("SERVER","user=TESTE"+CRLF) // passei que sou o user teste
OK = SocketWrite("SERVER","aut=senha"+CRLF) // passei a autenticacao
LOOP (10) // <--------------------------- tempo que vai ouvir o que o servidor tem a dizer
Retorno += SocketRead("SERVER", True) // o que o servidor me disse
END
END
END
fSaveText("c:\NAGYRO.TXT",Retorno)


Ou seja, incrivelmente fácil assim!

--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
______________________________________________
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 23 octobre 2015 - 14:51
Prezados,

Com esse código é possivel integrar com centrais telefonicas TCP/IP e identificar o numero pelo BINA da Central exemplo Panasonic.
Mas a finalidade é muito grande a comunicação com socket ai é só ter criatividade e desenvolver as suas soluções.
Vou disponibilizar um exemplo mais detalhado em breve.

Forte abraço e sucesso nos desenvolvimentos com Wx.

--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
______________________________________________
Membre enregistré
44 messages
Popularité : +7 (7 votes)
Posté le 20 juin 2016 - 22:35
Me está sendo útil! :D
Obrigado!

--
Analista de Sistemas Jr
Assessor de Comunicação
Fotografo nas horas Vagas
Pai da Alícia e Marido da Andréa <3
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 28 juin 2016 - 00:05
:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/