Код:
procedure TForm1.Button2Click(Sender: TObject);
var m,s1,gg,ssyl,log,pass,s,a,b,c:string;
StrPage:string;
qwe:TStringList; i,i1:integer; str:string; n:integer;
begin
idhttp1.CookieManager:=idcookieManager1;
ssyl:='http://youcomedy.me/addText?token=b458c1f0f72e3aa21d352370dba687d1';
idhttp1.HandleRedirects:=True;
qwe:=TStringList.Create;
qwe.Add('Text[tags][]=');
qwe.Add('Text[content]=dfdsfdsfsdfsdfdsfdsfsdf');
qwe.Add('Text[tags][]=lol');
qwe.Add('Text[tags][]=zazaza');
qwe.Add('Text[description]=dsfdsfdsfdsfdsfdfds');
qwe.Add('location=undefined');
try
StrPage:=idhttp1.post(ssyl,qwe);
except
end;
end;
end.
Вот код, почему то не отправляет , все составлено правильно, проверил сниффером. Почему то выходить ошибка 400, кто знает, в чем может быть причина?