Re: Google Translate API's ... more

[hr@xxxxxxxxxxxx]

   Here are request header and response header from  FireFox and the
   iSeries source program from
   the test:
   http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=al
   fanumerisk&langpair=da|en
   Host: ajax.googleapis.com
   User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; da; rv:1.9.0.12)
   Gecko/2009070611 Firefox/3.0.12
   Accept:
   text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
   Accept-Language: da,en-us;q=0.7,en;q=0.3
   Accept-Encoding: gzip,deflate
   Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
   Keep-Alive: 300
   Connection: keep-alive
   Cache-Control: no-cache, no-store, max-age=0, must-revalidate
   Pragma: no-cache
   Expires: Fri, 01 Jan 1990 00:00:00 GMT
   Date: Thu, 23 Jul 2009 22:17:44 GMT
   Content-Type: text/javascript; charset=utf-8
   X-Backend-Content-Length: 18
   X-Embedded-Status: 200
   Content-Encoding: gzip
   X-Content-Type-Options: nosniff
   Content-Length: 99
   Server: GFE/2.0
   Regards
   henrik

     H DFTACTGRP(*NO) ACTGRP(*NEW) BNDDIR('HTTPAPI')

      *define WEBFORMS
     d/copy qrpglesrc,httpapi_h

     d cmd             pr                  extpgm('QCMDEXC')
     d  command                     200A   const
     d  length                       15P 5 const

     d CRLF            C                   CONST(x'0D25')
     d rc              s             10I 0
     d msg             s             52A

     d ver             s             10A   inz('1.0')
     d question        s            256A   inz('ALFA007')
     d langpair        s             20A
     d srclng          s             10A   inz('da')
     d tolng           s             10A   inz('en')

     d date            s               Z

     d url             s          32767A
     d urlEncoded      s                   like(http_url_encoder)

     D myPointer       s               *
     D dataSize        s             10I 0

      /free

       http_debug(*on);

       // HTTP_setCCSIDs(1208:0:819:0);  // CCSID 1208 = UTF-8

       date = %timestamp - %years(12);

       // Create URL
       urlEncoded = http_url_encoder_new();

       http_url_encoder_addvar(urlEncoded
        :'v'
        :%addr(ver)
        :%len(%trimr(ver))
       );

       http_url_encoder_addvar(urlEncoded
        :'q'
        :%addr(question)
        :%len(%trimr(question))
       );

       langpair = %trim(srclng) + '|' + %trim(tolng);
       http_url_encoder_addvar(urlEncoded
        :'langpair'
        :%addr(langpair)
        :%len(%trimr(langpair))
       );
       url = 'http://ajax.googleapis.com/ajax/services/language/translate?'
        + http_url_encoder_getstr(urlEncoded);

       // Send HTTP Request
       rc = http_url_get(url
         :'/tmp/testpost.html'
         :HTTP_TIMEOUT
         :HTTP_USERAGENT
         :date
        // :'text/html;'
        // :'text/html; charset=UTF-8'
        :'text/html; charset=ISO-8859-1'
       );

       // Free Storage
       http_url_encoder_free(urlEncoded);

       if rc <> 1;
         msg = http_error;
         dsply  msg;
       else;
         cmd('DSPF ''/tmp/testpost.html''':200);
       endif;

       *inlr = *on;

      /end-free

-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------