Delphi Delphi реализует перевод через интерфейс dao

[Lomanu4]

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;

 

[AlphaZero]

Топ спс

 

[Mazahaka_lab]

Давно я здесь не был. Но как я вижу всё осталось как и было . К этому примеру нужно модуль прикреплять, который используется данной функцией . Как обычно кусок кода , а дальше ищу и думай сам . Вы не исправимы !