Скачивание картинки по прямой ссылке.

[Nugrom]

в него парсится ссылка на капчу, она слишком длинная просто

Да, все. вместо стринглиста я поставил стринг, и все заработало.. хотя я не особо понимаю почему не работало раньше.

[min@y™]

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

Да, все. вместо стринглиста я поставил стринг, и все заработало.. хотя я не особо понимаю почему не работало раньше.

патамушта отладчик юзать надо и свой мозг, а не спамить в интернеты каждый чих. tstrings.text всегда оканчивается на #$0d#$0a. в отладчике это сразу бросается в глаза.

[Nugrom]

Хм.. ну тогда вот. теперь я пытаюсь отослать ответ капчи.

Проснифферил браузер. вот такие параметры:

recaptcha_challenge_field  03AHJ_Vut8hAG5I_QqSoevkVNcLQfS386VDxDs0kg5PP13shuJjG9sBKUiRaBpi3
WupbdGmG4T93uO2vhp0g3sJ8QhYOhBIh1ZYyamQkb9DDyCXPnNcAjTMlCGV
86RM3mZKTLKIw5t7jhJ_7Yp1q1eUM2B9-DZ5kVHLs-
iSzrbwSB0uB9NNfkQamslqUJXUb4R7zBnDI--
p-C0NCFtDJpS1DB6efgpYWGUC02lz3bZYOCCRQSpqopZOvhqZkvamm71k-
NQE4glTCcBO8uPphejcouGa4dw2U4HOpoHSa6yHMprCGW2O74V0wc

recaptcha_response_field 4675
claim true

Ну разумеется подставляю свои данные, и отсылаю. Ошибка 404 not found.
Делаю запрос я на url точно такой же, на который отсылается запрос через браузер.


Код:

  ts := tstringlist.Create;
  TS.Add('recaptcha_challenge_field=' + purl); 
  TS.Add('recaptcha_response_field=' + edit1.Text);
  TS.Add('claim=true');
  sleep(15000);
  http.Request.ContentType := 'application/x-www-form-urlencoded';
  Memo1.Text := HTTP.Post('http://btc25.net/claim', TS);
  ts.free;

Снифферил программу, когда она делает запрос, запрос, вроде, точно такой же как и запрос браузера.

[Stilet]

Ну разумеется подставляю свои данные

Вот скорее всего в них и кроется некая ошибка, рвущая сервер.

[Nugrom]

мне нужно отослать "challenge" капчи(можно сказать id капчи), и текст ее решения. ну и параметр claim=true.
Даже не знаю, что может быть не так

[ZuBy]

самое верное, никогда не использовать TStringList
TStringStream сразу с указанием кодировки и проблем никогда не будет

Str := TStringStream.Create('', TEncoding.UTF8);
...
FreeAndNil(Str);

[Nugrom]

  TS := TStringStream.Create('', TEncoding.UTF8);
  TS.WriteString('recaptcha_challenge_field=' + url);
  TS.WriteString('recaptcha_response_field=years erererg');
  TS.WriteString('claim=true');
  sleep(15000);
  http.Request.ContentType := 'application/x-www-form-urlencoded';
  Memo1.Text := HTTP.Post('http://btc25.net/claim', TS);
  FreeAndNil(ts);

Ошибка 404 все равно.

[Nugrom]

Никто не знает, как именно на данном сайте отправить капчу? А то я уже не знаю. пробовал отправлять на другие URL, но ничего не помогло.

[Nugrom]

Или вообще. Как правильно получить и потом отправить ответ на капчу от ReCaptcha

[Nugrom]

Есть у меня одно подозрение.. У сайта есть специальная ссылка. когда переходишь по ней, то генерируется ссылка на капчу. И эта ссылка на капчу всегда разная, соответственно и капча всегда разная. Если просто get запрос кинуть на сайт, то с самого начала там нету капчи, она получается отдельным JS.
Что делает программа:
Она авторизовывается, и потом получает капчу заново(она уже генерируется другая, и на самом деле не совпадает с той, которая появилась бы тогда на сайте).
Может нужно выполнить JS, который загрузит капчу, а потом уже брать именно ту капчу, которая высветится на сайте? Может из-за этого ошибка? Хотя ошибка 404 может быть вообще связанна с таким? В общем, может ли кто-то проверить, попробовать сделать отправку ответа на капчу данного типа? Многое уже перепробовал. Ничего не помогает. Всегда ответ 404 Nor Found