idhttp+регулярки

[bulldog5293]

Если есть страница к примеру www.мойсайт.ru и на этой странице есть поле входа которое находится по ссылке www.мой-сайт.ru/вход, но вход имеет ссылку sinaps, как используя регулярные вырожения, про них я прочитал на вашем форуме тут http://programmersforum.ru/showthread.php?p=239716 войти на эту страницу, то есть я хочу что бы было так www.мой-сайт.ru+вход где вход обозначается переменной integr я на сколька понял, сам код входа выгледит так <a href="sinapsis.php" target="_self" rel="dropmenu2">Вход</a></li>
P.S. если сильно не понятно то напишите, а то башка уже кипит в сибири

[ZaRDaK]

Скорее всего регулярные выражения Вам не понадобятся.
Нужно всего лишь отравить POST запрос на sinapsis.php
Чтобы понять какой запрос отправлять пользуйтесь снифферами (типа Charles).
И, да - всё-таки попробуйте описать проблему вменяемым языком.

[bulldog5293]

Post это я понимаю, я спрашиваю из за того что в место sinapsis.php другое слово может стоять, если там другое слово, а следом стоит вход, то я при регулярке получаю слово которое стоит перед словом вход, но как поставить его к url сайта не знаю

[bulldog5293]

Раз молчите, то объясню по другому, мне это нужно что бы понять (точнее что бы поняла программа) с какой страницы идёт авторизация. А точнее, захожу к примеру на сайт www.мойсайт.ru и с него нада перейти на страницу www.мойсайт.ru/sinapsis.php, для авторизации, хотя в место /sinapsis.php может стоять другой урл, но вход на неё отображён будет, или авторизация может происходить прям на сайте www.мойсайт.ru, ну тут уже легче тем что можно просто отпрасить, так вот, как к при примеру при <a href="sinapsis.php" target="_self" rel="dropmenu2">Вход</a></li> определить что войти нада по sinapsis.php или другому урлу, а точнее, как в get или post запрос это добавить?

[kangreon]

На сколько я понял, нужно получить ссылку для входа из HTML страницы?

uses StrUtils;

...

var
 s:string;
 i : integer;
begin
 s := '<a href="sinapsis.php" target="_self" rel="dropmenu2">Вход</a></li>';
 i := pos('href="',s);
 s := Copy(s,i+6,posex('"',s,i+6)-i-6);
 idhttp1.get('http://www.мойсайт.ru/'+s);
end;

[bulldog5293]

хотя в место /sinapsis.php может стоять другой урл

нада найти урл, который ссылается на вход, это может быть не обязательно /sinapsis.php

[ZaRDaK]

Ну самое очевидное решение:
В Memo1 текст странички
i , j : Integer;
S: String;
В конце концов в строке S будет находится кусок "<a href="sinapsis.php" target="_self" rel="dropmenu2">"
А там по аналогии можно найти и урл, который ссылается на вход.

for i := 0 to Memo1.Lines.Count - 1 do begin
 if Pos('Вход' , Memo1.Lines[i]) <> 0 then begin
  for j = 0 to Pos('Вход' , Memo1.Lines[i]) do
   if Memo1.Lines[i][j] = '<' then p := j;
   S := Copy(Memo1.Lines[i] , p , Pos('Вход' , Memo1.Lines[i]) - p);
 end;
end;

Код не проверял, писал с головы.

[bulldog5293]

а р тогда что?

[ZaRDaK]

разберись в моём коде, а не копипасть его.
p := j;
j - integer, p соответственно тоже.