|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
перестает отправлять запросы idhttp
Вообщем такая проблема,после некоторого времени отправки перестает отправлять запросы.
Вот я паршу данные, после 10 минут,начинают приходить пустые данные и не идет отправка запроса. Кто знает, из за чего это? Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |
#2
|
||||
|
||||
ошибка в программе
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Цитата:
Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |
#4
|
||||
|
||||
Есть у меня знакомая гадалка. Очень хорошо гадает, особенно на кофейной гуще. Говоришь ей: "У меня программа работает, а потом не работает. Почему?" - и она угадывает, в чем проблема. К сожалению, она заболела. А я, жалкий программист, без какой-либо информации не умею давать такие точные ответы. Так что ничем не могу помочь...
jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 16.04.2013 в 20:42. |
Этот пользователь сказал Спасибо Bargest за это полезное сообщение: | ||
Alegun (16.04.2013)
|
#5
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#6
|
|||
|
|||
Цитата:
вот код, что в нем не так?? Код:
procedure TForm1.Timer2Timer(Sender: TObject); var m,s1,gg,ssyl,log,pass,s,a,b,c:string; StrPage:string; qwe:TStringList; i,i1:integer; str:string; n:integer; begin listbox2.Selected[0]:=true; a:=listbox2.items[listbox2.itemIndex]; listbox1.Selected[0]:=true; b:=listbox1.items[listbox1.itemIndex]; s1:= a; i1:=Pos(':',s1); log:= Copy(s1,1,i1-1); pass:= Copy(s1,i1+1,20); Randomize; n:=random (2); s := ''; for i:=1 to 2 do s := s + chr ( random( ord('z') - ord('a') + 1) + ord('a')); gg := s; try memo2.text:= idhttp1.Get('http://www.odnoklassniki.ru/dk?st.cmd=searchResult&st.query='+gg+'&st.gender='+edit8.text+'&st.fromAge='+edit3.text+'&st.tillAge='+edit4.text+'&st.country=10414533690&st.onSite=on&st.mode=Users&st.grmode=Groups'); except end; str:=memo2.text; n:=pos('<a class="o" href="/profile/',str)+length('<a class="o" href="/profile/'); m:= copy(str,n,posex('?',str,n)-n); if pos ('title',m)>0 then else listbox1.items.add (m); qwe.Free; end; Ставь спасибо за спасибо! Помог?Ставь спасибо!Увидел пост? Поставь спасибо! |
#7
|
||||
|
||||
Особо не вникал, но есть вероятность, что работает защита одноклассников от ДДОСа. Когда с одного IP-адреса кто-то вечно ломится на сайт с запросами - это подозрительно.
jmp $ ; Happy End! The Cake Is A Lie. |
#8
|
||||
|
||||
а почему парсинг идет вне блока try-except Get'а? неправильно это. вдруг исключение и обработка пойдет не известно чего. и в except-end логирование бы не помешало.
Пишу программы за еду. __________________ |
#9
|
||||
|
||||
Цитата:
Есть предположение что если интервал таймера маленький (1 сек. к примеру), то просто не успевает выполниться get запрос, не смотря на то что первые 10 мин. парсит! |