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

[scroyler]

 function FindID(strB,strE,str:string):string;
var
  b,e:integer;
begin
  b:=pos(strb,str)+Length(strb);
  e:=pos(strE,str);
  if (b=0)or(e=0) then
    Result:=''
  else
    Result:=copy(str,b,e-b);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Data:TStringList;
  Request:String;
  id1,id2:string;
begin
  Data:=TStringList.Create;
  Request:=idHTTP1.Get('http://sprashivai.ru/questions');
  id1:=FindID('<button id="askform-button" class="button-yellow-small" style="width: 134px;" onclick="ask(''questions'', ''',''');">'
+AnsiToUtf8('Спросить')+'</button>',Request);
  id2:=FindID('<div id="textarea-ios-fix"></div><input type="hidden" name="asking_hash" value="','" id="asking_hash" />',Request);
   Data.Add(id1+'='+id2);
   data.Add('username'+'='+'konstantin_delphi');
   data.Add('question'+'='+'texxt');
   data.Add('anonimous'+'='+'undefined') ;
   data.Add('capctha'+'='+'')  ;
   idhttp1.Post('http://sprashivai.ru/questions/ask',Data);
end;
end.

Что не так? Кто подскажет?

[scroyler]

procedure TForm1.Button1Click(Sender: TObject);
var
  Data:TStringList;
  Request:String;
  id1,id2,str:string;
  n:integer;
begin
  Data:=TStringList.Create;

str:=idhttp1.Get('http://postingroom.ru/forum/42-0-0-1-1');
n:=pos('"ssid" value="',str)+length('"ssid" value="');
id1:= copy(str,n,posex('" />',str,n)-n);

n:=pos('<button id="askform-button" class="button-yellow-small" style="width: 134px;" onclick="Responses.ask('+'konstantin_delphi'+',',str)+length('<button id="askform-button" class="button-yellow-small" style="width: 134px;" onclick="Responses.ask('+'konstantin_delphi'+',');
id1:= copy(str,n,posex(''+''');">Спросить</button>',str,n)-n);

n:=pos('<div id="textarea-ios-fix"></div><input type="hidden" name="asking_hash" value="',str)+length('<div id="textarea-ios-fix"></div><input type="hidden" name="asking_hash" value="');
id2:= copy(str,n,posex('" id="asking_hash" />',str,n)-n);

   data.Add('username=konstantin_delphi');
   data.Add('question=texxt');
   Data.Add(id1+'='+id2);
   data.Add('anonimous'+'='+'undefined') ;
   data.Add('capctha'+'='+'')  ;
   idhttp1.Post('http://sprashivai.ru/questions/ask',Data);
end;
end.

делаю так,все равно не работает
Подскажите пож.,мне срочно надо!

[kangreon]

Проверьте сниффером отправляются ли куки и попробуйте в запрос добавить Referer.

[scroyler]

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

Проверьте сниффером отправляются ли куки и попробуйте в запрос добавить Referer.

вроде нет

Добавил Referer, не помогло, посмотри плз, может я , что то не правильно составляю

[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(
        'тестовый вопрос для проверки delphi программы)'), '+', '%2B',
      [rfReplaceAll]));
  Data.Add(s1 + '=' + s2);
  Data.Add('anonimous' + '=' + 'undefined');
  Data.Add('capctha' + '=' + '');
  str := IdHTTP1.Post('http://sprashivai.ru/questions/ask', Data);
  Data.free;
end;

Остается обработать полученный ответ в str.
Желательно, чтобы str = '{"status":"ok"}', но могут быть различные ошибки.

[scroyler]

Сообщение от 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(
        'тестовый вопрос для проверки delphi программы)'), '+', '%2B',
      [rfReplaceAll]));
  Data.Add(s1 + '=' + s2);
  Data.Add('anonimous' + '=' + 'undefined');
  Data.Add('capctha' + '=' + '');
  str := IdHTTP1.Post('http://sprashivai.ru/questions/ask', Data);
  Data.free;
end;

Остается обработать полученный ответ в str.
Желательно, чтобы str = '{"status":"ok"}', но могут быть различные ошибки.

Большое спасибо, но не работает
Либо у меня руки из жопы, либо что

Вот такой ответ

 {"status":"error","message":"\u041e\u0448\u0438\u0431\u043a\u0430 \u0431\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u043e\u0441\u0442\u0438, \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u0439\u0442\u0435 \u043e\u0431\u043d\u043e\u0432\u0438\u0442\u044c \u0441\u0442\u0440\u0430\u043d\u0438\u0446\u0443 \u0438 \u043f\u043e\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u0442\u044c \u0441\u043d\u043e\u0432\u0430"}

[BDA]

Хм, странно.
Сайт пишет: Ошибка безопасности, попробуйте обновить страницу и попробовать снова (в вашем ответе).
У меня такой не возникало.

[scroyler]

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

Хм, странно.
Сайт пишет: Ошибка безопасности, попробуйте обновить страницу и попробовать снова (в вашем ответе).
У меня такой не возникало.

хмм... очень страно
Что мне теперь делать?
Может попробовать через м. версию?

[kangreon]

scroyler, какая у вас версия Delphi и версия компонентов Indy?

[scroyler]

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

scroyler, какая у вас версия Delphi и версия компонентов Indy?

хе/хе2
версия идни-9.0 вроде