unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdHTTP, IdTCPConnection,
  IdTCPClient, IdBaseComponent, IdComponent, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL;

type
  TForm1 = class(TForm)
    JapanTextEdit: TEdit;
    TranslateTextEdit: TEdit;
    TranslateButton: TButton;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
    IdHTTP1: TIdHTTP;
    procedure YandexTrans(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function YandexTranslate(FromLng, ToLng, Text: String { out SrcLng: String } ): string;
var
  InData: TStringList;
  Translate: String;
  IdHTTP2: TIdHTTP;
  Key: string;
begin
     Key := '... яндексовский ключик ...';
     Result := '';
     IdHTTP2 := TIdHTTP.Create(nil);
     IdHTTP2.Request.UserAgent := 'Opera/9.80 (Windows NT 6.1) Presto/2.12.388 Version/12.16';
     InData := TStringList.Create;

     //XML-интерфейс
     InData.Add('?key=' + Key);
     InData.Add('&text=' + Text);
     InData.Add('&lang=' + FromLng + '-' + ToLng);

     try
          //XML-интерфейс
          Translate := IdHTTP2.Post('https://translate.yandex.net/api/v1.5/tr/translate', InData);
          try
               Result := Translate;
          except
               on E: Exception do
               ShowMessage(E.ClassName + ' error raised, with message : ' + E.Message);
          end;
     finally
          InData.Free;
          IdHTTP2.Free; // IdHTTP1.Disconnect;
     end;
end;

procedure TForm1.YandexTrans(Sender: TObject);
begin
     JapanTextEdit.Text := 'グループ迂回メモリを全て消去しました'; // Тут японская фраза. Если не видно - выложу позже.
     TranslateTextEdit.Text := YandexTranslate('ja', 'en', JapanTextEdit.Text);
     TranslateTextEdit.Text := StringReplace(TranslateTextEdit.Text,'"','',[rfReplaceAll]);
end;

end.

function TranslateText(FromLng, ToLng, Text: string): string;
var
  IdHTTP: TIdHttp;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
  MyMemory: TMemoryStream;
  OutS: TStringList;
  s: string;
  Key, Lang: string;
begin
     Key := 'trnsl.****';
     Lang := FromLng + '-' + ToLng;
     IdHTTP := TIdHTTP.Create;
     SSL := TIdSSLIOHandlerSocketOpenSSL.Create;
     IdHTTP.IOHandler := SSL;
     s := 'https://translate.yandex.net/api/v1.5/tr/translate?key=' + key + '&lang=' + lang + '&text=' + Text;
     MyMemory := TMemoryStream.Create;
     {if IdHTTP.Connected=true then
          IdHTTP.Get(s, MyMemory);
     try
          idSMTP1.Disconnect;
     except

     end; }

     IdHTTP.Get(s, MyMemory);
     //IdHTTP.Disconnect;
     {
     try
          IdHTTP.Get(s, MyMemory);
          IdHTTP.Disconnect;
     except
          on E : Exception do
               if E is EIdConnClosedGracefully then
                    raise
     end  }

     MyMemory.Position := 0;
     OutS := TStringList.Create;
     OutS.LoadFromStream(MyMemory);
     result := UTF8ToWideString(OutS.Text);
     //result := OutS.Text;
     IdHTTP.Free;
     IdHTTP.Disconnect;
     SSL.Free;
     //SSL.DiscardAll;
     MyMemory.Free;
     OutS.Free;
end;

//==============================================================================
function UrlEncode(Str: ansistring): ansistring;
  function CharToHex(Ch: ansiChar): Integer;
  asm
          and eax, 0FFh
          mov ah, al
          shr al, 4
          and ah, 00fh
          cmp al, 00ah
          jl @@10
          sub al, 00ah
          add al, 041h
          jmp @@20
     @@10:
          add al, 030h
     @@20:
          cmp ah, 00ah
          jl @@30
          sub ah, 00ah
          add ah, 041h
          jmp @@40
     @@30:
          add ah, 030h
     @@40:
          shl eax, 8
          mov al, '%'
  end;

var
  i, Len: Integer;
  Ch: ansiChar;
  N: Integer;
  P: PansiChar;
begin
     Result := '';
     Len := Length(Str);
     P := PansiChar(@N);
     for i := 1 to Len do
          begin
               Ch := Str[i];
               if Ch in ['0'..'9', 'A'..'Z', 'a'..'z', '_'] then
                    Result := Result + Ch
               else
                    begin
                         if Ch = ' ' then
                              Result := Result + '+'
                         else
                              begin
                                   N := CharToHex(Ch);
                                   Result := Result + P;
                              end;
                    end;
          end;
end;
//==============================================================================