Сорри, за нубский вопрос, но не получилось страницу пропарсить, на наличее некоторых значений
Код:
var
y:TStringStream;
Otvet: String;
begin
y:=TStringStream.Create;
Otvet1:=TStringStream.Create;
begin
HTTP_BUX.Get('http://' + сайт + Form2.Listview1.Items[w].SubItems[8],y,otvet1);
If pos('pen.php', y.datastring)>0 then//вместо pen.php может стоять другое
begin
Otvet:= HTTP_BUX.Get('http://' + Url_Pay + '/pen.php');
Ur:= PosSrc(Otvet1);
HTTP_BUX.Get('' + url +Ur);
D:= SetTimeOutJS(Otvet);
Sleep(D);
Мне надо было пропарсить первое и
второе или
третье значение, первое мне нужно для слипа и
http://Сайт.ru/ , а
третье и
четвёртое не нужно, хотел получить
Код:
<script type="text/javascript">
location.replace("http://Сайт.ru/");
</script>
<noscript>
<meta http-equiv="refresh" content="0; url=http://Сайт.ru/">
</noscript>
<html>
<head>
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Expires" content="-1">
<title>///</title>
<FRAMESET ROWS="35px,30px,90%,70px">
<FRAME marginwidth="0" marginheight="0" name="frminfo" scrolling="no" noresize NAME="a" SRC="1.php">
<FRAME NAME="b" SRC="3.php" STYLE="border-bottom:dashed 2px #191970;" SCROLLING="no" NORESIZE="noresize" MARGINHEIGHT="1" MARGINWIDTH="5">
<frame name="frmsite" src="http://Сайт.ru/">
<FRAME NAME="b" SRC="4.php" STYLE="border-bottom:dashed 2px #191970;" SCROLLING="no" NORESIZE="noresize" MARGINHEIGHT="1" MARGINWIDTH="5">
</FRAMESET>
</head>
</html>
в них хранится ссылка перехода, но мне пишит что не правельный оргумент был задан. Как быть не знаю, а как пользоваться
Код:
function PosSrc(ss: String): String;
var
B, E: Integer;
begin
B:= Pos('SRC="', ss)+5;
E:= PosEx('"', ss, B);
Result:= Copy(ss, B, E-B);
end;
забыл,есть ли у кого возможные варианты решения?