如何在IBM i (OS/400)中使用RPG编写TCP/IP客户端

这个示例展示了如何在IBM i (OS/400)中使用RPG编写TCP/IP客户端，通过发送请求和接收响应来与远程服务器交互。

H dftactgrp(*no) actgrp('CLIENT')
     D clnsock         s                   like(sockaddr)
     D sock            s             10i 0
     D iaddr           s                   like(in_addr_t)
     D clientAddr      s                   like(sockaddr_in)
     D port            s             10i 0
     D serverName      s             64a   inz('www.ibm.com')
     D rcvbuf          s             10i 0
     D sndbuf          s             10i 0

     // Create TCP/IP socket
     C                   call 'socket'          //
     C                             clnsock          //
     C                             AF_INET          //
     C                             SOCK_STREAM      //
     C                             IPPROTO_TCP      //
     C                   eval      sock = clnsock   //

     // Get server IP address
     C                   call 'gethostbyname'    //
     C                             serverName       //
     C                             iaddr            //
     C                   if        iaddr = *null    //
     C                   return                     //
     C                   endif                      //

     // Prepare client address structure
     C                   eval      clientAddr.sin_family = AF_INET  //
     C                   move      inet_addr(iaddr) to clientAddr.sin_addr  //
     C                   eval      port = 80                       //
     C                   move      htons(port) to clientAddr.sin_port  //

     // Connect to server
     C                   call 'connect'         //
     C                             sock            //
     C                             clientAddr      //
     C                             %size(clientAddr) //
     C                   if        rcvbuf < 0      //
     C                   return                     //
     C                   endif                      //

     // Send request
     C                   call 'send'            //
     C                             sock            //
     C                             httprequest     //
     C                             %len(httprequest) //
     C                             0               //
     C                   eval      rcvbuf = 0       //
     C                   eval      sndbuf = %len(httprequest) //

     // Receive response
     C                   call 'recv'            //
     C                             sock            //
     C                             httpresponse    //
     C                             %len(httpresponse) //
     C                             0               //
     C                   eval      sndbuf = 0      //

     // Close socket
     C                   call 'closesocket'     //
     C                             sock            //
     C                   return

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com