|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Парсить setTimeOut на sleep
На странице есть код
PHP код:
|
#2
|
||||
|
||||
Код:
var i: Integer; s: String; begin s:='setTimeout(''location.replace("vls.php?view=ok")'','; i:=Pos(s, Memo1.Text); if i>0 then begin s:=Copy(Memo1.Text, i+Length(s), Length(Memo1.Text)); i:=Pos(')', s); if i>0 then begin s:=Trim(Copy(s, 1, i-1)); i:=StrToIntDef(s, -1); if i>0 then Sleep(i); end; end; end; |
#4
|
|||
|
|||
А если без мемо, просто я через idhttp.get получаю код и с ним работаю
Цитата:
|
#5
|
||||
|
||||
Код:
var Otvet: String; begin Otvet:= idhttp1.get(); // Otvet теперь содержит код страницы с ним и работаем end; |
#6
|
|||
|
|||
то есть мне прасер нужно будет поставить только в низу полседнего Otvet и потом передать в слип?
сделал так Otvet1:= IdHttp1_Pay.GET('' + url+Ur); while Pos('setTimeout(''location.replace("vls.php?view=o k")'',',Otvet1)>0 do begin Otvet1:=Trim(Copy(Otvet1, 1, i-1)); i:=StrToIntDef(Otvet1, -1); if i>0 then Sleep(i); Form2.Listbox.delete(3); но дальше не продолжает работать, а без парсера работает Последний раз редактировалось bulldog, 16.08.2010 в 14:47. |
#7
|
||||
|
||||
Код:
function SetTimeOutJS(Str: String): Integer; var I: Integer; S: String; begin S:='setTimeout(''location.replace("vls.php?view=ok")'','; I:= Pos(S, Str); if I>0 then begin S:= Copy(Str, I+Length(S), Length(Str)); I:= Pos(')', S); if I>0 then begin S:= Trim(Copy(S, 1, I-1)); I:= StrToIntDef(S, -1); if I>0 then Result:= I else Result:= 0; end; end; end; Код:
var Otvet: String; I: Integer; begin Otvet:= idhttp1.get(); // Otvet теперь содержит код страницы с ним и работаем I:= SetTimeOutJS(Otvet); Sleep(I); end; |