Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 20.01.2010, 13:18   #1
smike
 
Регистрация: 20.01.2010
Сообщений: 3
По умолчанию "пауза" между получениями captchi

Подскажите, как "сделать паузу" между получениями капчи с сайта?
Код:
 begin
 LogIn := TStringList.Create;
 LogIn.Add('login=' + uname);
 LogIn.Add('passw=' + pword);
 html.text:= client.Post(LoginURL, LogIn);
      if pos('secimage',html.text) > 0 then begin
number:=Copy(html.text,pos('id.captcha.rambler.ru',html.text)+23,pos('.jpg',html.text)-pos('id.captcha.rambler.ru',html.text)-23);    
       LinkToCap:=('http://id.captcha.rambler.ru/'+number+'.jpg');
       cap:= TMemoryStream.Create;
       client.Get(LinkToCap,cap);
       cap.SaveToFile('captcha.jpg');
       img1.Picture.LoadFromFile('captcha.jpg');
//
       end;
Т.е. я нахожу капчу, она сохраняется и загружается и если за этим будет еще одна капча, то она при сохранении перезапишет старую капчу
И необходимо сделать, чтобы пока не ввели одну капчу, следующая не загружалась.
smike вне форума Ответить с цитированием
Старый 20.01.2010, 13:35   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,002
По умолчанию

ну так не грузите новую пока не ввели старую.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 11:04
Пауза в работе "while" rom_19 Общие вопросы C/C++ 3 06.07.2008 12:59
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами" MAcK Компоненты Delphi 11 24.10.2007 09:49
"Общение" между формой и вызываемой процедурой Квэнди Общие вопросы Delphi 6 11.01.2007 14:10


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS