FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
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
Connectez-vous…
adrianoboller
#1
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
______________________________________________
Signaler
0
0
adrianoboller
#2
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
______________________________________________
Signaler
0
0
ANGELOREIS
#3
Membre enregistré
44 messages
Popularité : +7 (7 votes)
Posté le 20 juin 2016 - 22:35
Me está sendo útil!
Obrigado!
--
Analista de Sistemas Jr
Assessor de Comunicação
Fotografo nas horas Vagas
Pai da Alícia e Marido da Andréa <3
Signaler
0
0
BOLLER ADRIANO
#4
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 28 juin 2016 - 00:05
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Signaler
0
0
→ Revenir à WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte