http://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/756-comunicando-com-servidor-tarefas-via-socket-tcp-muito/read.awp
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
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)
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)
