function GetTranslatedText(const OriText: string): string;

var

  Json: TQJson;

const

  WebRestApiUrl = 'http://fanyi.youdao.com/translate?&doctype=json&type=AUTO&i=%s';

begin

  Json := TQJson.Create;

  try

    try

      Json.Parse(CSimpleGet(Format(WebRestApiUrl, [TURLEncoding.URL.Encode(OriText)]))); //CSimpleGet 这里可以搜索本站用 idhttp nethttpclient 实现获取

      Result := Json.ItemByPath('\translateResult[0][0]\tgt').AsString;

    except

      on e: Exception do

        Result := '';

    end;

  finally

    FreeAndNil(Json);

  end;

end;

感谢 黑夜杀手 提供