JSON 之 SuperObject(17): 实例

调用 Google 翻译的地址格式:

http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" + 原始文本 + "&langpair=" + 原语言 + "%7C" + 目标语言

返回的数据格式如下, 可以用 responseData.translatedText 简单获取:
{  "responseData" : {"translatedText" : "返回的文本"},   "responseDetails" : null,   "responseStatus" : 200}

本例效果图:

---

代码文件:

---

unit Unit1;interfaceuses  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.

窗体文件:
object Form1: TForm1  Left = 0  Top = 0  Caption = 'Form1'  ClientHeight = 139  ClientWidth = 459  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  PixelsPerInch = 96  TextHeight = 13  object Memo1: TMemo    Left = 0    Top = 0    Width = 185    Height = 139    Align = alLeft    Lines.Strings = (      'Memo1')    TabOrder = 0    ExplicitHeight = 202  end  object Button1: TButton    Left = 191    Top = 24    Width = 75    Height = 25    Caption = #33521#25991' -> '#20013#25991    TabOrder = 1    OnClick = Button1Click  end  object Memo2: TMemo    Left = 274    Top = 0    Width = 185    Height = 139    Align = alRight    Lines.Strings = (      'Memo2')    TabOrder = 2    ExplicitLeft = 312    ExplicitTop = -8    ExplicitHeight = 202  end  object Button2: TButton    Left = 191    Top = 72    Width = 75    Height = 25    Caption = #33521#25991' <- '#20013#25991    TabOrder = 3    OnClick = Button2Click  endend