Comunicacao via tcp/ip

[cezarvm]

Bom dia, tenho que fazer uma comunicacao com um programa em delphi residente no servidor windows, como faco para trocar informacao via tcp/ip? preciso e alguma biblioteca pra fazer a conexao?


Cezar Machado.

[anacatacombs]

Você usar Harbour ou xHarbour?

[cezarvm]

É xharbour 1.0.0

[cezarvm]

Puxa..., Será que não é possivel fazer a comunicação...?

[Itamar M. Lins Jr.]

Usando o [x]Harbour é possível fazer programas usando protocolo TCP/IP.
Procure nas pastas de exemplos do Harbour ou xHarbour.
Veja as funções INET* ou hb_socket*

Saudações,
Itamar M. Lins Jr.

[frazato]

viewtopic.php?f=43&t=7934&p=44274&hilit=gradual#p44274

Frazato

[cezarvm]

Itamar, Frazato , obrigado pela ajuda, agora acho que ja me viro por aqui mesmo, desculpe a pressão...


Abraços
cezar Machado.

[cezarvm]

Gente resolvido, obrigado pela colaboração, as vezes a gente não sabe por onde começar e ja acha dificil...

valeu...


Abraços
Cezar Machado.

[gvc]

Vc poderia postar um exemplo da solução encontrada? Vc fez sem usar biblioteca externa?

[cezarvm]

Bem, usei o exemplo que esta no help do xharbour, na função inetsend() que segue...

Código: Selecionar todos

// The example outlines a simple internet communication with a HTTP server
// The HTTP request is sent with INetSend(), and the server response is
// collected with INetRecv().

      PROCEDURE Main
      LOCAL pSocket, cBuffer, nBytes, cRequest, cResponse

      CLS

      // initialize sockets system and connect to server
      INetInit()
      pSocket := INetConnect( "www.xharbour.com", 80 ) // [color=#FF4040]no meu caso usei a função "INetConnectip", o resto fui adaptando conforme a necessidade.[/color]

      IF INetErrorCode( pSocket ) <> 0
         ? "Socket error:", INetErrorDesc( pSocket )
         INetCleanUp()
         QUIT
      ENDIF

      // send HTTP request to server
      cRequest := "GET / HTTP/1.1"                + INetCRLF() + ;
                  "Host: www.xharbour.com"        + INetCRLF() + ;
                  "User-Agent: HTTP-Test-Program" + INetCRLF() + ;
                   INetCRLF()

      nBytes   := INetSend( pSocket, cRequest )
      cResponse:= ""

      // get HTTP response from server
      DO WHILE nBytes > 0
         cBuffer   := Space( 4096 )
         nBytes    := INetRecv( pSocket, @cBuffer )
         cResponse += Left( cBuffer, nBytes )
      ENDDO

      // disconnect and cleanup memory
      INetClose( pSocket )
      INetCleanUp()

      // save response
      Memowrit( "xharbour.txt", cResponse )
      ? "Data written to file: xHarbour.txt"
   RETURN

[gvc]

Obrigado por compartilhar a informação. Boa sorte.

:-Y :)Pos