Получаю сайт, он передаёт покет который нада тоже принять, на одном из сайтов делал так
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 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;
procedure BUX.Execute;
var
Otvet: String;
Otvet1: String;
Ur: String;
begin
Otvet:= HTTP_BUX.Get('http://' + сайт);Ur:= PosSrc(Otvet);
Otvet1:= HTTP_BUX.Get('http://' + сайт+пакет); |
Такой покет нормально обрабатывает
PHP код:
<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="ips.php">//это ловит
</FRAMESET>
</head>
</html>
а такой не может
PHP код:
<html>
<head>
<title>///</title>
</head>
<FRAMESET ROWS="90,*" FRAMEBORDER="0" FRAMESPACING="0" BORDER="0">
<frame marginwidth="0" marginheight="0" name="frm" scrolling="no" noresize src="cgho.php">//это не ловит
</frameset>
</html>
Почему? Или раздница лиш в длине слова?
20.11.2010, 21:57
Странное поведение function Pos
Линейный вид
