zoukankan      html  css  js  c++  java
  • 用JSON 和 Google 实现全文翻译

    代码
    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;

    type
      TForm1 
    = class(TForm)
        Memo1: TMemo;
        Memo2: TMemo;
        Button1: TButton;
        Button2: TButton;
        
    procedure Button1Click(Sender: TObject);
        
    procedure Button2Click(Sender: TObject);
      
    end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    uses MsXML, SuperObject;

    //字符串到 UTF8 编码的函数, 用于 Google 地址
    function ToUTF8Encode(str: string): string;
    var
      b: Byte;
    begin
      
    for b in BytesOf(UTF8Encode(str)) do
        Result :
    = Format('%s%s%.2x', [Result, '%', b]);
    end;

    //翻译函数
    function Translate(str, RequestLanguage, ResultLanguage: string): string;
    const
      BaseUrl 
    = 'http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=';
    var
      Url: 
    string;
      jo: ISuperObject;
      req: IXMLHTTPRequest;
    begin
      Url :
    = BaseUrl + ToUTF8Encode(str) + '&langpair=' + RequestLanguage + '%7C' + ResultLanguage;
      req :
    = CoXMLHTTP.Create;
      req.open(
    'Get', Url, False, EmptyParam, EmptyParam);
      req.send(EmptyParam);
      jo :
    = SO(req.responseText);
      Result :
    = jo.Format('%responseData.translatedText%');
    end;

    //英译汉
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Memo2.Text :
    = Translate(Memo1.Text, 'en''zh-cn');
    end;

    //汉译英
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      Memo1.Text :
    = Translate(Memo2.Text, 'zh-cn''en');
    end;

    end.
  • 相关阅读:
    原码/反码/补码详解
    树剖LCA讲解
    code vs 2166 Bessie的体重问题
    code vs 3376 符号三角形
    洛谷 P3078 [USACO13MAR]扑克牌型Poker Hands
    vjudge B
    POJ 1013 Counterfeit Dollar
    POJ 1008 Maya Calendar
    POJ 1006 Biorhythms
    POJ 3252 Round Numbers
  • 原文地址:https://www.cnblogs.com/jxgxy/p/1655821.html
Copyright © 2011-2022 走看看