как получить капчу

[Айдар]

как получить капчу здесь http://www.lastfm.ru/join

[Alex Cones]

А исходный код смотреть не догадались?

http://api.recaptcha.net/image?c=0209Zz272MNvwp бла бла бла многа букафф ниасилил...

парсите страницу по

http://api.recaptcha.net/image?c=

[Айдар]

ну привидите мне пример картинки, вот код только там ничего нету
http://api.recaptcha.net/image?c=02F...59bu-i_5NETo8B

[Айдар]

все код картинки понял, но как его теперь извлч из стр там нету тагого http://api.recaptcha.net/image?c=

[Alex Cones]

http://api.recaptcha.net/image?c=0209Zz272MNvwp бла бла бла многа букафф ниасилил...

Я по-вашему откуда копировал адрес?

[Айдар]

по моему вы просто скопировали его из свойств объекта, если я не прав расскажите как вы получили этот url

[Пепел Феникса]

там на JS в основном сделано, надо искать места где идет c картинки(в запрос) и соответственно разбирать JS на предмет что он еще делает при получении капчи(там может еще куки нужны)

[Айдар]

кое-что нашел, заходим в сорсы и находим строку
http://api.recaptcha.net/noscript?k=...ucJTZMEg8ln Ws
заходим сюды
http://api.recaptcha.net/challenge?k...ucJTZMEg8ln Ws
и видим строку challenge : это есть путь на полное изображение ну вот с чем столкнулся капча на сайте и путь к капчи выводят на разные капчи что делать?

[Пепел Феникса]

вам надо твердо и упорно смотреть как именно делает браузер, смотреть все JS(особенно автоматические типа onload и тд)
и повторять это

[AquaKlaster]

Ф-я для парсинга:

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS) + Length(T_);
  if a = 0 then
    Exit;
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

Код для поиска ссылки, скачки, сохранения картинки каптчи:

    Response.Text := IdHTTP.Get('http://www.lastfm.ru/join');
    ID := Pars('Recaptcha.create("', Response.Text, '",');
    Response.Text := IdHTTP.Get('http://api.recaptcha.net/challenge?k=' + ID);
    Cap_ID := Pars('challenge : ''', Response.Text, ''',');
    Stream := TMemoryStream.Create;
    IdHTTP.Get('http://api.recaptcha.net/image?c=' + cap_id, stream);
    if not DirectoryExists(ExtractFilePath(ParamStr(0)) + 'Captcha') then
      ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Captcha');
    Stream.SaveToFile(ExtractFilePath(paramstr(0)) + '\Captcha\' +
      Copy(Cap_Id, 1, 6) + '.jpeg');
    Stream.Free;