Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Получить параметр и отправить его

Автор: keenqd 22.6.2014, 17:27

Здравствуйте. Проверяю текст на уникальность,таким вот способом 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.

Так же сейчас присутсвует ошибка:
{"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"}

Автор: keenqd 23.6.2014, 13:40

Исправил так :

Код


procedure TForm6.Button1Click(Sender: TObject);
var
post_zapros:string;
post: TStringList;
begin
post:=TstringList.Create;
try
IdHTTP1.HandleRedirects := True;
post.Add('text=' + Form6.Memo1.text);
post.Add('userkey=e05eb8486456b1ed9e6a384556b7716f');
try
post_zapros := IdHTTP1.Post('http://api.text.ru/post', post);
Form6.Memo1.text := IdHTTP1.ResponseText;
except
on E: Exception do
ShowMessage(E.Message);
end;
finally
  post.Free;
end;
end;
end.

Получаю ответ - HTTP/1.1 200 OK