Добрый день знатоки! есть такой кусок кода:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
IdHTTP1: TidHTTP;
Data: TStringList;
Response: TStringStream;
begin
Data:= TStringList.Create;
IdHTTP1:= TIdHTTP.Create(nil);
data.Add('client=x');
data.Add('text=%D0%BF%D1%80%D0%B8%D0%B2%D0%B5%D1%82');
data.Add('hl=ru');
data.Add('sl=ru');
data.Add('tl=en');
data.add('multires=1');
data.add('otf=1');
data.add('sc=1');
Response:= TStringStream.Create('');
try
IdHTTP1.Post('http://translate.google.ru/translate_a/t', Data, Response);
sMemo2.Text := Response.DataString;
except
sMemo2.Text := 'îøèáêà ;(';
end;
Data.Free;
Response.Free;
IdHTTP1.Free;
end;
Но он напрочь отказывается выполняться, хочу перевести текст с русского на английский
Результат выполнения этого кода такой:
Код:
{"sentences":[{"trans":"% D0% BF% D1% 80% D0% B8% D0% B2% D0% B5% D1% 82","orig":"%D0%BF%D1%80%D0%B8%D0%B2%D0%B5%D1%82","translit":"","src_translit":"%D0%BF%D1%80%D0%B8%D0%B2%D0%B5%D1%82"}],"src":"ru","spell":{"spell_res":"%Д0%БФ%Д1%80%Д0%Б8%Д0%Б2%Д0%Б5%Д1%82","correction_type":[6]},"server_time":4}
А думаю что должен быть такой:
Код:
{"sentences":[{"trans":"hello","orig":"привет","translit":"","src_translit":"что то"}],"src":"ru","spell":{"spell_res":"что то","correction_type":[6]},"server_time":4}
Укажите пожалуйста на мою ошибку!
Думаю что, что то не так с передаваемыми параметрами но что то ни как не дотукаю ;(