![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
И так есть исходник проекта, в нем работает получения капчи из сайта.
Но когда хочу получить капчу из другого сайта то получаю ошибку. И так вот рабочая: Код:
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) вывести капчу на форму Делфи. |
|
#2
|
||||
|
||||
|
Там (freebitco) нету капчи, во всяком случае в html-коде её не нашёл. Похоже там другой сценарий регистрации
|
|
#3
|
|||
|
|||
|
Сегодня они сменили капчу с recapchi на новую.
Вот что я нашел на сайте: Код HTML:
Теперь нужно изменить тот код в начале поста, для отображения этой капчи на форме. |
|
#4
|
||||
|
||||
|
Неа, в "обычном" браузере удалением всего лишнего открыть не удаётся, выскакивает медиаеррор, так что это не то
|
|
#5
|
|||
|
|||
|
Помоги пожалуйста, как её загрузить на форму. Может сначала зайти на страницу, потом всю страницу спарсить в переменую, а уже потом искать в ней капчу и вывести на форму?
|