[carmennn]

И так есть исходник проекта, в нем работает получения капчи из сайта.

Но когда хочу получить капчу из другого сайта то получаю ошибку.

И так вот рабочая:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 html:WideString;
 Stream:TStream;
 png:TPNGObject;
begin
   try
    png:=TPNGObject.Create;
    html:=IdHTTP1.Get('http://freelance.ru/registration/?cmd=agree');
    Delete(html,1,pos('<td><img src="',html)+length('<td><img src="'));
    Delete(html,pos('" id',html),length(html));
    Stream:=TStringStream.Create(IdHTTP1.Get('http://freelance.ru/'+html));
    png.LoadFromStream(Stream);
    Image1.Picture.Assign(png);
    Stream.Free;
    png.Free;
   except
    on e:Exception do
     begin
      png.Free;
      Stream.Free;
     end;
   end;
end;

А вот когда меняю сайт пишет ошибку:

Код:

html:=IdHTTP1.Get('http://freebitco.in/?op=home');

Помогите разобраться, почему когда меняю адрес то в этой строке пишет ошибку?

Если кто может помочь таким способом с этого сайта (freebitco) вывести капчу на форму Делфи.