Página 1 de 1
Comunicação com Microterminal TECSYM TS3000 TCP/IP
Enviado: 05 Abr 2011 23:31
por Uslei
Pessoal, me desculpa se estou fazendo uma pergunta fácil de mais. Mas, preciso fazer uma comunicação do sistema de automação da empresa onde trabalho com um Microterminal TECSYM TS3000 TCP/IP. Alguém sabe como este terminal funciona e poderia me dar uma dica. O sistema da empresa é desenvolvido em xharbour.
Abaixo está meu e-mail e msn que são os mesmos. Desde já obrigado.
Nota de Moderação:por
Toledo: Por favor, qualquer solução para este problema, postem aqui no tópico.
Veja as Regras do Fórum:
11 - Não é permitido postar o e-mail pessoal com o objetivo de receber ou oferecer qualquer auxílio que poderia ser feito pelo Fórum. O Fórum foi criado para intermediar a comunicação entre os participantes, não servir de mural de recados.
Re: Comunicação com Microterminal TECSYM TS3000 TCP/IP
Enviado: 07 Abr 2011 21:10
por Itamar M. Lins Jr.
Ola!
Cadê o manual desse equipamento ?
Saudações,
Itamar M. Lins Jr.
Re: Comunicação com Microterminal TECSYM TS3000 TCP/IP
Enviado: 11 Abr 2011 11:59
por sygecom
Terá que usar Socket, veja o exemplo abaixo do xHarbour:
Código: Selecionar todos
#define CRLF Chr(13)+Chr(10)
PROCEDURE Main
LOCAL cBuffer, cRequest, cResponse, nBytes, pSocket
// initialize sockets system and connect to server
INetInit()
pSocket := INetConnect( "www.xharbour.com", 80 )
IF INetErrorCode( pSocket ) <> 0
? "Socket error:", INetErrorDesc( pSocket )
INetCleanUp()
QUIT
ENDIF
// send HTTP request to server
cRequest := "GET / HTTP/1.1" + CRLF + ;
"Host: www.xharbour.com" + CRLF + ;
"User-Agent: HTTP-Test-Program" + CRLF + ;
CRLF
nBytes := INetSend( pSocket, cRequest )
cBuffer := Space(4096)
cResponse:= ""
// get HTTP response from server
DO WHILE ( nBytes > 0 )
nBytes := INetRecv( pSocket, @cBuffer )
cResponse += Left( cBuffer, nBytes )
cBuffer := Space(4096)
ENDDO
// disconnect and cleanup memory
INetClose( pSocket )
INetCleanUp()
// save response and display
Memowrit( "xharbour.txt", cResponse )
Memoedit( cResponse )
RETURN
Re: Comunicação com Microterminal TECSYM TS3000 TCP/IP
Enviado: 16 Abr 2011 01:52
por dbsh
vai usar protocolo STX ou VT100?
tenho em Visual Studio 2010, se servir como exemplo posso te mandar
Comunicação com Microterminal TECSYM TS3000 TCP/IP
Enviado: 10 Mai 2011 02:33
por dbsh
o exemplo que tenho e em vs2010
como faz parte do meu sistema de monitoramento e usa minha biblioteca "DLL" o desmembramento dara alguns erros se for compilar separadamente
se servir te mando para estudo.
faça listen no endereço 127.0.0.1, na porta 1001
recebe e transmite comandos por IP
EXEMPLO:
Código: Selecionar todos
//enviar codigo de controle
Send( Chr(27) + "[" + "CaracterControle" )
//limpar tela
Send( Chr(27) + "[" + "H" + Chr(27) + "[" +"J" )
//enviar caracter normal, e um send sem controle
Send( "texto" )
//posicionar em linha e coluna
Send( Chr(27) + "[" + StrZero(linha, 2) + ";" + StrZero(coluna, 2) + "H" )