zoukankan      html  css  js  c++  java
  • 在 Delphi 中使用微软全文翻译的小例子

    使用帮助
    需要先去申请一个 AppID: http://www.bing.com/toolbox/bingdeveloper/
    使用帮助在: http://msdn.microsoft.com/en-us/library/dd576287.aspx

    uses
    MsXML; {函数} function Translate(AAppID: string; AText: string; InLanguage: string='en'; OutLanguage: string='zh-CHS'): string; const   BaseUrl = 'http://api.microsofttranslator.com/V2/http.svc/Translate?appId=%s&text=%s&from=%s&to=%s'; var   Url: string;   req: IXMLHTTPRequest; begin   Url := Format(BaseUrl, [AAppID, AText, InLanguage, OutLanguage]);   req := CoXMLHTTP.Create;   req.open('Get', Url, False, EmptyParam, EmptyParam);   req.send(EmptyParam);   Result := req.responseText;   Result := Copy(Result, 68+1, Length(Result)-68-9); //去掉前后的标签 end; {调用测试} procedure TForm1.Button1Click(Sender: TObject); const   myAppId = '65FCA293BDB85C98D16A567C3FECE22272B6****'; //这是我申请的 AppID, 隐藏了后四位 begin   Memo2.Text := Translate(myAppId, Memo1.Text); end;


    效果图:



    使用 Indy:


    uses IdHTTP;
    
    function Translate2(AAppID: string; AText: string; InLanguage: string='en'; OutLanguage: string='zh-CHS'): string;
    const
      BaseUrl = 'http://api.microsofttranslator.com/V2/http.svc/Translate?appId=%s&text=%s&from=%s&to=%s';
    var
      Url: string;
      stream: TStringStream;
      idHttpObj: TIdHTTP;
    begin
      stream := TStringStream.Create;
      idHttpObj := TIdHTTP.Create(nil);
      Url := Format(BaseUrl, [AAppID, Trim(AText), InLanguage, OutLanguage]);
      idHttpObj.Get(Url, stream);
      Result := stream.DataString;
      Result := Copy(Result, 68+1, Length(Result)-68-9); //去掉前后的标签
      idHttpObj.Free;
      stream.Free;
    end;
  • 相关阅读:
    AJAX传输图片文件
    和内嵌的iframe进行通讯
    ts的特殊数据类型
    Angular RxJs:针对异步数据流编程工具
    Angular路由使用
    RBAC基于角色的权限管理模型
    Java中的实体类--Serializable接口、transient 关键字
    字符串问题----将整数字符串转换成整数值
    字符串问题----判断两个字符串是否互为旋转词
    字符串问题----去掉字符串中连续出现K个0的子串
  • 原文地址:https://www.cnblogs.com/zyb2016/p/5685339.html
Copyright © 2011-2022 走看看