PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → 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...
Iniciado por adrianoboller, out., 22 2015 3:16 PM - 3 respostas
#1
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em outubro, 22 2015 - 3:16 PM
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
______________________________________________
#2
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em outubro, 23 2015 - 2:51 PM
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
______________________________________________
#3
Membro registado
44 mensagems
Popularité : +7 (7 votes)
Publicado em junho, 20 2016 - 10:35 PM
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
#4
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 28 2016 - 12:05 AM
: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/
→ Voltar para WINDEV 25