Здравствуйте. Проверяю текст на уникальность, подсказанным мне способом http://text.ru/api-check/manual#ac-link-topic-1 . Необходимо получить параметр text_uid , а затем далее его отправить в виде uid , подскажите как это реализовать?
procedure TForm6.Button1Click(Sender: TObject);
var
post: TStringList;
post_zapros:string;
begin
post:=TstringList.Create;
IdHTTP1.HandleRedirects:=true;
try
post:= TStringList.Create;
post.Add('text=' + Form6.Memo1.text);
post.Add('userkey=e05eb8486456b1ed9e6a384556b7716f');
post_zapros:=IdHTTP1.Post('http://api.text.ru/post',post);
except
end;
end;
end.
Получается нужно грубо говоря выловить ответ на Post запрос
Так же сейчас присутсвует ошибка:
{"error_code":112,"error_desc":"\u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c\u044b\u0439 \u0442\u0435\u043a\u0441\u0442 \u0441\u043b\u0438\u0448\u043a\u043e\u043c \u043a\u043e\u0440\u043e\u0442\u043a\u0438\u0439"}