[scroyler]

Вообщем такая проблема,после некоторого времени отправки перестает отправлять запросы.
Вот я паршу данные, после 10 минут,начинают приходить пустые данные и не идет отправка запроса.
Кто знает, из за чего это?

[NumLock]

ошибка в программе

[scroyler]

Сообщение от NumLock

ошибка в программе

в чем может быть ошибка? ведь минут 10 парсит и отправляет без проблем

[Bargest]

Есть у меня знакомая гадалка. Очень хорошо гадает, особенно на кофейной гуще. Говоришь ей: "У меня программа работает, а потом не работает. Почему?" - и она угадывает, в чем проблема. К сожалению, она заболела. А я, жалкий программист, без какой-либо информации не умею давать такие точные ответы. Так что ничем не могу помочь...

[Alegun]

Сообщение от scroyler

...из за чего это?

Да тут и без гадалки видно, виноват во всём этот Indy, не надо его компоненты юзать, используйте Synapse.

[scroyler]

Сообщение от Bargest

Есть у меня знакомая гадалка. Очень хорошо гадает, особенно на кофейной гуще. Говоришь ей: "У меня программа работает, а потом не работает. Почему?" - и она угадывает, в чем проблема. К сожалению, она заболела. А я, жалкий программист, без какой-либо информации не умею давать такие точные ответы. Так что ничем не могу помочь...

вот код, что в нем не так??

Код:

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;

[Bargest]

Особо не вникал, но есть вероятность, что работает защита одноклассников от ДДОСа. Когда с одного IP-адреса кто-то вечно ломится на сайт с запросами - это подозрительно.

[NumLock]

а почему парсинг идет вне блока try-except Get'а? неправильно это. вдруг исключение и обработка пойдет не известно чего. и в except-end логирование бы не помешало.

[MoS]

Сообщение от scroyler

вот код, что в нем не так??

Код:

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;

А зачем в таймере писать?!
Есть предположение что если интервал таймера маленький (1 сек. к примеру), то просто не успевает выполниться get запрос, не смотря на то что первые 10 мин. парсит!