Не задает вопрос на спрашивай

[kangreon]

В запросе идет передача парамтра X-Requested-With: XMLHttpRequest, который в вашем запросе отсутствует. Может быть проблема в нем.
Я тут набросал исходник, попробуйте его скомпилировать у себя. Там есть несколько проверок на ошибки.
Скомпилированный файл в папке Win32

[scroyler]

Сообщение от kangreon

В запросе идет передача парамтра X-Requested-With: XMLHttpRequest, который в вашем запросе отсутствует. Может быть проблема в нем.
Я тут набросал исходник, попробуйте его скомпилировать у себя. Там есть несколько проверок на ошибки.
Скомпилированный файл в папке Win32

Большущее спасибо! Просто огромное!

[BDA]

Если проблема еще не решена, то вот так у меня вопрос отправился:

Uses StrUtils, HTTPApp;
...
const
  userName = 'konstantin_delphi';
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TStringList;
  str, s1, s2: string;
  k: integer;
begin
  Data := TStringList.Create;
  str := IdHTTP1.Get('http://sprashivai.ru/' + userName);
  IdHTTP1.Request.Referer := 'http://sprashivai.ru/' + userName;
  s1 := 'Responses.ask(' + chr(39) + userName + chr(39) + ', ' + chr(39);
  k := pos(s1, str);
  if k > 0 then
    s1 := copy(str, k + length(s1), posex(chr(39) + ');', str,
        k) - k - length(s1))
  else
    s1 := '';
  s2 := 'name="asking_hash" value="';
  k := pos(s2, str);
  if k > 0 then
    s2 := copy(str, k + length(s2), posex('" id="', str, k) - k - length(s2))
  else
    s2 := '';
  Data.Add('username=' + userName);
  Data.Add('question=' + stringreplace(httpencode(ansitoutf8
          ('у меня к тебе вопросец один)')), '+', '%2B',
      [rfReplaceAll]));
  Data.Add(s1 + '=' + s2);
  Data.Add('anonimous' + '=' + 'undefined');
  Data.Add('capctha' + '=' + '');
  str := IdHTTP1.Post('http://sprashivai.ru/questions/ask', Data);
  showmessage(str);
  Data.free;
end;

т.е. добавил ansitoutf8() относительно предыдущей версии.