Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
Wowka97
0 / 0 / 1
Регистрация: 03.06.2011
Сообщений: 42
1

Помогите с капчей

31.03.2012, 15:30. Просмотров 573. Ответов 0
Метки нет (Все метки)

Имеется данный код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TForm1.FormShow(Sender: TObject);
var
  ResultList: TStringList;
  rnd: Integer;
  List: TStringList;
  R: TRegExp;
  mc: MatchCollection;
  m: Match;
  sm: SubMatches;
  Stream: TMemoryStream;
  Gif: TGIFImage;
begin
 ResultList := TStringList.Create;
  // формируем параметр rnd
  Randomize;
  rnd := round(777) * 777;
  // отправляем запрос
  ResultList.Text := IdHTTP1.Get('https://www.google.com/recaptcha/api/challenge?k=6Lc7XMUSAAAAAALuekCTAzdT5U0zeiEUQbTRZIBu');
  R := TRegExp.Create(self);
  R.Pattern := 'url="(.*?)">(.*?)</number>'; // регулярное выражение для поиска Captcha
  R.Multiline := true;
  R.IgnoreCase := true;
  R.Global := true;
  mc := R.Execute(ResultList.Text) as MatchCollection;
  if mc.Count > 0 then // нашли совпадение
  begin
    m := mc[0] as Match;
    sm := m.SubMatches as SubMatches;
    Stream := TMemoryStream.Create;
    IdHTTP1.Get(sm[0], Stream); // грузим капчу в поток.
    CaptchaKey:= sm[1]; // запоминаем ключ Captcha
    R := nil;
    m := nil;
    mc := nil;
    Stream.Position := 0; // устанавливаем ОБЯЗАТЕЛЬНО на ноль
    //так как каптча - это gif, то работать будем так
    GIF:=TGIFImage.Create;
    Gif.LoadFromStream(Stream);
    Image1.Picture.Assign(Gif.Bitmap); // выводим в Image
  end;
Как сформулировать строку, так что бы капча забиралась сайта?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 15:30
Ответы с готовыми решениями:

Работа с капчей
Доброго времени суток Собственно суть проблемы мне нужно спарсить HTML...

Не могу разобраться с капчей

Работа с капчей
Кто знает как обойти такую капчу? кот картинка вот что на странице видно ...

Проблема с капчей
Привет друзья. У меня проблема. Начал изучение PHP, пишу сайт с codeignater-ом....

Регистрация с капчей
Добрый день! Копаюсь сейчас с регистрацией на сайте, для безопасности после...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2012, 15:30

Проблемы с капчей
Доброго времени суток! Проблемы возникли с капчей, ни как не удается...

Проблемы с капчей!
Подскажите, пожалуйста, как сделать так, чтобы при вводе неправильной капчи...

Рег.Юзеров с капчей
Не могу понять в чем прикол ... В начале шаба открываю сесию и вставил капчу .....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru