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

[Nugrom]

У меня есть прямая ссылка на картинку(капчу).
Мне нужно скачать ее в TMemoryStream.

Делаю так:

http.Request.ContentType := 'image/jpeg';
memo1.Text := l.Text;
HTTP.Get(l.Text, stream);
stream.Position := 0;
stream.SaveToFile('picture');
stream.free;

в L хранится ссылка на картинку.
Во время Get запроса появляется ошибка 400 Bad Request.
В чем может быть проблема? В браузере картинка открывается.

http://www.google.com/recaptcha/api/...8-b9mLPeEQZ5C8

[ZuBy]

а где данные для запроса

with HTTP.Request do
begin
  host:= ?
  Accept:=?
  ... 
end;

кстати картинка в браузере не открывается!

An error occurred:
Input error: Invalid referer

[Nugrom]

Картинка минут через 15 исчезает. Поэтому сейчас и не открывается, в первые минуты открывается.

Это в начале кода, при создании HTTP

http := tidhttp.Create(nil);
  http.HandleRedirects:=true;
  http.Request.UserAgent := 'Mozilla/5.0 (Windows NT 5.1; rv:14.0) Gecko/20100101 Firefox/14.0.1';
  http.Request.ContentType := 'application/x-www-form-urlencoded';

[ZuBy]

покажи весь код

[Nugrom]

procedure TForm1.Button1Click(Sender: TObject);
var
TS : TStringList;
http : TIdHTTP;
l : tstringlist;
Stream : TMemoryStream;
purl : string;
data:string;
begin
  http := tidhttp.Create(nil);
  http.HandleRedirects:=true;
  http.Request.UserAgent := 'Mozilla/5.0 (Windows NT 5.1; rv:14.0) Gecko/20100101 Firefox/14.0.1';
  http.Request.ContentType := 'application/x-www-form-urlencoded';

TS := TStringList.Create;
TS.Add('address=1Dn6Su4GFMfUJg7CkbGZWS3vwsbx4Auo7r');
http.Post('http://btc25.net/play', TS);
TS.Clear;

l := tstringlist.Create;
Stream := tmemorystream.Create;
l.Text := 'http://www.google.com/recaptcha/api/image?c=';
data := http.Get('http://www.google.com/recaptcha/api/challenge?k=6LdGjvwSAAAAACSKheoHke4a83gB2ylGbnVqgrAL');
purl := Parse('challenge : ', data, ',');
Delete(purl, 1,1);
Delete(purl, length(purl), 1);
l.Text := l.Text + purl;
http.Request.ContentType := 'image/jpeg';
memo1.Text := l.Text;
HTTP.Get(l.Text, stream);
stream.Position := 0;
stream.SaveToFile('picture');
  TS.Free;
  L.Free;
end;

end.

[Nugrom]

вот ссылка новая. первое время тут видна капча. http://www.google.com/recaptcha/api/...6fA9pf9aT99XKf

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

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

вот ссылка новая. первое время тут видна капча. http://www.google.com/recaptcha/api/...6fA9pf9aT99XKf

та же ошибка.
у вас должен быть referer передан.

[Nugrom]

что должно быть в поле referer?

[Nugrom]

аа, да нет. ну я же говорю. через минут 10 ссылка становится нерабочей. когда заходишь с браузера, то картинка отображается, пока она еще рабочая.
Вот рабочая ссылка, но если вы зайдете через минут 10, она уже будет нерабочая.

http://www.google.com/recaptcha/api/...VrATtqdak0vYg\

[min@y™]

tstringlist зачем тут?