[***]

Вот мне нужно получить капчу с данной ссылки:
http://webmaster.yandex.ru/addurl.xml

Вот у меня получился такой код

Код:

implementation

var zKey, s:string;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
FS:TFileStream;
begin
s:= idhttp1.Get('http://webmaster.yandex.ru/addurl.xml'); // Заходим на строничку
zKey:=Copy(S, Pos('zKey', S)+16, 32);
FS:=TFileStream.Create('capcha.jpg',FMCreate);
idhttp1.Get('http://u.captcha.yandex.net/'+zKey+'.jpg', FS); // Получение капчи и сохранение в файл жпег
FS.Free; // Освобождение переменной FS
image1.Picture.LoadFromFile('capcha.jpeg'); // Загружаем картинку с капчей
end;

end.

Вроде код правельный
Но проверьте

нажимаю на кнопку и заместо того чтобы получить капчу зависает приложение в чем ошибка подскажите плиз

заранее спасибо

[NumLock]

там же gif файл

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i: Integer;
  filestream: TFileStream;
begin
  s:=IdHTTP1.Get('http://webmaster.yandex.ru/addurl.xml');
  Memo1.Text:=s;
  Memo1.Lines.SaveToFile('capcha.htm');
  i:=Pos('image?key=', s);
  if i>0 then
  begin
    s:=Copy(s, i-28, Length(s));
    i:=Pos('"', s);
    s:=Copy(s, 1, i-1);
    Caption:=s;
    filestream:=TFileStream.Create('capcha.gif', fmCreate);
    try
      IdHTTP1.Get(s, filestream);
    finally
      filestream.Free;
    end;
  end;
end;

[***]

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

там же gif файл

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i: Integer;
  filestream: TFileStream;
begin
  s:=IdHTTP1.Get('http://webmaster.yandex.ru/addurl.xml');
  Memo1.Text:=s;
  Memo1.Lines.SaveToFile('capcha.htm');
  i:=Pos('image?key=', s);
  if i>0 then
  begin
    s:=Copy(s, i-28, Length(s));
    i:=Pos('"', s);
    s:=Copy(s, 1, i-1);
    Caption:=s;
    filestream:=TFileStream.Create('capcha.gif', fmCreate);
    try
      IdHTTP1.Get(s, filestream);
    finally
      filestream.Free;
    end;
  end;
end;

А в чем прикол та мне не код стронички нужен а картинку вывести

[NumLock]

да нет никакого прикола, просто TImage не умеет работать с gif. ищи того, кто умеет!