|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
двойной idhttp.get
через idhttp.get получаю страницу, на ней код
PHP код:
|
#2
|
||||
|
||||
Код:
function PosSrc(S: String): String; var B, E: Integer; begin B:= Pos('SRC="', S)+5; E:= PosEx('"', S, B); Result:= Copy(S, B, E-B); end; Последний раз редактировалось pesi, 15.08.2010 в 16:13. |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
а нтмл код вы как получили
|
#5
|
|||
|
|||
PHP код:
PHP код:
Последний раз редактировалось bulldog, 15.08.2010 в 17:41. |
#6
|
|||
|
|||
кто нить подскажите, а то мне не ловко на таком моменте останавливаться, а дальше как двигаться не пойму
|
#7
|
||||
|
||||
Вообще тут не стоило помогать....
Код:
var SL: TStringList; Otvet: String; Ur: String; begin Otvet:= IdHTTP1.get(url); SL:= TStringlist.Create; SL.Add('username=' +''); SL.Add('password=' + ''); Otvet:= IdHTTP1_Pay.Post('' +url +'login.php', SL); Otvet:= IdHttp1_Pay.Get('' +url +'nek.php'); Ur:= PosSrc(Otvet); Otvet:= IdHttp1_Pay.Get('' + url +Ur); SL.Free; end; |