Comunicação com Microterminal TECSYM TS3000 TCP/IP

[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.

[Itamar M. Lins Jr.]

Ola!
Cadê o manual desse equipamento ?

Saudações,
Itamar M. Lins Jr.

[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

[dbsh]

vai usar protocolo STX ou VT100?
tenho em Visual Studio 2010, se servir como exemplo posso te mandar

[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" )